ATNEL tech-forum

Re: Zamek kodowy na kartę telefoniczną

2014-03-26T20:41:11+01:00

Witam! Ja kupiłem ten czytnikhttp://allegro.pl/demodulator-rfid-unique-em4095-i4059203430.html tylko,ze z antena.Odczytuje kartę z odległości około 20-40 cm.Antena nie może być przykryta niczym metalowym. Kod gdzieś mam muszę poszukać,ale bascom ma biblioteki do tego i chyba w saplach jest programik.Wykorzystuje timer1 i w przerwaniu odczytuje kartę.Jak będziesz miał czytnik do odkopie schemat i jak procka skonfigurować.
edit:
[syntax=basic4gl]'*********kanfiguracja RFID ***********

Config Hitag = 64 , Type = Em4095 , Demod = Pind.3 , Int = @int1
Rfid_mod Alias Portd.4
Rfid_mod_pin Alias Pind.4
Rfid_shd Alias Portd.2
Rfid_shd_pin Alias Pind.2 'przypisujemy nazwy pinów do odpowiednich wyprowadzeń czytnika

Config Rfid_mod_pin = Output
Config Rfid_shd_pin = Output 'piny konfigurujemy jako wyjścia

Reset Rfid_mod
Reset Rfid_shd
Waitms 100
Set Rfid_shd
Waitms 100
Reset Rfid_shd
Dim Tags(5) As Byte
On Int1 Checkints Nosave
Config Int1 = Change
Enable Interrupts[/syntax]

i w petli odczytujesz
[syntax=basic4gl]'********************RFID********************************

Waitms 100

If Readhitag(tags(1)) = 1 Then 'odczytujemy dane z czytnika, jeśli funkcja zwróci 1 oznacza to, że karta została odczytana
M = Hex(tags(1)) 'm =numer karty
Set Buz
Waitms 150
Reset Buz[/syntax]
To chyba wszystko .Powycinałem to ze swojego programu ,który pisałem dawno i trochę pozapominałem.
Karty odczytuje chyba dowolne oby były 125khz.Ja numery kart odczytywałem i numery zapisywałem w eeprom i porównywałem je po odczytaniu.Ale lepiej chyba zapisywać na karcie Sd wtedy nie ma praktycznie żadnego limitu.

Statystyki: Napisane przez grzeniu 73 — 26 mar 2014, o 20:41

Re: Zamek kodowy na kartę telefoniczną

2014-03-25T21:50:30+01:00

Masz jakiś soft dla bascoma pod konkretny RFID czy działa na każdym RFID ?
Możesz podzielić się kodem i inoformacją co kupić żeby to uruchomić ?

Statystyki: Napisane przez matrix — 25 mar 2014, o 21:50

Re: Zamek kodowy na kartę telefoniczną

2014-03-25T21:32:50+01:00

No i w bascom jest biblioteka.Karta tez chciałem sie pobawić kiedyś ale nie miałem żadnego przykładu na jakim sie moglem oprzeć.Kupilem czytnik RFID i po problemie.Z RFID w bascom mogę pomoc w razie co.

Statystyki: Napisane przez grzeniu 73 — 25 mar 2014, o 21:32

Re: Zamek kodowy na kartę telefoniczną

2014-03-23T20:11:41+01:00

Z pewnością coś w tym jest i też o tym myślałem. Na razie jakoś nie było czasu się tym zająć a kartę telefoniczną mam pod ręką, gniazdo do niej też.
Skoro już zabrałem głos to muszę jeszcze się odnieść do programu. Choć działa to nie do końca, czasem w ogóle nie można wgrać karty albo wgrana nie otwiera zamka.

Wszystko wskazuje na to że jednak trzeba będzie zająć się RFID. No i RFID można zastosować na zewnątrz.

Statystyki: Napisane przez matrix — 23 mar 2014, o 20:11

Re: Zamek kodowy na kartę telefoniczną

2014-03-23T19:56:42+01:00

A ja tak z ciekawości.Czemu bawicie się w karty telefoniczne skoro dużo łatwiej i chyba wygodniej można to samo uzyskać z kartami RFID.Czytnik i karty kosztują parę zl.Oprogramować to w bascom to pestka.Numery kard można trzymać na karcie SD albo w eeprom.

Statystyki: Napisane przez grzeniu 73 — 23 mar 2014, o 19:56

Re: Zamek kodowy na kartę telefoniczną

2014-03-18T17:02:43+01:00

Jak uruchomię Bascoma to na pewno będę testował.
Dzięki za podanie kolejnego rozwiązania.

