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

Автор книги: Патрик Гёлль

сообщить о нарушении

Текущая страница: 4 (всего у книги 6 страниц)

Большая длительность в значительной степени облегчает работу программ на не слишком быстродействующем или с замедленным выполнением других задач процессоре.

Общий вид декодера приведен на рис. 3.25 и 3.26.

Рис. 3.25. Общий вид декодера со стороны размещения элементов

Рис. 3.26. Общий вид декодера со стороны печати

Американская версия

Схема, представленная на рис. 3.27, значительно отличаясь от рассмотренной выше, приводит к очень близким результатам.

Рис. 3.27. Схема декодера на интегральной схеме фирмы American Magnetics

Основные функциональные отличия заключаются в следующем:

• значительно более высокая чувствительность, допускающая использование менее качественной или не очень хорошо настроенной головки;

• несколько меньший допуск к очень низким скоростям прохождения;

• импульс  имеет фиксированную длительность (приблизительно 23 мкс), то есть более короткую, чем в предыдущем случае при нормальных условиях работы;

• идентичные величины внешних компонентов для дорожек для плотностей записи как 75, так и 210 bpi;

• данные выдаются без инверсии.

Последняя особенность приводит к необходимости ставить инвертирующий каскад для линии  с целью обеспечения совместимости с предыдущей схемой и большинством промышленных считывающих устройств.

Поскольку каскад выполнен на обычном n-р-n транзисторе, ему дня нормальной работы требуется форсирующая RC-цепочка в цепи базы. Отсутствие такого конденсатора может привести к межсимвольной интерференции, то есть наложению текущих битов на последующие.

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

Обратим внимание и на то, что номиналы всех элементов были оптимизированы в соответствии с указаниями изготовителя интегральной схемы; в принципе рекомендуется их придерживаться. Печатная плата декодера, изображенная на рис. 3.28, также имеет небольшие размеры и допускает установку в непосредственной близости от головкодержателя.

Рис. 3.28. Печатная плата декодера на ИС фирмы American Magnetics

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

Размещение элементов на плате декодера представлено на рис. 3.29. Здесь мы также частично обращаемся к технологии поверхностного монтажа (SMD).

Рис. 3.29. Размещение элементов на плате декодера, использующего ИС фирмы American Magnetics

Интегральная схема припаивается со стороны печати так же, как и форсирующий конденсатор 47 нФ, включенный параллельно с резистором 18 кОм. В качестве данного конденсатора целесообразно использовать конденсатор в стеклянном корпусе, похожий на диод. Это гарантирует минимальную длину соединений и экономит место со стороны компонентов.

Внешний вид декодера приведен на рис. 3.30 и 3.31, а перечень элементов – в табл. 3.3.

Рис. 3.30. Вид декодера со стороны размещения элементов

Рис. 3.31. Вид декодера со стороны печати

Таблица 3.3. Перечень элементов декодера

ПРОГРАММЫ ДЛЯ СЧИТЫВАЮЩИХ УСТРОЙСТВ

Несмотря на то что промышленные считывающие устройства для магнитных карт или считывающие устройства, построенные по нашим рекомендациям, могут быть использованы практически с любым процессором, мы разработали программы, позволяющие выполнять все вышеназванные исследования как обычно, на IBM РС-совместимом компьютере.

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

Этот разъем типа DB15, которым, как правило, пренебрегают серьезные пользователи, предоставляет четыре логических входа для импульсных сигналов и весьма удобное напряжение питания + 5 В.

Этого более чем достаточно для подключения считывающего устройства магнитных карт. Схема подключения приведена на рис. 3.32.

Рис. 3.32. Подключение считывающего устройства к разъему джойстика ПК

Длина соединительных проводов (неэкранированных) не принципиальна и может достигать 1 м, по крайней мере в случае декодеров, построенных в соответствии с нашими схемами.

Считывание дорожки ISO 2

Логично сначала заинтересоваться именно этой дорожкой, расположенной посередине, поскольку она одновременно и наиболее используемая, и самая легкая в интерпретации. Даже при плотности 75 bpi сигналы, поступающие от декодера, могут быть достаточно высокой частоты.

Не доходя до программирования на ассемблере, нам пришлось использовать язык, известный своим быстродействием, – Turbo Pascal. Даже в этих условиях не стоит надеяться обойтись компьютером с производительностью ниже, чем у 386SX25, чьих возможностей едва хватает.

