(Excel) Validate a Smartcard PIN

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

Download Excel Class Modules Chilkat Excel Class Modules

' Note: Requires Chilkat v9.5.0.77 or greater.

Dim cert As Chilkat.Cert
Set cert = Chilkat.NewCert

' 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 <> True) Then
    Debug.Print cert.LastErrorText
    Exit Sub
End If

cert.SmartCardPin = "000000"

' Check to see if the SmartCardPin property contains the valid PIN for the smartcard.

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