(Visual Basic 6.0) Validate a Smartcard PIN

Validates a smartcard PIN. This example only runs on Windows and requires Chilkat v9.5.0.77 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

' Note: Requires Chilkat v9.5.0.77 or greater.

Dim cert As New ChilkatCert

cert.SmartCardPin = "000000"

' Load the certificate on the smartcard currently in the reader (or on the USB token).
' Pass an empty string to allow Chilkat to automatically choose the CSP (Cryptographi Service Provider).
' See Load Certificate on Smartcard for information about explicitly selecting a particular CSP.
Dim success As Long
success = cert.LoadFromSmartcard("")
If (success <> 1) Then
    Debug.Print cert.LastErrorText
    Exit Sub
End If

' Check to see if the SmartCardPin property contains the valid PIN for the smartcard.
Dim pinValid As Long
pinValid = cert.CheckSmartCardPin()
If (pinValid < 0) Then
    Debug.Print "Unable to check the PIN validity."
    Debug.Print cert.LastErrorText
    Exit Sub
End If

If (pinValid = 1) Then
    Debug.Print "PIN is valid."
Else
    Debug.Print "PIN is invalid."
End If