Program BascomAVR For SmartCard ACS120S

Nih Program Basom Yg bwat Smart Card Baca data DLLL Program pling Kren Dah

$regfile = "m8535.dat"
$crystal = 8000000
$baud = 9600
Open "comd.3:9600,8,n,1" For Output As #1

Declare Sub Keypad()

Declare Function Select_card() As Byte
Declare Function Login_card(byval Sector As Byte) As Byte
Declare Function Read_data() As String
Declare Function Read_block(byval Blok As Byte) As String

Dim Tag As Byte
Dim R As Byte
Dim Nama As Byte
Dim Buffstr As String * 20
Dim Hrf As String * 20
Dim Fde As String * 10

Dim S As Byte
Dim Key As Byte
Dim Key_i As Byte
Dim Key_str As String * 1
Dim Pwd As String * 10
Dim Pgr As String * 4
Dim A As String * 10
Dim _data As String * 10

Rem ------------ lcd ------------------
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.2 , Rs = Portc.0
Config Lcd = 16 * 2

Rem - - - - - - - - - - - - -keypad - - - - - - - - - - -
Config Kbd = Portb , Debounce = 200

Awal:
Cls
Locate 1 , 3
Lcd "Selamat datang"
Lowerline
Lcd "Tekan *"
Wait 3

Pwd = ""
For S = 1 To 1
Call Keypad()
Next S
If Pwd = "*" Then

Goto Main
Else
Goto Awal
End If

Main:
set
Cls
Lcd "Dekatkan kartu"
Wait 3

set
Tag = 0
Tag = Select_card()
Cls
Lcd "SELECT KARTU"
Wait 1
Tag = 0
Tag = Login_card(2)
If Tag = 0 Then
R = 0
Do
R = R + 1
Cls
Lcd "KARTU KOSONG"
Waitms 800
Cls
Waitms 500
Loop Until R = 3
Waitms 300
Goto Awal
End If

Cls
Lcd "LOGIN BERHASIL"
Wait 1
Buffstr = Read_block(8)
Cls
Lcd "Selamat Datang"
Lowerline
Lcd Buffstr
Hrf = Buffstr
Wait 3

Fde = ""
For R = 1 To 4
Buffstr = Read_block(9)
Fde = Buffstr
Cls
Lcd "pas1" ; Fde
Next R

Wait 2

Cls
Lcd "Enter Password"
Lowerline
Lcd "Pass>> "

Pwd = ""
For S = 1 To 4
Call Keypad()
Lcd "*"
Next S
Do
If Pwd = Fde Then
Cls
Lcd "berhasil"
Wait 6
Goto Awal
Else
Wait 1
Goto Awal
End If
Loop

Function Select_card() As Byte
Dim Sbuf2 As String * 1
Dim Strbuf As String * 20

Printbin 2 ; 1 ; 1 ; 115 ; 115 ; 3
Sbuf2 = ""
Strbuf = ""
Cls
Lcd "No connect to"
Lowerline
Lcd "Smart Card"
Strbuf = Read_data()

Sbuf2 = Mid(strbuf , 2 , 1)

If Sbuf2 = Chr(1) Then
Select_card = 0
Exit Function
End If
Select_card = 1
End Function
Function Login_card(byval Sector As Byte)as Byte

Dim Sbuf4 As String * 25
Dim Sbuf3 As Byte
Dim Sbuf9 As String * 20
Dim Bcc2 As Byte

Sbuf4 = ""
Sbuf3 = ""
Bcc2 = 155 Xor Sector

Printbin &H02 ; &H01 ; &H04 ; &H6C ; Sector ; &HFF ; &H0D ; Bcc2 ; &H03
'Printbin 2 ; 1 ; 4 ; 108 ; Sector ; 255 ; 13 ; Bcc2 ; 3
Do
Sbuf3 = Inkey()
If Sbuf3 > 0 Then
Sbuf4 = Sbuf4 + Chr(sbuf3)
If Sbuf3 = 3 Then Exit Do
End If
Loop

Sbuf9 = Mid(sbuf4 , 3 , 1)
If Sbuf9 = "L" Then
Login_card = 1
Exit Function
End If
Login_card = 0
End Function

Function Read_block(byval Blok As Byte) As String
Dim Sbuf5 As String * 25
Dim Sbuf6 As String * 20
Dim Sbuf7 As Byte
Dim Bcc As Byte

Sbuf6 = ""
Sbuf5 = ""
Bcc = 113 Xor Blok
Printbin 2 ; 1 ; 2 ; 114 ; Blok ; Bcc ; 3

Do
Sbuf7 = Inkey()
If Sbuf7 > 0 Then
Sbuf5 = Sbuf5 + Chr(sbuf7)
If Sbuf7 = 3 Then Exit Do
End If

Loop
Sbuf6 = Mid(sbuf5 , 3 , 4)
Read_block = Sbuf6

End Function

Function Read_data() As String
Dim Sout As String * 25
Dim Sbuf1 As String * 1

Sout = ""
Do
Sbuf1 = Waitkey()
Sout = Sout + Sbuf1
If Sbuf1 = Chr(3) Then Exit Do
Loop
Read_data = Sout
End Function

Sub Keypad()

Key_i = 16
Do
Key = Key_i
Waitms 100
Key_i = Getkbd()

Loop Until Key_i <> 16 And Key <> 16

Key_str = Lookupstr(key , Keydata_str)
Pwd = Pwd + Key_str

End Sub

Keydata_str:
Data "1" , "4" , "7" , "*" , "2" , "5" , "8" , "0" , "3" , "6" , "9" , "#" , "A" , "B" , "C" , "D"