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

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

Прежде чем приступить к изучению карты с использованием «магнитного разоблачителя», желательно провести простой анализ посредством специальной программы.

10 REM — PARITY.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 CLS: PRINT "идет контроль четности…": PRINT

110 DIM A(LOF(1))

120 M=0: WHILE NOT EOF(1)

130 INPUT#1,A(M): M=M+1: WEND

140 PRINT "0…0";

150 X=0

160 IF A(X) =1 THEN 180

170 X=X+1: GOTO 160

180 N=0: FOR F=X TO X+4

190 IF A(F) =1 THEN N=N+1: PRINT "1"; ELSE PRINT "0";

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

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

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

Это очень просто сделать путем архивирования файла .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 "идет проверка…"