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

Если необходимо использовать порт LPT1, то предварительно отключается принтер и вместо исполняемого файла MAGWRITE.EXE берется MAGWRITE1.EXE.

Эта программа предназначена строго для кодирования дорожки ISO 2 стандартных карт, следовательно, записывает она с плотностью 75 bpi. Кодирование с плотностью 210 bpi хотя и возможно, но значительно сложнее, а потому рассматриваться не будет.

При желании читатели могут разработать собственные способы кодирования с плотностью 210 bpi. Однако они не могут обвинить нас в том, что мы не преподнесли на блюдечке методы производства, скажем, хорошо имитированных кредитных карт.

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

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

ПРОГРАММА ДЛЯ КОДИРОВАНИЯ ДОРОЖКИ ISO 2

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

_{10 REM — CREMAG.BAS —}

_{20 KEY OFF: CLS}

_{30 PRINT "Ввести данные, предназначенные для записи,"}

_{40 PRINT "затем нажать ENTER"}

_{50 А$=""}

_{60 INPUT В$}

_{70 IF В$ = "" THEN 100}

_{80 А$=А$+В$}

_{90 GOTO 60}

_{100 C$="0000000000"}

_{110 FOR F=1 ТО LEN(A$)}

_{120 IF MID$(A$,F,1)="0" THEN C$=C$+"00001": GOTO 240}

_{130 IF MID$(A$,F,1)="1" THEN C$=C$+"10000": GOTO 240}

_{140 IF MID$(A$,F,1)="2" THEN C$=C$+"01000": GOTO 240}

_{150 IF MID$(A$,F,1)="3" THEN C$=C$+"11001": GOTO 240}

_{160 IF MID$(A$,F,1)="4" THEN C$=C$+"00100": GOTO 240}

_{170 IF MID$(A$,F,1)="5" THEN C$*C$+"10101": GOTO 240}

_{180 IF MID$(A$,F,1)="6" THEN C$=C$+"01101": GOTO 240}

_{190 IF MID$(A$,F,1)="7" THEN C$=C$+"11100": GOTO 240}

_{200 IF MID$(A$,F,1)="8" THEN C$=C$+"00010": GOTO 240}

_{210 IF MID$(A$,F,1)="9" THEN C$=C$+"10011": GOTO 240}

_{220 IF MID$(A$,F,1)=" {" THEN 370}

_{230 PRINT: PRINT "Данные не действительны (запрещенные СИМВОЛЫ)": ВЕЕР: END}

_{240 NEXT F}

_{250 IF LEN(C$)<=210 THEN 270}

_{260 PRINT: PRINT "Данные слишком длинные (максимум 40 цифровых символов)": END}

_{270 C$="0"+С$}

_{280 IF LEN (C$) =240 THEN 320}

_{290 C$=C$+"0"}

_{300 IF LEN(C$)=240 THEN 320}

_{310 GOTO 270}

_{320 OPEN "carte.car" FOR OUTPUT AS #1}

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

_{340 PRINT#1,MID$(C$,F,1)+CHR$(32);}

_{350 NEXT F}

_{360 CLS: PRINT: PRINT "Файл CARTE.CAR готов": BEEP: END}

_{500 IF MID$(A$,F,1)<>T THEN 230}

_{510 GOTO 240}

_{520 REM (c)1996 Patrick GUEULLE}

Как и программа MAGWRITE, CREMAG предназначена для кодирования дорожки ISO 2 и, следовательно, будет обрабатывать только цифровые данные. Разделительные символы воспринимаются именно в том виде, в каком их отображает DEC5, то есть в фигурных скобках (а не в простых круглых скобках или кавычках).

Так, флажок старта будет записан как {start}, флажок конца как {end}, разделитель полей как {sep}.

Перейти на новую строку можно путем однократного нажатия на клавишу ENTER. Создание файла .CAR инициируется двукратным нажатием этой клавиши.

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

ПРОГРАММА РАСЧЕТА КОНТРОЛЬНЫХ КЛЮЧЕЙ

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