PureBasic

PKCS11 Sessions

See more PKCS11 Examples

Sample code showing how to open a PKCS11 session and then later close it.

Note: This example requires Chilkat v9.5.0.88 or later.

PureBasic

IncludeFile "CkPkcs11.pb"

Procedure ChilkatExample()

    success.i = 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.

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

    ; Set your shared lib path -- either a full path to the DLL, .so, or .dylib,
    ; or just the filename if the driver is in a location that can be automatically found. (Such as in C:\Windows\System32)
    CkPkcs11::setCkSharedLibPath(pkcs11, "ShuttleCsp11_3003.dll")

    ; Starting in Chilkat v9.5.0.96, there is a shorter way to establish
    ; a PKCS11 session with login.
    ; The QuickSession method was added in v9.5.0.96 and is the equivalent of 
    ; calling Initialize, OpenSession, and Login.  

    success = 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 read/write session.
    readWrite.i = 1
    success = CkPkcs11::ckOpenSession(pkcs11,slotID,readWrite)
    If success = 0
        Debug CkPkcs11::ckLastErrorText(pkcs11)
        CkPkcs11::ckDispose(pkcs11)
        ProcedureReturn
    EndIf

    ; Do whatever is needed...
    ; ...
    ; ...

    ; 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 "PKCS11 session successfully opened and closed."


    CkPkcs11::ckDispose(pkcs11)


    ProcedureReturn
EndProcedure