Statystyki: Napisane przez matrix — 18 mar 2014, o 17:02

Re: Zamek kodowy na kartę telefoniczną

2014-03-18T15:39:16+01:00

A więc po kolei:
Na początku po wykryciu włożenia karty (krańcówka w gnieździe) musimy wykonać coś takiego:
-Stan wysoki na RST
-Impuls na CLK
-Stan niski na RST
Ponieważ u mnie procek nie robił nic innego poza odczytem karty, porównaniem z wartością zapisaną w eepromie i odpowiednim zareagowaniem to poszedłem po najmniejszej lini oporu korzystajac z poleceń waitms
[syntax=basic4gl]Set Rst
Waitus 10
Set Clk
Waitus 10
Reset Clk
Waitus 10
Reset Rst[/syntax]
Oczywiście wcześniej w programie napisałem odpowiednie aliasy
[syntax=basic4gl]Rst Alias Portd.2
Clk Alias Portd.3
Io Alias Portc.1
Ioo Alias Pinc.1
Status Alias Pind.4
On_card Alias Portc.5
Prog Alias Pinb.1
Red_led Alias Portc.4
Green_led Alias Portc.3
Speaker Alias Portd.6[/syntax]
Następnie
-dajemy 110 impulsów na CLK
-dajemy impuls na RST
-dajemy impuls na CLK
-czekamy 10uS
[syntax=basic4gl]For Impuls = 1 To 110
Clk = 1
Waitus 10
Clk = 0
Waitus 10
Next Impuls
Set Rst
Waitus 10
Reset Rst
Waitus 10
Set Clk
Waitus 10
Reset Clk
Waitus 10[/syntax]
Teraz:
-dajemy 177 impulsów na CLK
-wysyłamy nasze 48 bitowe pytanie
[syntax=basic4gl]Restore Pytanie
For Impuls = 1 To 48
Read Bufor
Io = Bufor
Set Clk
Waitus 10
Reset Clk
Waitus 10
Next Impuls[/syntax]
Nasze pytanie mam zapisane na końcu programu:
[syntax=basic4gl]Pytanie:
Data 1 , 0 , 1 , 1 , 1 , 0 , 0 , 1 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 1,
Data 0 , 1 , 1 , 0 , 0 , 0 , 0 , 1 , 1 , 0 , 1 , 0 , 1 , 1 , 1 , 0,
Data 1 , 0 , 0 , 0 , 0 , 0 , 1 , 1 , 1 , 0 , 1 , 0 , 1 , 0 , 1 , 1[/syntax]
To jak ono będzie wyglądało zależy już tylko od Ciebie!
Teraz zaczynamy odczytywać naszą odpowiedź
-ustawiamy linie IO jako input
-podciągamy ją do jedynki
-dajemy 160 impulsów na CLK
-czytamy pierwszy bit
-powtarzamy dwie ostatnie czynności aż do odczytania wszystkich 16 bitów
[syntax=basic4gl]Config Pinc.1 = Input
Io = 1
Impuls = 0
Odczyt = 0
For Odczyt = 1 To 16
For Impuls = 1 To 160
Clk = 1
Waitus 10
Clk = 0
Waitus 10
Next Impuls
Id_card.n = Ioo
N = N - 1
Next Odczyt[/syntax]
Oczywiście na początku programu zmiennej N przypisujemy wartość 15
Potem to już kilkadziesiąt instrukcji warunkowych, zapisywanie i odczyt z eepromu, funkca karty master i jakieś inne wodotryski. Patrząc teraz na ten kod, wiem że kilka rzeczy zrobił bym inaczej bo nie są to zbyt profesjonalne rozwiązania, więc proszę tego nie komentować
Jeśli masz jakieś pytania pisz, pomogę w miarę możliwości.

Statystyki: Napisane przez anonimowy — 18 mar 2014, o 15:39

Re: Zamek kodowy na kartę telefoniczną

2014-03-17T23:22:02+01:00

anonimowy napisał(a):

(...)jeśli będzie ktoś zainteresowany mogę dokładnie wytłumaczyć

No to zapodaj, bo pomimo iż powyższy kod działa to i tak jest z nim kłopot. Chętnie poznam kolejne alternatywy.

Statystyki: Napisane przez matrix — 17 mar 2014, o 23:22

Re: Zamek kodowy na kartę telefoniczną

2014-03-17T22:47:20+01:00

