Lettura indirizzo di residenza da tessera CNS

Salve a tutti, ho un piccolo problema nel reperire l'indirizzo di residenza dalla tessera sanitaria, sono riuscito ad estrarre i seguenti dati:

Cognome
Nome
Codice FIscale
Data di emissione
Data di Scadenza
Data di Nascita
Luogo di Nascita
Provincia
Nazionalità
Sesso
tutti questi dati sono presenti nel percorso Master File o comunemente chiamato MF
a seguire il DF1 con fid 1100 e EF.Dati_personali don Fid 1102.

Mi servirebbe ora estrarre anche la residenza ma non riesco a navigare il file DF.NKAF che contiene appunto questo dato. Qualcuno si è già cimentato in questo problema con Vb6 ?

La questione è un po' generica e, a meno che non risponda qualcuno che l'ha già fatto, nessun altro potrà darti alcuna indicazione con le poche indicazioni che hai dato.

Cosa usi per leggere i dati dalla carta?
Cosa hai provato a fare per leggere l'indirizzo e quali errori hai avuto?

Uso la libreria winsCard.dll

Ok ... ma rimane quanto ti ho detto. Solo se qualcuno lo ha già fatto potrebbe darti una mano perché non hai dato nessuna indicazione per permettere ad altri di rispondere.

Ciao Antonio, navigando il file system della smart card ottengo i dati riportati sopra... in questa maniera:

codice:

Dim apdu(261) As Byte Dim recvbuf(258) As Byte Dim recvlen As Integer Dim iosendreq As SCARD_IO_REQUEST Dim iorecvreq As SCARD_IO_REQUEST ' STRINGA APDU apdu(0) = &H0 'CLA apdu(1) = &HCA 'INS apdu(2) = &H0 'P1 apdu(3) = &H81 'P2 apdu(4) = &H0 'LC apdu(5) = &H0 'LE recvlen = 257 iosendreq.dwProtocol = activeprotocol iosendreq.dbPciLength = Len(iosendreq) iorecvreq.dwProtocol = activeprotocol iorecvreq.dbPciLength = Len(iosendreq) retval = SCardTransmit(hCard, iosendreq, apdu(0), 6, iorecvreq, recvbuf(0), recvlen) If (retval <> 0) Then MsgBox ("Errore nella trasmissione: " & CStr(retval)) '--------------------- ' LIVELLO MF '--------------------- apdu(0) = &H0 'CLA apdu(1) = &HA4 'INS apdu(2) = &H0 'P1 apdu(3) = &H0 'P2 apdu(4) = &H2 'LC apdu(5) = &H3F apdu(6) = &H0 recvlen = 257 iosendreq.dwProtocol = activeprotocol iosendreq.dbPciLength = Len(iosendreq) iorecvreq.dwProtocol = activeprotocol iorecvreq.dbPciLength = Len(iosendreq) retval = SCardTransmit(hCard, iosendreq, apdu(0), 7, iorecvreq, recvbuf(0), recvlen) If (retval <> 0) Then MsgBox ("Errore n." & CStr(retval)) End If '--------------------- ' LIVELLO DF D000 '--------------------- apdu(0) = &H0 'CLA apdu(1) = &HA4 'INS apdu(2) = &H0 'P1 apdu(3) = &H0 'P2 apdu(4) = &H2 'LC apdu(5) = &HD0 apdu(6) = &H0 recvlen = 257 iosendreq.dwProtocol = activeprotocol iosendreq.dbPciLength = Len(iosendreq) iorecvreq.dwProtocol = activeprotocol iorecvreq.dbPciLength = Len(iosendreq) retval = SCardTransmit(hCard, iosendreq, apdu(0), 7, iorecvreq, recvbuf(0), recvlen) If (retval <> 0) Then MsgBox ("Errore n." & CStr(retval)) End If '--------------------- ' LIVELLO D100 - DATI PERSONALI CONTENUTI NELLA CARTA '--------------------- apdu(0) = &H0 'CLA apdu(1) = &HA4 'INS apdu(2) = &H0 'P1 apdu(3) = &H0 'P2 apdu(4) = &H2 'LC apdu(5) = &HD1 apdu(6) = &H0 recvlen = 257 iosendreq.dwProtocol = activeprotocol iosendreq.dbPciLength = Len(iosendreq) iorecvreq.dwProtocol = activeprotocol iorecvreq.dbPciLength = Len(iosendreq) retval = SCardTransmit(hCard, iosendreq, apdu(0), 7, iorecvreq, recvbuf(0), recvlen) If (retval <> 0) Then MsgBox ("Errore n." & CStr(retval)) End If '--------------------- ' LIVELLO D101 - DATI PERSONALI CONTENUTI NELLA CARTA EF.NKAF '--------------------- apdu(0) = &H0 'CLA apdu(1) = &HA4 'INS apdu(2) = &H0 'P1 apdu(3) = &H0 'P2 apdu(4) = &H2 'LC apdu(5) = &HD1 apdu(6) = &H1 recvlen = 257 iosendreq.dwProtocol = activeprotocol iosendreq.dbPciLength = Len(iosendreq) iorecvreq.dwProtocol = activeprotocol iorecvreq.dbPciLength = Len(iosendreq) retval = SCardTransmit(hCard, iosendreq, apdu(0), 7, iorecvreq, recvbuf(0), recvlen) If (retval <> 0) Then MsgBox ("Errore n." & CStr(retval)) End If ' LEGGO I BINARY PROVENIENTI DALLA CARTA apdu(0) = &H0 'CLA apdu(1) = &HB0 'INS apdu(2) = &H0 'P1 apdu(3) = &H0 'P2 apdu(4) = &H96 'LC recvlen = 257 iosendreq.dwProtocol = activeprotocol iosendreq.dbPciLength = Len(iosendreq) iorecvreq.dwProtocol = activeprotocol iorecvreq.dbPciLength = Len(iosendreq) retval = SCardTransmit(hCard, iosendreq, apdu(0), 5, iorecvreq, recvbuf(0), recvlen) If (retval <> 0) Then MsgBox ("Errore n." & CStr(retval)) End If risposta = "" For K = 0 To apdu(4) - 1: risposta = risposta + Chr(recvbuf(K)): Next K

unico problema in questa parte del file system ( non so per quale motivo ) non è presente l'indirizzo di residenza e altri dati tipo medico di famiglia, statura etc etc, a quanto pare questi dati risiedono nal EF.nkaf che ha un FID D101, applicando lo stesso ragionamento per navigare il file system come sopra non ottengo i dati attesi.. e non sono pefettamente sicuro che stia facendo giusto.

Prova a sostituire 96 con FF apdu(4) = &H96 'LC _ : _ apdu(4) = &HFF 'LC in modo da leggere tutti i dati contenuti nella cartella.