Classic ASP
PC/SC Get Card UID

Sends the APDU command to get a card's UID.
Chilkat Classic ASP Downloads

Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

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

set scard = Server.CreateObject("Chilkat.SCard")

' First establish a context to the PC/SC Resource Manager
success = scard.EstablishContext("user")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( scard.LastErrorText) & "</pre>"
    Response.End
End If

' Use your own smart card reader name here.
success = scard.Connect("ACS ACR122 0","shared","no_preference")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( scard.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Connected reader: " & scard.ConnectedReader) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "Active protocol: " & scard.ActiveProtocol) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "ATR: " & scard.CardAtr) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "Reader Status: " & scard.ReaderStatus) & "</pre>"

'  Send the APDU command 0xFF, 0xCA, 0x00, 0x00, 0x00
set bdRecv = Server.CreateObject("Chilkat.BinData")
success = scard.TransmitHex(scard.ActiveProtocol,"FFCA000000",bdRecv,32)
If (success = 1) Then

    Response.Write "<pre>" & Server.HTMLEncode( "Received: " & bdRecv.GetEncoded("hex")) & "</pre>"

    ' The UID is the returned data without the final 2 bytes.
    numBytes = bdRecv.NumBytes
    If (numBytes > 2) Then
        Response.Write "<pre>" & Server.HTMLEncode( "UID: " & bdRecv.GetEncodedChunk(0,numBytes - 2,"hex")) & "</pre>"
    End If

Else
    Response.Write "<pre>" & Server.HTMLEncode( scard.LastErrorText) & "</pre>"
End If

' Disconnect from this reader.
success = scard.Disconnect("leave")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( scard.LastErrorText) & "</pre>"
End If

' Applications should always release the context when finished.
success = scard.ReleaseContext()
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( scard.LastErrorText) & "</pre>"
End If


%>
</body>
</html>