Jakiś czas temu sam wykonałem od podstaw urządzenia o takiej funkcjonalności. Udało mi się dorwać note karty i dowiedzieć się, jak odbywa się cała procedura odczytu unikalnego numeru karty. Mamy dwa sposoby: Albo odczytamy pierwsze 64 bitów z karty jako unikalny numer i to całe musimy przechowywać w pamięci(aż 8 bajtów!) albo wyślemy do karty 48 bitowe pytanie a ona po dokonaniu wewnątrz pewnych algorytmów odeśle nam 16 bitów odpowiedzi -unikalny numer- tak więc do zapisania w eepromie są tylko dwa bajty. Całość pisałem w bascomie. Jeśli będzie ktoś zainteresowany mogę dokładnie wytłumaczyć, ewentualnie pokazać kawałek kodu odpowiedzialny za to.
Schemat też bajecznie prosty( jak już wspomniałem było to jakieś dwa lata temu tak więc schemat nie wygląda najlepiej, ale połapać się można):

Statystyki: Napisane przez anonimowy — 17 mar 2014, o 22:47

Re: Zamek kodowy na kartę telefoniczną

2014-02-09T12:34:28+01:00

Matko słodka, stary, gdzieś Ty znalazł ten program? Wreszcie jeden z kilkunastu który działa jak trzeba. Na potrzeby mojej plytki EcvAVR musiałem lekko zmodyfikować soft, ale działa jak diabli.

Znaczy testowałem tylko na dwóch kartach. Jedna to typowa karta pomarańczowego operatora a druga to karta cyfrowego polsatu.
Kartę pomarańczowego operatora zapisuje jak trzeba i otwiera zamek natomiast kartę polsatu wywala jako uszkodzoną.

Jakbym miał więcej kart telefonicznych to bym potestował. Oszukać czytnika wkładając odwrotnie kartę też się nie da bo wywala że karta uszkodzona.

A, zapamiętanie jednej karty nie działa na trzeciej pozycji. Jedną kartę można zapamiętać na pierwszej pozycji, można też zapamiętać na drugiej, ale na trzeciej wywala że zła karta.

Jest jeszcze mały kłopot z zapisywaniem kart. Dorwałem drugą kartę i niestety żadnej sprawnej nie mogę zapisać na trzecim miejscu.
Dodatkowo strasznie jest to obostrzone czasem. Jeśli tylko wstawimy jakąś dodatkową linię wyświetlającą cokolwiek podczas odczytu karty to odczyt szlag trafi i wywali że zła karta.

Statystyki: Napisane przez matrix — 9 lut 2014, o 12:34

Re: Zamek kodowy na kartę telefoniczną

2013-10-21T20:43:47+01:00

Coś się zmieniło? Ktoś testował? Ja miałem ale czasu chorobcia znaleźć nie mogę.

Statystyki: Napisane przez matrix — 21 paź 2013, o 20:43

Re: Zamek kodowy na kartę telefoniczną

2013-08-12T19:49:36+01:00

Bardzo dziękuje za pomoc. W przyszłości zdam relacje czy układ działa. Teraz muszę znaleźć taką kartę telefoniczną. Czy myślicie że na karcie sim można spróbować ?

Statystyki: Napisane przez Elektronik — 12 sie 2013, o 19:49

Re: Zamek kodowy na kartę telefoniczną

2013-08-12T19:45:00+01:00

Wystarczy w google wpisać iso7816 i cos takiego znajdziesz.

Kartę najlepiej podłączyć przez czytnik kart.
Dla testów i jeśli nie zależy ci na karcie te kilka kabelków można przylutować do styków karty.

Pisałem pisałem i ubiegł mnie Sun

Statystyki: Napisane przez OdeOn — 12 sie 2013, o 19:45

Re: Zamek kodowy na kartę telefoniczną

2013-08-12T19:36:37+01:00

proszę bardzo

Statystyki: Napisane przez SunRiver — 12 sie 2013, o 19:36

Re: Zamek kodowy na kartę telefoniczną

2013-08-12T19:14:19+01:00

Jaglarz napisał(a):

Nawet nie zadałeś sobie trudu przeczytania choćby pierwszych linii programu.

A w piątej linii masz:

Quote:

schemat podłączenia czytnika w pliku jpg

A od linii 26 do 75 są ładne deklaracje pinów. Tylko korzystać.

Przeczytałem i w opisie tematu podałem które piny łączą się z kartą. Lecz nie wiem gdzie te przewodu oraz w jaki sposób połączyć z kartą który przewód w którą część chipu.

Statystyki: Napisane przez Elektronik — 12 sie 2013, o 19:14