На сайте издательства www.dmk.ru содержатся исходный текст программы LECT75.PAS, приведенный выше, и соответствующий исполняемый файл LECT75.EXE. Эта программа создает файл CARTE.CAR, содержащий данные, считанные с дорожки, – 240 бит.

Это 48 раз по 5 бит, то есть 40 полезных знаков, которые максимально может содержать дорожка ISO 2, и 40 бит нулей заполнения, избыток которых не важен.

Формат этого файла (.CAR) мы определили уже несколько лет назад для считывания чип-карт; текст в коде ASCII, состоящий исключительно из 1 и 0, разделенных пробелами. С учетом линейной структуры магнитных дорожек никакого разбиения ни на группы битов, ни на строки фиксированной длины предусмотрено не было. Преобразование двоичных данных в цифровые символы, а также другие интересные анализы будут доверены другим программам, написанным на GWBASIC. Программа предполагает, что адрес порта игровой приставки – 513 (в десятичной системе); это имеет место для всех действительно IBM PC-совместимых ПК.

После запуска программа ожидает момента, когда карта будет вставлена в считывающее устройство. Затем начинается процесс считывания информации, и после считывания 240 бит раздается звуковой сигнал. Отсутствие звукового сигнала свидетельствует, что было получено менее 240 бит: это означает некачественное считывание либо то, что карта не полностью запрограммирована.

В подобном случае необходимо вставить карту вторично. Если блокировка продолжается, воспользуйтесь другой картой, которая уже считывалась с первого раза. Чтобы непосредственно получить отображение содержимого дорожки в битовом виде, в оболочке из основной программы LECTISO2.BAS посредством строки 30 вызывается внешняя программа LECT75.EXE. При этом, конечно, необходимо, чтобы программа COMMAND.СОМ была доступна через путь поиска PATH, в котором должна быть соответствующая запись, либо просто скопирована в текущую директорию.

Обратите внимание, что все эти программы были написаны специально для работы в DOS. Рекомендуется воздержаться от их запуска через Windows (в окне DOS), поскольку это может замедлить их выполнение.

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

_{10 REM – LECTISO2.BAS —}

_{20 KEY OFF: CLS: PRINT: PRINT: PRINT: PRINT}

_{30 SHELL «LECT75.EXE»}

