Магнитные карты и ПК - Гёлль Патрик - Страница 19

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

В данном случае ответ будет номер не действителен, потому что мы, естественно, использовали номер несуществующей кредитной карточки. С другой стороны, ничто не мешает произвести такую проверку с вашей банковской карточкой, номер которой должен быть действительным.

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

Это очень просто сделать путем архивирования файла .CAR — того, который послужил для кодирования карты (мы еще к этому вернемся), либо того, который был создан при «реперном» считывании.

Программа VERMAG.BAS позволяет сравнить не две карты, а два файла .CAR — старый и новый. Каждый идентичный бит обозначается тире, а каждый отличающийся — звездочкой, что сразу дает представление о масштабе возможного несоответствия. Нули запуска и заполнения, как известно, представляются в сокращенном виде, поскольку они исключены из процесса проверки. Их число может несколько изменяться от одного до другого считывания той же самой карты.

_{10 REM — VERMAG.BAS —}

_{20 KEY OFF: CLS}

_{30 PRINT "имя файла, подлежащего проверке";}

_{40 INPUT N$: IF N$ = "" THEN END}

_{50 FOR F=1 TO LEN (N$)}

_{60 IF MID$ (N$,F,1) = "." THEN 90}

_{70 NEXT F}

_{80 N$=N$+".CAR"}

_{90 OPEN N$ FOR INPUT AS #1}

_{100 PRINT: PRINT "имя эталонного файла";}

_{110 INPUT N$: IF N$="" THEN END}

_{120 FOR F=1 TO LEN(N$)}

_{130 IF MID$ (N$,F,1)="." THEN 160}

_{140 NEXT F}

_{150 N$=N$+".CAR"}

_{160 OPEN N$ FOR INPUT AS #2}

_{170 CLS: PRINT "идет проверка…"}

_{180 DIM A(LOF(1)): DIM B(LOF<2))}

_{190 F=0: WHILE NOT EOF(1)}

_{200 INPUT#1, A (F); F=F+1: WEND}

_{210 M=F}

_{220 F=0: WHILE NOT EOF(2)}

_{230 INPUT#2,B(F): F=F+1: WEND}

_{240 N=F}

_{250 X=0}

_{260 IF A(X) =1 THEN 280}

_{270 X=X+1: GOTO 260}

_{280 Y=0}

_{290 IF В (Y) = 1 THEN 310}

_{300 Y = Y+1: GOTO 290}

_{310 CLS: PRINT "0…….0";: E=0}