Re: Zamek kodowy na kartę telefoniczną

2013-08-12T16:31:01+01:00

Natomiast ja wyjadę z innej beczki. Sprawdziłem już sporo tego typu programów i żaden nie chciał działać. Ciekawi mnie czy ten zadziała. Na razie niestety nie mam kiedy sprawdzić więc czekam aż ktoś zda relację.
Co do podłączenia karty to linie 70 do 74, proszę:

[syntax=basic4gl]I_o Alias Pinc.2 'Input/Output do karty
Clk Alias Portc.1 'Clock do karty
Rst Alias Portc.0 'reset pin from card
Zasilanie Alias Portc.3 'zasilanie karty
S1 Alias Pinc.5 'swicz oznaczający włożenie karty (podłączony do scl)[/syntax]

Statystyki: Napisane przez matrix — 12 sie 2013, o 16:31

Re: Zamek kodowy na kartę telefoniczną

2013-08-12T10:47:18+01:00

Nawet nie zadałeś sobie trudu przeczytania choćby pierwszych linii programu.

A w piątej linii masz:

Quote:

schemat podłączenia czytnika w pliku jpg

A od linii 26 do 75 są ładne deklaracje pinów. Tylko korzystać.

Statystyki: Napisane przez Jaglarz — 12 sie 2013, o 10:47

Zamek kodowy na kartę telefoniczną

2013-08-12T08:37:30+01:00

Witam

Posiadam program napisany w języku Bascom. Który załączał przekaźnik po włożeniu odpowiedniej karty telefonicznej. Program na pierwszy rzut oka działa na płytce lecz nie wiem w jaki sposób podłączać kartę telefoniczną aby była ona odczytywana przez mikrokontroler. Wiem że do komunikacji z kartą używało się portów ADC0-3 oraz ADC5 oraz GND. W jaki sposób można połączyć aby sobie zrobić taki unikalny zamek.

[syntax=basic4gl]' program zamka działającego na karte chipową na przykład od telefonu (tpsa lub inna)
' wszytko działa poprawnie, aby wejść w programowanie przy starcie wybież odpowiedni bank
' przez przyciśnięcie kalawisza 1 lub 2 lub 3
' program oczywiście można rozbudować o kolejne karty
' schemat podłączenia czytnika w pliku jpg

$regfile = "m8def.dat" 'informuje kompilator o pliku
'dyrektyw mikrokontrolera
$crystal = 8000000 'informuje kompilator
'o czŕstotliwoťci oscylatora
'taktuj¦cego mikrokontroler

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.6 , Db6 = Portd.7 , Db7 = Portd.4 , E = Portd.3 , Rs = Portd.2

Dim D As Byte , F As Byte , R As Byte , G As Byte , H As Byte
Dim A As Byte ' zmienna adres
Dim Error1 As Byte
Dim Error2 As Byte

Config Portb.0 = Output 'uniwersalne PK4
Config Portb.2 = Output 'wyjścia przekazników PK2
Config Portb.1 = Output 'wyjścia przekazników PK1
Config Portd.0 = Output 'wyjścia przekazników PK3

Config Pinb.3 = Input 'porty jako wejściowe ' pstryki
Config Pinb.4 = Input 'porty jako wejściowe pstryki
Config Pinb.5 = Input 'porty jako wejściowe pstryki

Set Portb.3 ' ustawia na stan wysoki pstryki
Set Portb.4 ' ustawia na stan wysoki pstryki
Set Portb.5 ' ustawia na stan wysoki pstryki

Up_sw Alias Pinb.5 ' Przycisk "UP"
Down_sw Alias Pinb.4 ' Przycisk "DOWN"
Ok_sw Alias Pinb.3 ' Przycisk "ENTER"
Pk1 Alias Portb.1 ' przekaznik1

Set Portb.5 'ustawiam pstryki na stan wysoki
Set Portb.4
Set Portb.3

Config Portc.0 = Output
Config Portc.1 = Output
Config Portc.3 = Output
Config Pinc.5 = Input
Config Pinc.4 = Input
Config Pinc.2 = Input

I_o Alias Pinc.2 'Input/Output do karty
Clk Alias Portc.1 'Clock do karty
Rst Alias Portc.0 'reset pin from card
Zasilanie Alias Portc.3 'zasilanie karty
S1 Alias Pinc.5 'swicz oznaczający włożenie karty (podłączony do scl)

Set S1
Reset Zasilanie
Reset Pk1 'wyłączenie przekaznika
Reset Rst 'reset = 0
Reset Clk 'clock = 0

