(Visual FoxPro) PKCS11 Initialize Normal User PIN

See more PKCS11 Examples

Initializes the Normal User PIN from the Security Officer's logged-on session. This provides a way to reset the user PIN if it has been forgotten.

Note: Requires Chilkat v9.5.0.89 or greater.

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

LOCAL loPkcs11
LOCAL lnSuccess
LOCAL lnSlotID
LOCAL lnReadWrite
LOCAL lnUserType
LOCAL lcPin

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

* Note: Chilkat's PKCS11 implementation runs on Windows, Linux, Mac OS X, and other supported operating systems.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Pkcs11')
loPkcs11 = CreateObject('Chilkat.Pkcs11')

* See PKCS11 Find Driver Library Path for information about how to find the 
* PKCS11 driver file (if not explicitly known) for the plugged-in token or smart card in reader.
loPkcs11.SharedLibPath = "IDPrimePKCS1164.dll"

lnSuccess = loPkcs11.Initialize()
IF (lnSuccess = 0) THEN
    ? loPkcs11.LastErrorText
    RELEASE loPkcs11
    CANCEL
ENDIF

* Pass -1 for the slotID to open a session on the first non-empty slot.
lnSlotID = -1

* Open a session.
lnReadWrite = 1
lnSuccess = loPkcs11.OpenSession(lnSlotID,lnReadWrite)
IF (lnSuccess = 0) THEN
    ? loPkcs11.LastErrorText
    RELEASE loPkcs11
    CANCEL
ENDIF

* Login as the security officer.
* The smart card PIN is passed to the Login method.
* The user type can be one of three choices:
* 0 - Security Officer
* 1 - Normal User
* 2 - Context Specific.
lnUserType = 0
lcPin = "AA0000000000000000000000000000000000000000000000"
lnSuccess = loPkcs11.Login(lnUserType,lcPin)
IF (lnSuccess = 0) THEN
    ? loPkcs11.LastErrorText
    lnSuccess = loPkcs11.CloseSession()
    RELEASE loPkcs11
    CANCEL
ENDIF

* Reset the user PIN to 1234
lnSuccess = loPkcs11.InitPin("1234")
IF (lnSuccess = 0) THEN
    ? loPkcs11.LastErrorText
    lnSuccess = loPkcs11.CloseSession()
    RELEASE loPkcs11
    CANCEL
ENDIF

* Revert to an unauthenticated session by calling Logout.
lnSuccess = loPkcs11.Logout()
IF (lnSuccess = 0) THEN
    ? loPkcs11.LastErrorText
    lnSuccess = loPkcs11.CloseSession()
    RELEASE loPkcs11
    CANCEL
ENDIF

* When finished, close the session.
* It is important to close the session (memory leaks will occur if the session is not properly closed).
lnSuccess = loPkcs11.CloseSession()
IF (lnSuccess = 0) THEN
    ? loPkcs11.LastErrorText
    RELEASE loPkcs11
    CANCEL
ENDIF

? "Successfully reset user PIN to 1234"

RELEASE loPkcs11