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

Программа 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}

_{130 V=VAL(MID$(A$,F,1))}

_{140 C$=C$+CHR$ (V)}

_{150 NEXT F}

_{160 L=0}

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

_{180 L=L XOR ASC(MID$(C$,F, 1))}

_{190 NEXT F}

_{200 PRINT "LRC ="}

_{210 IF L=11 THEN PRINT "{start}": GOTO 280}

_{220 IF L=13 THEN PRINT "{sep)": GOTO 280}

_{230 IF L=15 THEN PRINT "{end}": GOTO 280}

_{240 IF L=10 THEN PRINT "{10}": GOTO 280}

_{250 IF L=12 THEN PRINT "{12}": GOTO 280}

_{260 IF L=14 THEN PRINT "{14}": GOTO 280}

_{270 PRINT L}

_{280 END}

_{300 F=F+1}

_{310 IP MID$(A$,F,1) = "1" THEN 340}

_{320 IF MID$(A$,F,1) = "s" THEN 390}

_{330 IF MID$(A$,F,1)="e" THEN C$=C$+CHR$ (15): F=F+3: GOTO 430}

_{340 F=F+1}

_{350 IF MID$(A$,F, 1) = "0" THEN C$=C$+CHR$(10): F=F+1: GOTO 430}

_{360 IF MID$(A$,F,1) = "2" THEN C$=C$+CHR$(12): F=F+1: GOTO 430}

_{370 IF MID$(A$,F,1) = "4" THEN C$=C$+CHR$(14): F=F+1: GOTO 430}

_{380 GOTO 130}

_{390 F=F+1}

_{400 IF HID$(A$,F,1) = "t" THEN C$=C$+CHR$ (11): F=F+4: GOTO 430}

_{410 IF MID$ (A$,F, 1) ="e" THEN C$=C$+CHR$ (13): F=F+2: GOTO 430}

_{420 CLS: PRINT "Ошибка!": BEEP: END}

_{430 IF MID$(A$,F, 1)<>")" THEN 420}

_{440 GOTO 150}

_{450 REM (c)1996 Patrick GUEULLE}

После двойного нажатия на клавишу ENTER программа выдает символ, который надо вставить за флажком end во время ввода данных в программе кодирования CREMAG.

СТИРАНИЕ МАГНИТНЫХ КАРТ