Четверг, 28 Мар 2024, 13:52
Uchi.ucoz.ru
Меню сайта
Форма входа

Категории раздела
Высшая математика [11]
Экономическая социология [95]
Основы Менеджмента [64]
Бухгалтерский учёт [157]
Философия [163]
Мировая Экономика [603]
Бизнес планирование [29]
Финансирование и кредитование инвест [105]
Ценообразование [46]
Гражданское право [196]
Права Человека [173]
Основы Маркетинга [207]
Основы энергосбережения [55]
Информатика [0]
Экология и устойчивое развитие [0]
Физика для студентов [0]
Основы права [0]
Политология [0]
Не стандартные примеры на Delphi [169]
Примеры на Delphi7 [108]
Алгоритмы [94]
API [110]
Pascal [152]
Базы Данных [6]
Новости
Чего не хватает сайту?
500
Статистика
Зарегистрировано на сайте:
Всего: 51635


Онлайн всего: 10
Гостей: 10
Пользователей: 0
Яндекс.Метрика
Рейтинг@Mail.ru

Каталог статей


Главная » Статьи » Студентам » Алгоритмы

Проверка кредитной карты
unit
Creditc;

{*****************************************************************************

Модуль
Delphi для проверки номера кредитной карты

Версия: 1.1
Дата: Декабрь
20, 1996

Данный модуль создан на основе алгоритма ccard автора Peter
Miller.
Автор не против бесплатного использования, но резервирует все
права
на данный алгоритм.

авторское право 1996 Shawn Wilson Harvell (
shawn@inet.net )

применение:

Внесите данный модуль в список uses
любого модуля, которому
необходим доступ к функции проверки кредитной
карты.

IsValidCreditCardNumber( CardNumber, ReturnMessage ) returns
Boolean

например, используйте это для уведомления пользователя о
недействительности карты.
CardNumber - строка, содержащая номер карты,
которую необходимо проверить
ReturnMessage - строка, с помощью которой
функция может возвратить любое сообщение
( при этом старое содержимое строки
стирается )

возвращает true если номер карточки верен, false - в
противном случае.

во входных параметрах функции допускаются тире и
пробелы,
если же возможно присутствие других символов, вы можете их
удалить.
Функция RemoveChar довольно легко позаботится об этом,
просто
передайте ей входную строку и символ, который вы хотите
удалить.

Пользователь может свободно изменять код модуля для собственных
целей,
но в случае его распространения он должен сообщить
пользователям
обо всех внесенных изменениях.

Используйте модуль на
свой страх и риск, поскольку он свободен от явных
и неявных гарантий.
Ответственность за какой-либо ущерб, причиненный
данным модулем лежит на его
пользователе.

На момент написания модуля он устойчиво работал под Delphi
версий 1 и 2,
для Turbo Pascal необходимо внести некоторые несложные
исправления (главным
образом из-за различия реализации функций в модуле
SysUtils).

Если вы нашли этот модуль полезным, имеете какие-то пожелания
или предложения,
отправьте автору письмо по адресу электронной почты
shawn@inet.net

История изменений

версия 1.1 -- Декабрь 20,
1996
исправлена ошибка с Discover card: соответственно увеличина длина маски
"database"

версия 1.0 -- Октябрь 26, 1996
первый
выпуск

*****************************************************************************}

interface

uses
SysUtils;

function IsValidCreditCardNumber( CardNumber:
String; var MessageText: String ):
Boolean;

implementation

const

CardPrefixes: array[ 1..19 ] of string =
( '2014', '2149', '300', '301', '302',
'303', '304',
'305', '34', '36', '37',
'38', '4',
'51', '52', '53', '54', '55', '6011' );

CardTypes: array[ 1..19 ] of String =
( 'enRoute',
'enRoute',
'Diner Club/Carte Blanche',
'Diner Club/Carte Blanche',
'Diner Club/Carte Blanche',
'Diner Club/Carte Blanche',
'Diner Club/Carte Blanche',
'Diner Club/Carte Blanche',
'American Express',
'Diner Club/Carte Blanche',
'American Express',
'Diner Club/Carte Blanche',
'Visa',
'MasterCard',
'MasterCard',
'MasterCard',
'MasterCard',
'MasterCard',
'Discover'
);

function RemoveChar(const Input: String;
DeletedChar: Char): String;
var

Index: Word; { переменная
счетчика }begin

{ данная функция удаляет все вхождения
указанного символа из переданной ей }
{
строки
}
Result := Input;
for Index := Length( Result ) downto 1 do
if Result[ Index ] = DeletedChar then Delete( Result,
Index, 1 );end;

function
ShiftMask( Input: Integer ): Integer;
begin

{ простая оболочка для функции сдвига битов
числа }
result := ( 1 shl ( Input - 12 )
);end;

function ConfirmChecksum( CardNumber:
String ): Boolean;
var

CheckSum: Integer; { Содержит
значение операции }
Flag: Boolean; { флаг
готовности }
Counter: Integer; { индекс
счетчика }
PartNumber: String; {
используется для извлечения каждой цифры числа}
Number: Integer; { исп-ся для
преобразования каждой цифры в число}begin

{**************************************************************************
Это, вероятно, самая запутанный код, который вы когда-либо видели,
я и сам
запутался, когда работал над ним. Основное, что делает данная
функция -
извлекает каждую цифру из номера карты для использования в формуле
проверки
контрольной суммы, устанавливаемую компаниями. Алгоритм производит
выборку,
начиная от последней цифры и заканчивая первой.
**************************************************************************}

