Раніше використані картки можна було обміняти на пошті, але тепер, з введенням в обіг одноразових карток, все змінилося Після того, як картка закінчилася, її можна тільки викинути або покласти в колекцію. Але не поспішайте викидати використану картку. Вона ще може послужити в якості електронного ключа або пароль для ваших програм Мікросхема в телефонній картці має 8 висновків, але реально використовуються тільки 5. Проте можна обійтися тільки чотирма Подивіться на мікросхему: найбільший за площею контакт – "земля" Розташування інших висновків показано на мал.1. Як вже згадувалося, один з контактів можна не використовувати. Цей контакт – живлення +5 V. Використовуються тільки контакти 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<< Електронний ключ, зроблений з картки, можна використовувати в якості пароля в системах шифровки даних, ключа для запуску програм і т.д. Джерело: Радіоаматорові 11/97, с.9
Автор: А. ФІЛЮТІЧ