Xojo Plugin

PC/SC Get Card UID

See more SCard Examples

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

Dim success As Boolean
success = False

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

Dim scard As New Chilkat.SCard

// First establish a context to the PC/SC Resource Manager
success = scard.EstablishContext("user")
If (success = False) Then
    System.DebugLog(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
    System.DebugLog(scard.LastErrorText)
    Return
End If

System.DebugLog("Connected reader: " + scard.ConnectedReader)
System.DebugLog("Active protocol: " + scard.ActiveProtocol)
System.DebugLog("ATR: " + scard.CardAtr)
System.DebugLog("Reader Status: " + scard.ReaderStatus)

//  Send the APDU command 0xFF, 0xCA, 0x00, 0x00, 0x00
Dim bdRecv As New Chilkat.BinData
success = scard.TransmitHex(scard.ActiveProtocol,"FFCA000000",bdRecv,32)
If (success = True) Then

    System.DebugLog("Received: " + bdRecv.GetEncoded("hex"))

    // The UID is the returned data without the final 2 bytes.
    Dim numBytes As Int32
    numBytes = bdRecv.NumBytes
    If (numBytes > 2) Then
        System.DebugLog("UID: " + bdRecv.GetEncodedChunk(0,numBytes - 2,"hex"))
    End If

Else
    System.DebugLog(scard.LastErrorText)
End If

// Disconnect from this reader.
success = scard.Disconnect("leave")
If (success = False) Then
    System.DebugLog(scard.LastErrorText)
End If

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