НА ЧТО ГОДИТСЯ ТЕЛЕФОННАЯ КАРТОЧКА?



Категория: Охранные устройства


Раньше использованные карточки можно было обменять на почте, но теперь, с введением в оборот одноразовых карточек, все изменилось

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

Микросхема в телефонной карточке имеет 8 выводов, но реально используются только 5. Однако можно обойтись только четырьмя

Посмотрите на микросхему: самый большой по площади контакт — "земля"

Расположение остальных выводов показано на рис.1. Как уже упоминалось, один из контактов можно не использовать. Этот контакт — питание +5V. Используются только контакты Reset, Clock, Data и Gnd



Саму микросхему подключаем к ПК при помощи параллельного порта. Для этого требуется переходник, схема которого показана на рис.2. Подавая необходимые данные в порт 378h (базовый адрес LPT1), можно прочитать данные", записанные в микросхему. Это делается через бит 7 порта 379h. Нас интересуют только первые четыре байта данных, т.к. остальные содержат OOh. Первый прочитанный байт должен быть равен 7Вh. Три следующих — различны для разных карточек. Следует заметить, что информация, записанная в микросхему, постоянна и никогда не изменяется, т.е. не зависит от оставшегося количества минут

Ниже приведен текст программы, читающей информацию из карточки. Program TeleCard;
uses crt;
Const;
Copyright=;'(С) Филютич Алексей, 1997';
Var;
i,j,dat: byte;
Data: array [0..3] of byte;
{————————};
Function ReadCard:byte;
var;
S:byte;
begin;
asm ;
mov dx,379h ;
in a1,dx ;
mov c1,7 ;
shr a1,c1 ;
mov S,a1 ;
end;;
ReadCard:=S;
end;;
{——————————————};
Procedure WriteData (A: byte) ;assembler;
asm;
mov a1,A;
mov dx, 37Bh;
out dx,a1 ;
end;;
{————————————};
Procedure Next; {Увеличить адрес};
begin;
Delay (1) ;
WriteData (0);
WriteData (2) ;
WriteData (0);
end;
{——————————————}
Procedure Reset;
{Сброс микросхемы в исходное состояние}
var
A:byte;
begin
WriteData (0); {Сброс}
WriteData (1);
WriteData (3);
WriteData(l);
WriteData (0);
for a:=0 to 9 do
Next
WriteData(0); {Сброс}
WriteData(1);
WriteData (3);
WriteData (1);
WriteData (0);
end;
{-------------------}
Function Dec2Hex (value:byte): s






Рекомендуемый контент




Copyright © 2010-2017 housea.ru. Контакты: info@housea.ru При использовании материалов веб-сайта Домашнее Радио, гиперссылка на источник обязательна.