Главная » Статьи » Delphi » Статьи Delphi

Скачивать материалы с сайта, могут только зарегистрированные пользователи.
Для регистрации заполните два поля ниже!

Через минуту Вы получите "Гостевой доступ"




Создание банковского ключа
Создание банковского ключа

function CheckCtrlKey( aNLs : string; aMfo : real ) : boolean;
const
{12345678901234567890xxx}
msk : string[28]= '71371371371371371371713';
var
i : byte;
s : integer;
nls : string[28];
bic : string[10];
begin
bic := LeftPad( Real0Str( aMfo, 9, 0 ), 9 );
if bic[7] < > '0' then
{< =Простая проверка -- это РКЦ?}
{ не учитывает ГРКЦ }
nls := bic[7]+bic[8]+bic[9]
else
nls := '0'+ bic[5]+bic[6];
{ РКЦ }
nls := aNLs + nls;
s:= 0;
for i := 1 to 23 do
s := s + ( ( (byte(nls[i])-48) * (byte(msk[i])-48) ) mod 10 );
s := s mod 10;
CheckCtrlKey := s = 0;
end;

Категория: Статьи Delphi | Добавил: c1 (2009 Июль 09)
Просмотров: 552 | Теги: Создание банковского ключа | Рейтинг: 0.0/0

Выразить благодарность - Поделиться с друзьями!

 

Здесь все о технической стороне 1С!

 

Узнай, как правильно администрировать 1С Предприятие
Регистрируйся на бесплатный 7-ми дневный курс сейчас:

Ваш E-Mail в безопасности



Всего комментариев: 0
avatar