Visual Basic 6.0

Validate a Smartcard PIN

See more Certificates Examples

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

Dim success As Long
success = 0

' 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.
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