B4X

PC/SC Get Card UID

See more SCard Examples

Sends the APDU command to get a card's UID. B4X

Dim success As Boolean = False

'  This example requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

Dim scard As ChilkatSCard
scard.Initialize("scard")

'  First establish a context to the PC/SC Resource Manager
success = scard.EstablishContext("user")
If success = False Then
    Log(scard.LastErrorText)
    Return
End If


'  Use your own smart card reader name here.
success = scard.Connect("ACS ACR122 0", "shared", "no_preference")
If success = False Then
    Log(scard.LastErrorText)
    Return
End If


Log("Connected reader: " & scard.ConnectedReader)
Log("Active protocol: " & scard.ActiveProtocol)
Log("ATR: " & scard.CardAtr)
Log("Reader Status: " & scard.ReaderStatus)

'   Send the APDU command 0xFF, 0xCA, 0x00, 0x00, 0x00
Dim bdRecv As ChilkatBinData
bdRecv.Initialize
success = scard.TransmitHex(scard.ActiveProtocol, "FFCA000000", bdRecv, 32)
If success = True Then

    Log("Received: " & bdRecv.GetEncoded("hex"))

    '  The UID is the returned data without the final 2 bytes.
    Dim numBytes As Int = bdRecv.NumBytes
    If numBytes > 2 Then
        Log("UID: " & bdRecv.GetEncodedChunk(0, numBytes - 2, "hex"))
    End If


Else
    Log(scard.LastErrorText)
End If


'  Disconnect from this reader.
success = scard.Disconnect("leave")
If success = False Then
    Log(scard.LastErrorText)
End If


'  Applications should always release the context when finished.
success = scard.ReleaseContext
If success = False Then
    Log(scard.LastErrorText)
End If