(Lianja) Validate a Smartcard PIN
Validates a smartcard PIN. This example only runs on Windows and requires Chilkat v9.5.0.77 or greater.
// Note: Requires Chilkat v9.5.0.77 or greater.
loCert = createobject("CkCert")
loCert.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.
llSuccess = loCert.LoadFromSmartcard("")
if (llSuccess <> .T.) then
? loCert.LastErrorText
release loCert
return
endif
// Check to see if the SmartCardPin property contains the valid PIN for the smartcard.
lnPinValid = loCert.CheckSmartCardPin()
if (lnPinValid < 0) then
? "Unable to check the PIN validity."
? loCert.LastErrorText
release loCert
return
endif
if (lnPinValid = 1) then
? "PIN is valid."
else
? "PIN is invalid."
endif
release loCert
|