{ получаем стартовое значение счетчика
}
Counter := Length( CardNumber );
CheckSum := 0;
PartNumber := '';
Number := 0;
Flag := false;

while ( Counter >= 1 )
do
begin
{ получаем текущую цифру }
PartNumber := Copy( CardNumber, Counter, 1
);
Number := StrToInt( PartNumber ); {
преобразуем в число }
if ( Flag ) then { только каждую
вторую цифру }
begin
Number := Number * 2;
if ( Number >= 10 ) then
Number := Number - 9;
end;
CheckSum := CheckSum + Number;

Flag := not( Flag );

Counter := Counter - 1;
end;

result := ( ( CheckSum mod 10 ) =
0 );end;

function GetMask(
CardName: String ): Integer;
begin

{ значение по умолчанию }
result := 0;

if ( CardName = 'MasterCard' )
then result := ShiftMask( 16 );
if ( CardName = 'Visa' )
then result := ( ShiftMask( 13 ) or
ShiftMask( 16 ) );
if ( CardName = 'American Express'
) then result := ShiftMask( 15 );
if ( CardName = 'Diner Club/Carte
Blanche' ) then result := ShiftMask( 14
);
if ( CardName = 'Discover' )
then result := ShiftMask( 16
);
end;

function IsValidCreditCardNumber(
CardNumber: String; var MessageText: String ):
Boolean;
var

StrippedNumber: String; {
используется для хранения числа без дополнительных символов }
Index: Integer; { универсальный
счетчик для циклов и т.п. }
TheMask: Integer; { число,
которое мы будем использовать для маски }
FoundIt: Boolean; { используется
для индикации, когда что-либо найдено }
CardName: String; { хранит
имя типа карты }
PerformChecksum: Boolean; { тип enRoute
карты если контрольная сумма не сошлась
}begin

{ сначала избавимся от пробелов и тире
}
StrippedNumber := RemoveChar( CardNumber, '
' );
StrippedNumber := RemoveChar( StrippedNumber, '-' );

{ если строка была нулевой длины, то тоже OK
}
if ( StrippedNumber = '' )
then
begin
result := true;
exit;
end;

{ инициализация возвращаемых переменных
}
MessageText := '';
result := true;

{ устанавливаем нашу переменную-флаг
}
FoundIt := false;

{ проверка правильности введенных символов в
номере карты }
for Index := 1 to Length(
StrippedNumber ) do
begin
case StrippedNumber[ Index ] of
'0'..'9':
FoundIt := FoundIt; { другими словами не op }
else
MessageText := 'Неверный введенный
символ';
result := false;
exit;
end;
end;

{ теперь давайте определим тип используемой
карты }
for Index := 1 to 19 do
begin
if ( Pos( CardPrefixes[ Index ], StrippedNumber ) = 1 ) then
begin
{ мы обнаружили правильный тип }
FoundIt := true;
CardName := CardTypes[ Index ];
TheMask := GetMask( CardName );
end;
end;

{ если тип карты не определен, указываем на
это }
if ( not FoundIt ) then
begin
CardName := 'Unknown Card Type';
TheMask := 0;
MessageText := 'Неизвестный тип карты
';
result := false;
exit;
end;

{ проверка длины }
if ( ( Length( StrippedNumber ) > 28 ) and result ) then
begin
MessageText := 'Номер слишком большой
';
result := false;
exit;
end;

{ проверка длины }
if ( ( Length( StrippedNumber ) < 12 ) or
( ( shiftmask( length( strippednumber ) ) and themask ) =
0 ) ) then
begin
messagetext := 'неверная длина
числа';
result := false;
exit;
end;

{ проверяем вычисление контрольной суммы
}
if ( cardname = 'enroute' )
then
performchecksum := false
else
performchecksum := true;

if ( performchecksum and ( not
confirmchecksum( strippednumber ) ) ) then
begin
messagetext := 'неверная контрольная
сумма';
result := false;
exit;
end;

{ если результат равен true, тогда все ok
}
if ( result ) then
messagetext := 'номер верен: тип карты: '
+ cardname;

{ если строка была нулевой длины, то тоже OK
}
if ( strippednumber = '' )
then
result := true;
end;

end.
Категория: Алгоритмы | Добавил: Lerka (21 Ноя 2012)
Просмотров: 706 | Рейтинг: 1.0/ 7 Оштрафовать | Жаловаться на материал
Похожие материалы
Всего комментариев: 0

Для блога (HTML)


Для форума (BB-Code)


Прямая ссылка

Профиль
Четверг
28 Мар 2024
13:52


Вы из группы: Гости
Вы уже дней на сайте
У вас: непрочитанных сообщений
Добавить статью
Прочитать сообщения
Регистрация
Вход
Улучшенный поиск
Поиск по сайту Поиск по всему интернету
Наши партнеры
Интересное
Популярное статьи
Портфолио ученика начальной школы
УХОД ЗА ВОЛОСАМИ ОЧЕНЬ ПРОСТ — ХОЧУ Я ЭТИМ ПОДЕЛИТ...
Диктанты 2 класс
Детство Л.Н. Толстого
Библиографический обзор литературы о музыке
Авторская программа элективного курса "Практи...
Контрольная работа по теме «Углеводороды»
Поиск
Главная страница
Используются технологии uCoz