Chipdrive auslesen via CT API
Verfasst: 25.09.2006 19:03
Hallo,
ich versuche mir gerade das Leben etwas zu erleichtern und möchte mir
ein Programm schreiben, was Passwörter von einer Chipcard liest. Ich
habe auch schon ein paar Codes im Internet gefunden und daraus das
hier gebaut:
Soweit ich das Programm aber verstehe, wird damit nur eine Karte mit
einem Pin angesteuert. Ich finde leider nichts brauchbares zu APDU.
Also ich steh so ziemlich kurz nach dem Start. Hat hier jemand schon
ein paar Erfahrungen damit?
ich versuche mir gerade das Leben etwas zu erleichtern und möchte mir
ein Programm schreiben, was Passwörter von einer Chipcard liest. Ich
habe auch schon ein paar Codes im Internet gefunden und daraus das
hier gebaut:
Code: Alles auswählen
EnableExplicit
Prototype.b CTAPI_Init(ctn.l, pn.l)
Prototype CTAPI_Data(ctn.l, dad.l, sad.l, lenc.l, cmd.l, lenr.l, response.l)
Prototype CTAPI_Close(ctn.l)
Global CT_init.CTAPI_Init
Global CT_data.CTAPI_Data
Global CT_close.CTAPI_Close
Global lI.l, dad.l, sad.l, lenr.l
Global *pBuffer.Byte
Global *pResponse.Byte
If OpenLibrary(1, "CTPCSC31.DLL")
CT_init = GetFunction(1, "CT_init")
CT_data = GetFunction(1, "CT_data")
CT_close = GetFunction(1, "CT_close")
If Not CT_init(1, 0)
Debug "chipcard reader geöffnet"
*pBuffer = AllocateMemory(300)
PokeB(*pBuffer + lI, $20): lI + 1 ; CLA
PokeB(*pBuffer + lI, $12): lI + 1 ; INS
PokeB(*pBuffer + lI, $01): lI + 1 ; P1
PokeB(*pBuffer + lI, $00): lI + 1 ; P2
PokeB(*pBuffer + lI, $00): lI + 1 ; L
*pResponse = AllocateMemory(1000)
dad = 1
sad = 2
lenr = 1000
Debug CT_data(1, @dad, @sad, 5, *pBuffer, @lenr, *pResponse)
SetClipboardText(Str(*pResponse))
Debug dad
Debug sad
CallDebugger
CT_close(1)
EndIf
CloseLibrary(1)
EndIfeinem Pin angesteuert. Ich finde leider nichts brauchbares zu APDU.
Also ich steh so ziemlich kurz nach dem Start. Hat hier jemand schon
ein paar Erfahrungen damit?