_{40 OPEN «carte.car» FOR INPUT AS #1}

_{50 DIM T(240)}

_{60 FOR F=1 TO 240}

_{70 INPUT#1,T(F)}

_{80 NEXT F}

_{90 J=1}

_{100 IF T(J)<>1 THEN 160}

_{110 IF T(J+1)<>1 THEN 160}

_{120 IF T(J+2)<>0 THEN 160}

_{130 IF T(J+3)<>1 THEN 160}

_{140 IF T{J+4)<>0 THEN 160}

_{150 K=J: GOTO 200}

_{160 J=J+1: GOTO 100}

_200 C$=""

_{210 FOR F=0 TO 4}

_{220 IF T(K+F) =0 THEN C$=C$+"0"}

_{230 IF T(K+F) =1 THEN C$=C$+"1"}

_{240 NEXT F}

_{250 GOSUB 2000}

_{260 K=K+5: IF K>235 THEN END}

_{270 GOTO 200}

_{2000 IF C$="11010* THEN PRINT «{start}»}

_{2010 IF C$="10110" THEN PRINT «{sep}»}

_{2020 IF CS="11111" THEN PRINT «{end}»}

_{2030 IP C$="01011" THEN PRINT «{10}»;}

_{2040 IF C$="00111" THEN PRINT «{12}»;}

_{2050 IF C$="01110" THEN PRINT «{14)»;}

_{2060 IF C$="00001" THEN PRINT "0";}

_{2070 IF C$="10000" THEN PRINT "1";}

_{2080 IF C$="01000" THEN PRINT "2";}

_{2090 IF C$="11001" THEN PRINT "3";}

_{2100 IF C$="00100“ THEN PRINT "4";}

_{2110 IF C$="10101" THEN PRINT "5";}

_{2120 IF C$="01101" THEN PRINT "6";}

_{2130 IF C$="11100" THEN PRINT "7";}

_{2140 IF C$="00010" THEN PRINT "8";}

_{2150 IF C$="10011" THEN PRINT "9";}

_{2170 RETURN}

_{3000 REM (c) 1996 Patrick GUEULLE}

Программа LECTISО2.BAS – основная программа, которую вы будете использовать для считывания дорожки ISO 2 стандартных магнитных карт. Если LECT75.EXE присутствует в текущей директории (наряду с COMMAND.COM), то любое прохождение читаемой карты (в правильном направлении) должно привести к отображению 240 считанных бит и соответствующих цифровых данных.

Ниже показано, что это дает в конкретном случае с файлом TEST5.CAR, представленным на сайте www.dmk.ru. Так, файл TEST5.CAR, декодированный с помощью программы LECTISО2.BAS, будет иметь следующий вид:

Одновременно создается файл CARTE.CAR, который нетрудно переименовать в DOS (командой REN), если есть желание его сохранить. Ни один из тестов (на четность или LRC) не производится.

Такие проверки можно осуществить по запросу при необходимости (дальше будут представлены соответствующие программы). Однако при этом существует риск сбоя в считывании некоторых нестандартных карт.

При отображении данных, записанных на дорожке, используются не стандартные «кабалистические* знаки, представленные выше в виде пяти– и семибитного кода ANSI, а знаки в более наглядной форме:

• флажок начала: {start};

• разделитель полей: {sep};

• флажок конца: {end};

• специальные знаки: {10}, {12} и {14}.

Внимание: не путайте эти фигурные скобки с простыми!

Считывание дорожки ISO 1

Работать с дорожкой ISO 1 несколько сложнее, поскольку обычно она записана с плотностью 210 bpi и содержит семиразрядные коды алфавитно-цифровых символов.

Осуществить считывание позволяет программа LECT210.PAS, которая работает аналогично LECT75.PAS. Ее исполняемая версия (LECT210.EXE) может использоваться либо самостоятельно для создания файла CARTE.CAR на 630 бит, либо вызываться из другой программы в оболочке Basic.

Отметим, что 630 бит – это 90 раз по 7 бит, то есть они соответствуют 79 знакам, которые максимально может содержать дорожка ISO 1, плюс 77 нулей заполнения.

_{10 REM – LECTISO1.BAS —}

_{20 KEY OFF: CLS: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT}

_{30 SHELL «LECT210.EXE»}

_{40 OPEN «carte.car» FOR INPUT AS #1}

_{50 DIM T(630)}

_{60 FOR F=1 TO 630}

_{70 INPUT#1,T(F)}

_{80 NEXT F}

_{90 J=1}

_{100 IF T(J)<>1 THEN 160}

_{110 IF T(J+1)<>0 THEN 160}

_{120 IF T(J+2)<>1 THEN 160}

_{130 IF T(J*3)<>0 THEN 160}

_{140 IF T(J+4)<>0 THEN 160}

_{141 IF T(J+5)<>0 THEN 160}

_{142 IF T(J+6)<>1 THEN 160}

_{150 K=J: GOTO 200}

_{160 J=J+1:GOTO 100}

_200 C$=""

_{210 FOR F=0 TO 6}

_{220 IF T(K+F) =0 THEN C$=C$+"0"}

_{230 IF T(K+F)=1 THEN C$»C$+"1"}

_{240 NEXT F}

_{250 GOSUB 2000}

_{260 K=K+7: IF K>623 THEN END}

_{270 GOTO 200}

_{2000 IF C$="1010001" THEN PRINT «{start}»}

_{2010 IF C$="0111110" THEN PRINT «{sep}»}

_{2020 IF C$="1111100" THEN PRINT «{end}»}

_{2030 IF C$="0000001" THEN PRINT " ";}

_{2031 IF C$="1000000" THEN PRINT «{1H}»;}

_{2032 IF C$="0100000" THEN PRINT «{2H}»;}

_{2033 IF C$="1100001" THEN PRINT «{3H}»;}

_{2034 IF C$="0010000" THEN PRINT «{4H}»;}

_{2036 IF C$="0110001" THEN PRINT «{6H}»;}

_{2037 IF C$="1110000" THEN PRINT «{7H}»;}

_{2038 IF C$="0001000" THEN PRINT «{8H}»;}

_{2039 IF C$="1001001" THEN PRINT «{9H}»;}

_{2040 IF C$="0101001" THEN PRINT «{AH}»;}

_{2041 IF C$="1101000" THEN PRINT «{BH}»;}

_{2042 IF C$="0011001– THEN PRINT «{CH}»;}

_{2043 IF C$="1011000– THEN PRINT «{DH}»;}

_{2044 IF C$="0111000" THEN PRINT «{EH}»;}

_{2045 IF C$="1111001" THEN PRINT «{FH}»;}

_{2060 IF C$="0000100" THEN PRINT "0";}

_{2070 IF C$="1000101" THEN PRINT "1";}

_{2080 IF C$="0100101" THEN PRINT "2";}

_{2090 IF C$="1100100" THEN PRINT "3";}

_{2100 IF C$="0010101" THEN PRINT "4"}

_{2110 IF C$="1010100" THEN PRINT "5"}

_{2120 IF C$="0110100" THEN PRINT "6";}

_{2130 IF C$="1110101" THEN PRINT "7"}

_{2140 IF C$="0001101" THEN PRINT "8";}

_{2150 IF C$="1001100" THEN PRINT "9";}

_{2151 IF C$="0101100" THEN PRINT «{1AH}»;}

_{2152 IF C$*"1101101" THEN PRINT «{1BH}»;}

_{2153 IF C$="0011100" THEN PRINT «{1CH}»;}

_{2154 IF C$="1011101" THEN PRINT «{1DH}»;}

_{2155 IF C$="0111101" THEN PRINT «{1EH}»;}

_{2160 IF C$="1000011" THEN PRINT "A";}

_{2161 IF C$="0100011" THEN PRINT "В";}

_{2162 IF C$="1100010" THEN PRINT "C";}

_{2163 IF C$="0010011" THEN PRINT "D";}

_{2164 IF C$="1010010" THEN PRINT "E";}

_{2165 IF C$="0110010" THEN PRINT "F";}

_{2166 IF C$="1110011" THEN PRINT "G";}

_{2167 IF C$="0001011" THEN PRINT "H";}

_{2168 IF C$="1001010" THEN PRINT "I";}

_{2169 IF C$="0101010" THEN PRINT "J";}

_{2170 IF C$="1101011" THEN PRINT "K";}

_{2171 IF C$="0011010" THEN PRINT "L";}

_{2172 IF C$="1011011" THEN PRINT "M";}

_{2173 IF С$="0111011" THEN PRINT "N";}

_{2174 IF C$="1111010' THEN PRINT "O";}

_{2175 IF C$="0000111” THEN PRINT "P";}

_{2176 IF C$="1000110" THEN PRINT "Q";}

_{2177 IF C$="0100110" THEN PRINT "R";}

_{2178 IF C$="1100111" THEN PRINT "S";}

_{2179 IF C$="0010110" THEN PRINT "T";}

_{2180 IF C$="1010111" THEN PRINT "U";}

_{2181 IF C$="0110111" THEN PRINT "V";}

_{2182 IF C$="1110110" THEN PRINT "W;}

_{2183 IF C$="0001110" THEN PRINT "X";}

_{2184 IF C$="1001111" THEN PRINT "Y";}

_{2185 IF C$="0101111" THEN PRINT "Z";}

_{2190 IF C$="1101110" THEN PRINT "{3BH);}

_{2191 IF C$="0011111" THEN PRINT "{3DH);}

_{2192 IF C$="1011110" THEN PRINT "{3EH);}

_{2193 IF C$="1111111" THEN PRINT "{40H};}

_{2999 RETURN}

_{3000 REM (c) 1996 Patrick GUEULLE}

LECTISO1.BAS – основная программа, которая посредством вызова

LECT210.EXE выполняет следующие операции:

• считывает 630 бит с дорожки ISO 1 и создает файл CARTE.CAR;

• отображает считанные 630 бит;

• отображает соответствующие алфавитно-цифровые символы.

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

Считывание дорожки ISO 3

Как и ISO 1, дорожка ISO 3 имеет плотность записи 210 bpi, но она содержит цифровые данные, которые закодированы пятиразрядным кодом.

Считывание производится при помощи программы LECT210.EXE, но считанные 630 бит на этот раз соответствуют 126 группам по 5 бит. На самом деле в записи может содержаться 107 цифр плюс 95 нулей заполнения.

Для запуска считывающей программы и декодирования требуется основная программа, которая по аналогии с LECTISO1 и LECTISO2 получила название LECTISO3.BAS.

_{10 REM – LECTIS03. BAS —}

_{20 KEY OFF: CLS: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT}

_{30 SHELL «LECT210.EXE»}

_{40 OPEN «carte.car» FOR INPUT AS #I}

_{50 DIM T(630)}

_{60 FOR F=1 TO 630}

_{70 INPUT #1,T(F)}

_{80 NEXT F}

_{90 J=1}

_{100 IF T(J)<>1 THEN 160}

_{110 IF T(J+1)<>1 THEN 160}

_{120 IF T(J+2)<>0 THEN 160}

_{130 IF T(J+3)<>1 THEN 160}

_{140 IF T(J+4)<>0 THEN 160}

_{150 K=J: GOTO 200}

_{160 J=J+1: GOTO 100}

_200 C$=""

_{210 FOR F=0 TO 4}

_{220 IF T(K+F)=0 THEN C$=C$ +"0"}

_{230 IF T(K+F) =1 THEN C$=C$+"1"}

_{240 NEXT F}

_{250 GOSUB 2000}

_{260 K=K+5: IF K>623 THEN END}

_{270 GOTO 200}

_{2000 IF C$="11010" THEN PRINT «{start}»}

_{2010 IF C$="10110" THEN PRINT «{sep}»}

_{2020 IF C$="11111" THEN PRINT «{end}»}

_{2030 IF C$="01011" THEN PRINT «{10}»;}

_{2040 IF C$="00111" THEN PRINT «{12}»;}

_{2050 IF C$="01110" THEN PRINT «{14}»;}

_{2060 IF C$="00001" THEN PRINT "0";}

_{2070 IF C$="10000" THEN PRINT "1";}

_{2080 IF C$="01000" THEN PRINT "2";}

_{2090 IF C$="11001" THEN PRINT "3";}

_{2100 IF C$="00100" THEN PRINT "4";}

_{2110 IF C$="10101" THEN PRINT "5";}

_{2120 IF C$="01101" THEN PRINT "6";}

_{2130 IF C$="11100" THEN PRINT "7";}

_{2140 IF C$="00010" THEN PRINT "8";}

_{2150 IF C$="10011" THEN PRINT "9";}

_{2999 RETURN}

_{3000 REM (c)1996 Patrick GUEULLE}

Эта программа абсолютно идентична LECTISO2, но она дает несколько более громоздкие результаты.

ПРОГРАММЫ ПРЕОБРАЗОВАНИЯ

Файлы с расширением .CAR, полученные с помощью LECT75 и LECT210, естественно, не вызывают никаких проблем совместимости с программами данной книги. Однако это не всегда получается при их использовании в другом контексте, что, конечно, вправе сделать любой из наших читателей.

Ниже приводятся несколько весьма полезных служебных программ для решения небольших проблем, которые рано или поздно могут появиться.

Программа выравнивания

Как уже показывалось, наши программы считывания магнитных дорожек создают линейные – однострочные, то есть без специальных символов перехода на новую строку, – файлы с расширением .CAR. Это нисколько не мешает их отображению, например с помощью команды ТУРЕ операционной системы DOS, но может возникнуть желание их распечатать или сохранить в более удобном формате.

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

_{10 REM – JUSTCAR. 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 NS: FOR INPUT AS #1}

_{100 OPEN «carte.bak» FOR OUTPUT AS #2}

_{110 DIM M(LOF(1)): CLS}

_{120 L=0: WHILE NOT EOF(1)}

_{130 INPUT#1,M(L)}

_{140 PRINT#2,M(L);: L=L+1}

_{150 WEND}

_{160 CLOSE #1}

_{170 OPEN NS FOR OUTPUT AS #1}

_{180 G=0: FOR F=0 TO L-1}

_{190 PRINT M(F);}

_{200 IF M(F)=1 THEN PRINT#1,"1";}

_{210 IF M(F)=0 THEN PRINT#1,"0";}

_{220 G=G+1: IF G=32 THEN PRINT#1, G=0}

_{230 NEXT F: PRINT}

_{240 END}

_{250 REM COPYRIGHT (c) 1996 Patrick GUEULLE}

Отметим, что аварийный файл CARTE.ВАК был создан прежде всего для сохранения данных в случае сбоя, происшедшего во время обработки (разрыв сети и т. д.).

Кроме того, если имя исходного файла содержит расширение .CAR, у нас не будет необходимости его набирать, поскольку оно добавится автоматически.

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

Ниже показано, что получается при обработке файла TEST5.CAR с помощью программы JUSTCAR.

Программа инвертирования

Большинство считывающих устройств, начиная с описанных в данной главе, ожидают прохода карты в строго определенном направлении – как правило, это слева направо перед головкой. Иногда приходится проводить карту в обратном направлении (справа налево) или работать с нестандартными картами, записанными наоборот.

Программа INVERT.BAS способна «перевернуть» любой файл .CAR вне зависимости от его длины.

_{10 REM – INVERT.BAS —}

_{20 KEY OFF: CLS}

_{30 PRINT «имя файла, который следует перевернуть?»}

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

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

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

_{70 NEXT F}

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

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

_{100 OPEN «carte.bak» FOR OUTPUT AS #2}

_{110 DIM M(LOF(1)): CLS}

_{120 L=0: WHILE NOT EOF (1)}

_{130 INPUT #1,M(L)}

_{140 PRINT#2,M(L);: L=L+1}

_{150 WEND}

_{160 CLOSE #1}

_{170 OPEN N$ FOR OUTPUT AS #1}

_{180 FOR F=L-1 TO 0 STEP -1}

_{190 PRINT M(F);}

_{200 IF M(F)=1 THEN PRINT#1,"1";}

_{210 IF M(F)=0 THEN PRINT#1,"0";}

_{220 NEXT F: PRINT}

_{230 END}

_{240 REM COPYRIGHT (c)1997 Patrick GUEULLE}

Ниже представлен результат, полученный с помощью файла-образца TEST5.CAR.

Программа преобразования в формат .CRD

Автор этой книги, естественно, не единственный в мире любитель магнитных карт, тем более что этот «вид спорта» особенно популярен в США. За океаном предпочтение отдают файлам формата .CRD,который отличается от .CAR отсутствием пробелов.

Поскольку в Internet можно встретить интересные программы, использующие формат .CRD, нам показалось полезным снабдить читателей служебной программой, способной сделать файлы .CAR совместимыми с ними. Речь идет о программе CARTOCRD.BAS.

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

_{10 REM – CARTOCRD.BAS —}

_{20 CLS: KEY OFF}

_{30 PRINT «Преобразование файла CARTE.CAR в CARTE.CRD»}

_{40 OPEN «carte.car» FOR INPUT AS #1}

_{50 OPEN «carte.crd» FOR OUTPUT AS #2}

_{60 IF EOF(1) THEN 110}

_{70 INPUT #1,A}

_{80 IF A=1 THEN PRINT#2,"1";}

_{90 IF A=0 THEN PRINT#2,"0";}

_{100 GOTO 60}

_{110 PRINT «Выполнено»: BEEP}

_{120 END}

_{130 REM (c) 1996 Patrick GUEULLE}

Ниже показано, во что превращается файл TEST5.CAR, обработанный программой CARTOCRD.BAS (сначала его надо скопировать под именем CARTE .CAR).

Программа импорта файлов

Служебная программа CRDTOCAR.BAS осуществляет обратную операцию по отношению к предыдущей. Иначе говоря, выполняет преобразование файла CARTE.CRD в CARTE.CAR, совместимый со всеми нашими остальными программами.

_{10 REM – CRDTOCAR.BAS —}

_{20 CLS: KEY OFF}

_{30 PRINT «Преобразование файла CARTE.CRD в CARTE.CAR»}

_{40 OPEN «carte.crd» FOR INPUT AS #1}

_{50 OPEN «carte.car» FOR OUTPUT AS #2}

_{60 IF EOF (1) THEN 110}

_{70 A$=INPUT$ (1,#1)}

_{80 IF A$="1" THEN PRINT#2,"1";: GOT0 60}

_{90 IF A$="0" THEN PRINT#2,"0";: GOTO 60}

_{10 °CLS: BEEP: PRINT «CARTE.CRD не соответствует формату CRD»: END}

_{110 PRINT «Выполнено»: BEEP}

_{120 END}

_{130 REM (c) 1997 Patrick GUEULLE}

Этим можно воспользоваться, чтобы извлечь пользу из файлов. CRD, полученных от пользователей, работающих, например, с программой CARDOMAT, очень высоко ценимой в США, которая, надо признаться, несколько подстегнула воображение автора…

Рекомендуется сначала скопировать исходный файл под именем CARTE.CRD, в то время как результат преобразования будет носить имя CARTE.CAR.

ДЕКОДИРОВАНИЕ ПЯТИБИТНЫХ СИМВОЛОВ

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

Наши программы LECTISO не подходят для решения такой задачи по двум основным причинам. Во-первых, они созданы специально для управления операцией считывания в оболочке, а не для работы в автономном режиме. Во-вторых, каждая из них разработана для строго определенной дорожки ISO, а значит, рассчитана на определенное число битов.

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

Познакомиться с работой DECS.BAS можно, предложив ей декодировать файл TEST5 .CAR, который есть на сайте www.dmk.ru.

_{10 REM – DEC5.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 L=INT(LOF(1)/2)-1}

_{110 DIM T(LOF (1))}

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

_{130 INPUT#1,T(F): F=F+1}

_{140 WEND}

_{150 J=1}

_{160 IF T(J)<>1 THEN 220}

_{170 IF T(J+1)<>1 THEN 220}

_{180 IF T(J+2)<>0 THEN 220}

_{190 IF T(J+3)<>1 THEN 220}

_{200 IF T(J+4)<>0 THEN 220}

_{210 K=J: GOTO 230}

_{220 J=J+1: GOTO 160}

_230 C$=""

_{240 FOR F=0 TO 4}

_{2S0 IF T(K+F) =0 THEN C$=C$+"0"}

_{260 IF T(K+F) =1 THEN C$=C$+"1"}

_{270 NEXT F}

_{280 GOSUB 310}

_{290 K=K+5: IF K>L-1 THEN END}

_{300 GOTO 230}

_{310 IF C$ = «11010» THEN PRINT «{Start}»}

_{320 IF C$ = «10110» THEN PRINT « {sep}»}

_{330 IF C$ = «11111» THEN PRINT «{end}»}

_{340 IF C$ = «01011» THEN PRINT «{10}»;}

_{350 IF C$ = «00111» THEN PRINT «{12}»;}

_{360 IF C$ = «01110» THEN PRINT «{14}»;}

_{370 IF C$ = «00001» THEN PRINT "0";}

_{380 IF C$ = «10000» THEN PRINT "1";}

_{390 IF С$ = «01000» THEN PRINT "2";}

_{400 IF C$ = «11001» THEN PRINT "3";}

_{410 IF C$ = «00100» THEN PRINT "4";}

_{420 IF C$ = «10101» THEN PRINT "5";}

_{430 IF C$ = «01101» THEN PRINT "6";}

_{440 IF C$ = «11100» THEN PRINT -7";}

_{450 IF C$ = «00010» THEN PRINT "8";}

_{460 IF C$ = «10011» THEN PRINT "9";}

_{470 RETURN}

_{480 REM (с) 1996 Patrick GUEULLE}

ДЕКОДИРОВАНИЕ СЕМИБИТНЫХ СИМВОЛОВ

Программа DEC7.BAS выполняет функцию, аналогичную выполняемой программой DEC5, но с алфавитно-цифровыми файлами, символы которых закодированы семью битами.

_{10 REM – DEC7.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 L=INT(LOF(1)/2)-1}

_{110 DIM T (LOF (1))}

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

_{130 INPUT#1,T(F): F=F+1}

_{140 WEND}

_{150 J=1}

_{160 IF T(J)<>1 THEN 240}

_{170 IF T(J+1)<>0 THEN 240}

_{180 IF T(J+2)<>1 THEN 240}

_{190 IF T(J+3)<>0 THEN 240}

_{200 IF T(J+4)<>0 THEN 240}

_{210 IF T(J+5)<>0 THEN 240}

_{220 IF T(J+6)<>1 THEN 240}

_{230 K=J: GOTO 250}

_{240 J=J+1: GOTO 160}

_250 C$=""

_{260 FOR F=0 TO 6}

_{270 IF T(K+F)=0 THEN C$=C$+"0"}

_{280 IF T(K+F)=1 THEN C$=C$+"1"}

_{290 NEXT F}

_{300 GOSUB 330}

_{310 K=K+7: IF K>L-1 THEN END}

_{320 GOTO 250}

_{330 IF C$="1010001" THEN PRINT «{start}»}

_{340 IF C$="0111110" THEN PRINT «{sep}»}

_{350 IF C$="1111100" THEN PRINT «{end}»}

_{360 IF C$="0000001" THEN PRINT " ";}

_{370 IF C$="1000000" THEN PRINT «{1H}»;}

_{380 IF C$="0100000" THEN PRINT «{2H}»;}

_{390 IF C$="1100001" THEN PRINT «{3H}»;}

_{400 IF C$="0010000" THEN PRINT «{4H}»;}

_{410 IF C$="0110001" THEN PRINT «{6H}»;}

_{420 IF C$="1110000" THEN PRINT «{7H}»;}

_{430 IF C$="0001000" THEN PRINT «{8H}»;}

_{440 IF C$="1001001" THEN PRINT «{9H}»;}

_{450 IF C$="0101001" THEN PRINT «{AH}»;}

_{460 IF C$="1101000" THEN PRINT «{BH}»;}

_{470 IF C$="0011001" THEN PRINT «{CH}»;}

_{480 IF C$="1011000" THEN PRINT «{DH}»;}

_{490 IF C$="0111000" THEN PRINT «{EH}»;}

_{500 IF C$="1111001" THEN PRINT «{FH}»;}

_{510 IF C$="0000100" THEN PRINT "0";}

_{520 IF C$="1000101" THEN PRINT "1";}

_{530 IF C$="0100101" THEN PRINT "2";}

_{540 IF C$="1100100" THEN PRINT "3";}

_{550 IF C$="0010101" THEN PRINT "4";}

_{560 IF C$="1010100" THEN PRINT "5";}

_{570 IF C$="0110100" THEN PRINT "6";}

_{580 IF C$="1110101" THEN PRINT "7";}

_{590 IF C$="0001101" THEN PRINT "8";}

_{600 IF C$="1001100" THEN PRINT "9";}

_{610 IF C$="0101100“ THEN PRINT «{1AH}»;}

_{620 IF C$="1101101" THEN PRINT «{1BH}»;}

_{630 IF C$="0011100" THEN PRINT «{1CH}»;}

_{640 IF C$="1011101" THEN PRINT «{1DH}»;}

_{650 IF C$="0111101" THEN PRINT «{1EH}»;}

_{660 IF С$="1000011" THEN PRINT "A";}

_{670 IF C$="0100011" THEN PRINT "В";}

_{680 IF C$="1100010" THEN PRINT "C";}

_{690 IF C$="0010011" THEN PRINT "D";}

_{700 IF С$="1010010^" THEN PRINT "E";}

_{710 IF C$="0110010" THEN PRINT "F";}

_{720 IF C$="1110011" THEN PRINT "G";}

_{730 IF C$="0001011" THEN PRINT "H";}

_{740 IF C$="1001010" THEN PRINT "I";}

_{750 IF C$="0101010" THEN PRINT "J";}

_{760 IF C$="1101011" THEN PRINT "K";}

_{770 IF C$="0011010" THEN PRINT "L";}

_{780 IF C$="1011011" THEN PRINT "M";}

_{790 IF C$="0111011" THEN PRINT "N";}

_{800 IF C$="1111010" THEN PRINT "O";}

_{810 IF C$="0000111" THEN PRINT "P";}

_{820 IF C$="1000110" THEN PRINT "Q";}

_{830 IF C$="0100110" THEN PRINT "R";}

_{840 IF C$="1100111" THEN PRINT "S";}

_{850 IF C$="0010110" THEN PRINT "T";}

_{860 IF C$="1010111" THEN PRINT "U";}

_{870 IF C$="0110111" THEN PRINT "V";}

_{880 IF C$="1110110" THEN PRINT "W";}

_{890 IF C$="0001110' THEN PRINT "X";}

_{900 IF C$="1001111" THEN PRINT "Y";}

_{910 IF C$="0101111" THEN PRINT "Z";}

_{920 IF C$="1101110'' THEN PRINT «{3BH}»;}

_{930 IF C$="0011111" THEN PRINT «{3DH}»;}

_{940 IF C$="1011110" THEN PRINT «{3EH}»}

_{950 IF C$="1111111" THEN PRINT «{40H}»;}

_{960 RETURN}

_{970 REM (c) 1996 Patrick GUEULLE}

КОНТРОЛЬ ЧЕТНОСТИ

Время от времени приходится сталкиваться с файлом .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, но только после его декодирования. Речь идет не о серии битов, а о числе, состоящем из некоторого количества цифр помимо битов заполнения.