Xbase++

PKCS11 Change Normal User PIN from Non-Logged-In State

See more PKCS11 Examples

When SetPin is called from a non-logged-in state, then it is the Normal User PIN that is changed.

Note: Requires Chilkat v9.5.0.89 or greater.

Xbase++

LOCAL nSuccess
LOCAL oPkcs11
LOCAL nSlotID
LOCAL nReadWrite

nSuccess := 0

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

oPkcs11 := 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.
oPkcs11:SharedLibPath := "IDPrimePKCS1164.dll"

nSuccess := oPkcs11:Initialize()
IF (nSuccess == 0)
    ? oPkcs11:LastErrorText
    oPkcs11:destroy()
    RETURN
ENDIF

//  Pass -1 for the slotID to open a session on the first non-empty slot.
nSlotID := -1

//  Open a session.
nReadWrite := 1
nSuccess := oPkcs11:OpenSession(nSlotID, nReadWrite)
IF (nSuccess == 0)
    ? oPkcs11:LastErrorText
    oPkcs11:destroy()
    RETURN
ENDIF

//  We haven't logged in, but we can set the Normal User's PIN directly by providing 
//  the existing PIN, and the new PIN.

//  Change the PIN from 1234 to 0000
nSuccess := oPkcs11:SetPin("1234", "0000")
IF (nSuccess == 0)
    ? oPkcs11:LastErrorText
    nSuccess := oPkcs11:CloseSession()
    oPkcs11:destroy()
    RETURN
ENDIF

//  When finished, close the session.
//  It is important to close the session (memory leaks will occur if the session is not properly closed).
nSuccess := oPkcs11:CloseSession()
IF (nSuccess == 0)
    ? oPkcs11:LastErrorText
    oPkcs11:destroy()
    RETURN
ENDIF

? "Successfully changed PIN from 1234 to 0000"

oPkcs11:destroy()