(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkPkcs11.pb"

Procedure ChilkatExample()

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

    pkcs11.i = CkPkcs11::ckCreate()
    If pkcs11.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; 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.
    CkPkcs11::setCkSharedLibPath(pkcs11, "IDPrimePKCS1164.dll")

    success.i = CkPkcs11::ckInitialize(pkcs11)
    If success = 0
        Debug CkPkcs11::ckLastErrorText(pkcs11)
        CkPkcs11::ckDispose(pkcs11)
        ProcedureReturn
    EndIf

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

    ; Open a session.
    readWrite.i = 1
    success = CkPkcs11::ckOpenSession(pkcs11,slotID,readWrite)
    If success = 0
        Debug CkPkcs11::ckLastErrorText(pkcs11)
        CkPkcs11::ckDispose(pkcs11)
        ProcedureReturn
    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.
    userType.i = 0
    pin.s = "AA0000000000000000000000000000000000000000000000"
    success = CkPkcs11::ckLogin(pkcs11,userType,pin)
    If success = 0
        Debug CkPkcs11::ckLastErrorText(pkcs11)
        success = CkPkcs11::ckCloseSession(pkcs11)
        CkPkcs11::ckDispose(pkcs11)
        ProcedureReturn
    EndIf

    ; Reset the user PIN to 1234
    success = CkPkcs11::ckInitPin(pkcs11,"1234")
    If success = 0
        Debug CkPkcs11::ckLastErrorText(pkcs11)
        success = CkPkcs11::ckCloseSession(pkcs11)
        CkPkcs11::ckDispose(pkcs11)
        ProcedureReturn
    EndIf

    ; Revert to an unauthenticated session by calling Logout.
    success = CkPkcs11::ckLogout(pkcs11)
    If success = 0
        Debug CkPkcs11::ckLastErrorText(pkcs11)
        success = CkPkcs11::ckCloseSession(pkcs11)
        CkPkcs11::ckDispose(pkcs11)
        ProcedureReturn
    EndIf

    ; When finished, close the session.
    ; It is important to close the session (memory leaks will occur if the session is not properly closed).
    success = CkPkcs11::ckCloseSession(pkcs11)
    If success = 0
        Debug CkPkcs11::ckLastErrorText(pkcs11)
        CkPkcs11::ckDispose(pkcs11)
        ProcedureReturn
    EndIf

    Debug "Successfully reset user PIN to 1234"


    CkPkcs11::ckDispose(pkcs11)


    ProcedureReturn
EndProcedure