B4X

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.

B4X

Dim success As Boolean = False

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

Dim pkcs11 As ChilkatPkcs11
pkcs11.Initialize

'  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.
pkcs11.SharedLibPath = "IDPrimePKCS1164.dll"

success = pkcs11.InitializeLibrary
If success = False Then
    Log(pkcs11.LastErrorText)
    Return
End If


'  Pass -1 for the slotID to open a session on the first non-empty slot.
Dim slotID As Int = -1

'  Open a session.
Dim readWrite As Boolean = True
success = pkcs11.OpenSession(slotID, readWrite)
If success = False Then
    Log(pkcs11.LastErrorText)
    Return
End If


'  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
success = pkcs11.SetPin("1234", "0000")
If success = False Then
    Log(pkcs11.LastErrorText)
    success = pkcs11.CloseSession
    Return
End If


'  When finished, close the session.
'  It is important to close the session (memory leaks will occur if the session is not properly closed).
success = pkcs11.CloseSession
If success = False Then
    Log(pkcs11.LastErrorText)
    Return
End If


Log("Successfully changed PIN from 1234 to 0000")