VB.NET

PC/SC Get Card UID

See more SCard Examples

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

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 New Chilkat.SCard

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


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


Debug.WriteLine("Connected reader: " & scard.ConnectedReader)
Debug.WriteLine("Active protocol: " & scard.ActiveProtocol)
Debug.WriteLine("ATR: " & scard.CardAtr)
Debug.WriteLine("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

    Debug.WriteLine("Received: " & bdRecv.GetEncoded("hex"))

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


Else
    Debug.WriteLine(scard.LastErrorText)
End If


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


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