Магнитные карты и ПК

Программа CREMAG.BAS выполняет функцию, прямо противоположную функции программы DEC5.BAS в том смысле, что она трансформирует цифровые данные в файл .CAR, готовый к записи и включающий нули запуска и заполнения.

_{10 REM — CREMAG.BAS —}

_{20 KEY OFF: CLS}

_{30 PRINT "Ввести данные, предназначенные для записи,"}

_{40 PRINT "затем нажать ENTER"}

_{50 А$=""}

_{60 INPUT В$}

_{70 IF В$ = "" THEN 100}

_{80 А$=А$+В$}

_{90 GOTO 60}

_{100 C$="0000000000"}

_{110 FOR F=1 ТО LEN(A$)}

_{120 IF MID$(A$,F,1)="0" THEN C$=C$+"00001": GOTO 240}

_{130 IF MID$(A$,F,1)="1" THEN C$=C$+"10000": GOTO 240}

_{140 IF MID$(A$,F,1)="2" THEN C$=C$+"01000": GOTO 240}

_{150 IF MID$(A$,F,1)="3" THEN C$=C$+"11001": GOTO 240}

_{160 IF MID$(A$,F,1)="4" THEN C$=C$+"00100": GOTO 240}

_{170 IF MID$(A$,F,1)="5" THEN C$*C$+"10101": GOTO 240}

_{180 IF MID$(A$,F,1)="6" THEN C$=C$+"01101": GOTO 240}

_{190 IF MID$(A$,F,1)="7" THEN C$=C$+"11100": GOTO 240}

_{200 IF MID$(A$,F,1)="8" THEN C$=C$+"00010": GOTO 240}

_{210 IF MID$(A$,F,1)="9" THEN C$=C$+"10011": GOTO 240}

_{220 IF MID$(A$,F,1)=" {" THEN 370}

_{230 PRINT: PRINT "Данные не действительны (запрещенные СИМВОЛЫ)": ВЕЕР: END}

_{240 NEXT F}

_{250 IF LEN(C$)<=210 THEN 270}

_{260 PRINT: PRINT "Данные слишком длинные (максимум 40 цифровых символов)": END}

_{270 C$="0"+С$}

_{280 IF LEN (C$) =240 THEN 320}

_{290 C$=C$+"0"}

_{300 IF LEN(C$)=240 THEN 320}

_{310 GOTO 270}

_{320 OPEN "carte.car" FOR OUTPUT AS #1}

_{330 FOR F=1 TO LEN(C$)}

_{340 PRINT#1,MID$(C$,F,1)+CHR$(32);}

_{350 NEXT F}

_{360 CLS: PRINT: PRINT "Файл CARTE.CAR готов": BEEP: END}

_{500 IF MID$(A$,F,1)<>T THEN 230}

_{510 GOTO 240}

_{520 REM (c)1996 Patrick GUEULLE}

Как и программа MAGWRITE, CREMAG предназначена для кодирования дорожки ISO 2 и, следовательно, будет обрабатывать только цифровые данные. Разделительные символы воспринимаются именно в том виде, в каком их отображает DEC5, то есть в фигурных скобках (а не в простых круглых скобках или кавычках).

Так, флажок старта будет записан как {start}, флажок конца как {end}, разделитель полей как {sep}.

Перейти на новую строку можно путем однократного нажатия на клавишу ENTER. Создание файла .CAR инициируется двукратным нажатием этой клавиши.

Количество кодируемых данных значения не имеет, если не превышается максимум, отведенный дорожке ISO 2. Нули заполнения автоматически записываются в начале и конце дорожки, чтобы отцентровать блок информационных битов.

ПРОГРАММА РАСЧЕТА КОНТРОЛЬНЫХ КЛЮЧЕЙ

При необходимости записать на карте последовательности цифр, то есть некие числовые данные, которые могут оказаться номерами банковских счетов (не исключено), возникает проблема обеспечения безопасности. Как мы уже знаем, эту проблему можно решить путем добавления контрольного ключа, рассчитываемого по стандартному алгоритму, которого придерживаются практически все производители карт.

Программа LUHN.BAS способна рассчитать эту дополнительную цифру вне зависимости от количества цифр (четного или нечетного) номера, который требуется защитить.

_{10 REM — LUHN.BAS —}

_{20 KEY OFF: CLS}

_{30 CLEAR: PRINT: PRINT "Введите цифровые данные, которые требуют обеспечения безопасности": INPUT N$}

_{40 L=LEN(N$): DIM N(L+1)}

_{50 FOR F=1 TO L}

_{60 C$=MID$(N$,F,1): C=VAL(C$): N(F)=C}

_{70 NEXT F}

_{80 IF (L/2) — INT(L/2) =0 THEN 200}

_{90 T=0: FOR F=1 TO L STEP 2}

_{100 C=2*N(F): IF C>=10 THEN C=C-9}

_{110 T=T+C: NEXT F}

_{120 FOR F=2 TO L-1 STEP 2}

_{130 T=T+N(F): NEXT F}

_{140 IF T>=10 THEN T=T-10: GOTO 140}

_{150 N=10-T: IF N=10 THEN N=0}

_{160 N(L+1)=N}

_{170 CLS: FOR F=1 TO L+1}

_{180 PRINT N(F);: NEXT F}

_{190 PRINT: GOTO 30}

_{200 T=0: FOR F=2 TO L STEP 2}

_{210 C=2*N(F): IF C>=10 THEN C=C-9}

_{220 T=T+C: NEXT F}

_{230 FOR F=1 TO L-1 STEP 2}

_{240 T=T+N(F):NEXT F}

_{250 IF T>=10 THEN T=T-10: GOTO 250}

_{260 N=10-T: IF N=10 THEN N=0}

_{270 GOTO 160}

_{280 REM (c)1996 Patrick GUEULLE}

Определенный таким образом ключ добавляется в конце защищаемого номера. Полученная при этом последовательность цифр успешно проходит проверку, производимую программой LUHNCHK (см. главу 3).

Это дает читателям возможность проверить (при повторном считывании) целостность данных, которые они закодировали на своих картах.

ПРОГРАММА РАСЧЕТА LRC

Символ LRC в принципе должен кодироваться после флажка end каждой дорожки вслед за проверкой нечетности и расчетом контрольного ключа с целью обеспечения последнего уровня безопасности.

Программа LRCMAG.BAS, как и CREMAG, ждет введения с помощью клавиатуры всех данных, начиная с флажка start и до флажка end включительно.

_{10 REM — LRCMAG. BAS —}

_{20 KEY OFF: CLS}

_{30 PRINT "Введите данные для кодирования"}

_{40 PRINT "затем нажать ENTER"}

_{50 А$=""}

_{60 INPUT В$}

_{70 IF В$ = "" THEN 100}

_{80 А$=А$+В$}

_{90 GOTO 60}

_100 C$=""

_{110 FOR F=1 TO LEN(A$)}

_{120 IF MID$(A$,F,1)="{" THEN 300}