[HELP] logika program
 

agan agan para master smua...



ane lagi bkin program di smart card...tp lg buntu smpe nulis ke kartunya..

skrang pengen tau apa maksud dr tiap tiap baris dari program ini...

logika nya aja dr tiap2 baris ini..(atau bahasa kitanya) hehehe

mohon bantuanx agan2 agan sekalian....



dah buntu banget niih.. :listen music:



ane pke VB 6.0



ni bag. tulisnya...

--------------------------------------------------------------



// Tulis





Dim indx As Integer

Dim nama As String



nama = Field_nama.Text



Call ClearBuffers

SendBuff(0) = &HFF

SendBuff(1) = &HD0

SendBuff(2) = &O0

SendBuff(3) = &O1

SendBuff(4) = 25



For indx = 0 To Len(nama) - 1

If Asc(Mid(nama, indx + 1, 1)) &H0 Then

SendBuff(indx + 5) = Asc(Mid(nama, indx + 1, 1))

End If



Next indx



SendLen = SendBuff(4) + 5

RecvLen = 2

nama = ""



For indx = 0 To SendLen - 1

nama = nama & Format(Hex(SendBuff(indx)), "00") & " "

Next indx

retCode = SendAPDUandDisplay(0, nama)

If retCode SCARD_S_SUCCESS Then

Exit Sub

End If



Field_nama.Text = ""





--------------------------------------------------------------



kalau yg ini bagian bacanya,,,

krna pas baca hasilx brupa enkripsi (karakter yg g dknal, bukan data yg diinput)



-----------------------------------

// bag. Baca





Dim indx As Integer

Dim nama As String





' 2. Read input fields and pass data to card



Field_nama.Text = ""



Call ClearBuffers

SendBuff(0) = &HFF

SendBuff(1) = &HB2

SendBuff(2) = &O0

SendBuff(3) = &O1

SendBuff(4) = 25

SendLen = 5

RecvLen = SendBuff(4) + 2

nama = ""

For indx = 0 To SendLen - 1

nama = nama & Format(Hex(SendBuff(indx)), "00") & " "

Next indx

retCode = SendAPDUandDisplay(2, nama)

If retCode SCARD_S_SUCCESS Then

Exit Sub

End If



' 3. Display data read from card into Data textbox

nama = ""

For indx = 0 To SendBuff(4) - 1

nama = nama & Chr(RecvBuff(indx))

Next indx

Field_nama.Text = nama





------------------------------------------------------------



sekian gan...

mohon bantuan nya yah... :tanya:

</div>