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

_{200 NEXT F: PRINT " ";}

_{210 IF (N/2)-INT(N/2)=0 THEN 230}

_{220 IF X>=M THEN 310 ELSE X=X+5: GOTO 180}

_{230 IF N>0 THEN 290}

_{240 FOR G=X TO M}

_{250 IF A(G)>0 THEN 290}

_{260 NEXT G}

_{270 PRINT "0…0"}

_{280 GOTO 310}

_{290 PRINT: PRINT: PRINT: PRINT "четность 5-разрядного кода неправильная"}

_{300 ВЕЕР: PRINT: PRINT: PRINT: GOTO 330}

_{310 PRINT: PRINT: PRINT: PRINT "четность 5-разрядного кода правильная"}

_{320 PRINT: PRINT: PRINT}

_{330 PRINT"0…..0";}

_{340 X=0}

_{350 IF A(X)=1 THEN 370}

_{360 X=X+1: GOTO 350}

_{370 N=0: FOR F=X TO X+6}

_{380 IF A(F) =1 THEN N=N+1: PRINT"!";ELSE PRINT "0";}

_{390 NEXT F: PRINT " ";}

_{400 IF (N/2)-INT(N/2)=0 THEN 420}

_{410 IF X>=M THEN 500 ELSE X=X+7: GOTO 370}

_{420 IF N>0 THEN 480}

_{430 FOR G=X TO M}

_{440 IF A(G) >0 THEN 480}

Начиная с первого бита в 1, программа PARITY.BAS применяет определенные правила для проверки четности блоков данных по пять бит, затем по семь бит. При отсутствии ошибки это позволяет ей четко отличать файлы, закодированные пятиразрядным кодом ANSI, от закодированных семиразрядным кодом ANSI. Пока ошибка не обнаружена, программа выдает группы, успешно прошедшие проверку, и останавливается на первом символе с ошибкой, иначе говоря, на первой группе по пять или семь бит, содержащей четное число единиц.

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

В общем, эта программа позволит убедиться в отсутствии ошибки четности в любом файле .CAR.

Ниже представлен результат проверки файла TEST5.CAR (его можно найти на сайте www.dmk.ru) закодированного пятиразрядным кодом и не имеющего никаких ошибок четности. Следует обратить внимание, что нули запуска и заполнения представлены в сокращенной форме.

Теперь покажем результат той же самой проверки, на этот раз проведенной с файлом TEST7.CAR, закодированным семиразрядным кодом и также не имеющим никаких ошибок.

Мы не написали программу, предназначенную для проверки на этой стадии считывания символов LRC, которые обычно заканчивают каждую дорожку. Наша цель на данный момент заключается в обнаружении самых грубых ошибок, которые могли бы нарушить процесс считывания.

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

ПРОВЕРКА КОНТРОЛЬНОГО КЛЮЧА

Вот еще одна проверка, которую удобно проводить с файлом .CAR, но только после его декодирования. Речь идет не о серии битов, а о числе, состоящем из некоторого количества цифр помимо битов заполнения.

Например, в случае файла VISA.CAR необходимо произвести проверку только одной части информации, декодирование которой представлено в главе 2, где речь идет о содержимом дорожки ISO 2 банковской карточки. В данном случае это 16-значный номер карточки: 4970101234567890.

Программа LUHNCHK.BAS работает с числами, состоящими из любого количества цифр, как четного, так и нечетного.

_{10 REM — LUHNCHK.BAS —}

_{20 KEY OFF: CLS}

_{30 CLEAR: PRINT: PRINT "введите номер карты": INPUT N$}

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

_{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 170}

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

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

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

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

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

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

_{150 IF T=0 THEN PRINT "номер действителен": GOTO 30}

_{160 PRINT "номер не действителен": GOTO 30}

_{170 T=Q: FOR F=1 TO L-1 STEP 2}

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

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

_{200 FOR F=2 TO L STEP 2}

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

_{220 GOTO 140}

_{230 REM (c)1996 Patrick GUEULLE}