Cursor Off

Cls
Lcd "teraz naucz karty"
Lowerline
Lcd " www.atmega8.pl "

Wait 2

If Up_sw = 0 Then ' nauka pierwszej karty
Cls
Lcd "ucze sie 1 karty"
Wait 1
Cls
A = 1
Do
Locate 1 , 1
Lcd "wloz karte"
Loop Until S1 = 1
Cls

Gosub Learn
Wait 1
Cls
Lcd "Numer 1"
Reset Zasilanie

End If

If Ok_sw = 0 Then ' nauka drugiej karty
Cls
Lcd "ucze sie 2 karty"
Wait 1
Cls
A = 40
Do
Locate 1 , 1
Lcd "wloz karte"
Loop Until S1 = 1
Cls
Gosub Learn
Wait 1
Cls
Lcd "Numer 2"
Reset Zasilanie
End If

If Down_sw = 0 Then ' nauka 3 karty
Cls
Lcd "ucze sie 3 karty"
Wait 1
Cls
A = 100
Do
Locate 1 , 1
Lcd "wloz karte"
Loop Until S1 = 1
Cls
Gosub Learn
Wait 1
Cls
Lcd "Numer 3"
Reset Zasilanie
End If

Cls
Lcd " czytnik kart "
Lowerline
Lcd " www.atmega8.pl "

Wait 1

' ------------------------ początek programu ----------------

Begin:
Wait 1
Reset Zasilanie 'wyłączam zasilanie
Cls
Lcd " Wloz karte "
Lowerline
Lcd " do czytnika "

Do
If S1 = 1 Then 'jełśi karta w slocie
Set Zasilanie 'włącz zasilanie
Waitms 50 'czekaj na start karty
Goto Start1
End If
Loop

Start1:
'reset
Set Rst '
Set Clk 'clock high
Waitus 50
Reset Rst 'reset low
Reset Clk 'clock low
Waitms 10 'wait 10ms before reading the card

Gosub Check ' przejdz do odczytu karty

End

Check:
Error1 = 0
Error2 = 0

For F = 0 To 31 'read 32 bits from the card
D = 0
For G = 0 To 7
D = D * 2
D = D + I_o
Set Clk
Waitms 5 'clock high
Locate 2 , 1
Lcd " czytam..... "

Reset Clk
Next G
If I_o = 1 Then Incr Error1
If I_o = 0 Then Incr Error2

A = 1

H = F + A
Readeeprom R , H ' sprawdzam 1 bank
Waitms 1
If D <> R Then
A = 40
' sprawdzam 2 bank
H = F + A
Readeeprom R , H
Waitms 1
If D <> R Then
A = 100

' sprawdzam 3 bank
H = F + A
Readeeprom R , H
Waitms 1
If D <> R Then Goto Error
End If
End If

Goto Cont

Cont:

If Error1 > 28 Or Error2 > 28 Then
Cls
Lcd "Karta uszkodzona"
Wait 2
Goto Begin

End If

Next F
Goto Ok
End

Learn:
Set Zasilanie

Set Rst '
Set Clk 'clock high
Waitus 50
Reset Rst 'reset low
Reset Clk 'clock low
Waitms 10 'wait 10ms before reading the card

Cls
Lcd "czytam karte"
Wait 1
For F = 0 To 31 'read the 32 bits from card
D = 0
For G = 0 To 7
D = D * 2
D = D + I_o
Set Clk 'clock high
Waitms 10
Locate 2 , F 'dolożylem
Lcd D

Reset Clk 'clock low
Next G
H = F + A
Writeeeprom D , H 'write data to eeprom
Next F
Cls
Lcd "zapamietalem "
Lowerline
Lcd " karte "
Do
If S1 = 0 Then 'wait till card is removed
Wait 1
Goto Begin
End If
Loop
End

Error:
Cls
Lcd " zla karta ! "
Lowerline
Lcd " wyjmij karte "
Do
If S1 = 0 Then 'wait till card is removed
Waitms 100
Goto Begin 'restart program
End If
Loop
End

Ok:
Cls

Lcd " Karta OK! "
Lowerline
Lcd "wyjmij karte "
Set Pk1 'włącz przekaznik
Wait 5
Reset Pk1 'wyłącz przekaznik
Do
If S1 = 0 Then 'jełsi karta wyjęta idz do początku
Goto Begin 'restart programu
End If
Loop
End[/syntax]

Pozdrawiam

Statystyki: Napisane przez Elektronik — 12 sie 2013, o 08:37