Sample code for 30+ languages & platforms
DataFlex

PKCS11 Initialize

See more PKCS11 Examples

The first thing to do to interact with a smart card or USB security token using PKCS11 is to call Initialize. It loads the vendors DLL/shared library and initializes the Cryptoki library. (The Cryptoki library is the DLL/shared lib provided by the smart card vendor.)

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

Chilkat DataFlex Downloads

DataFlex
Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoPkcs11
    String sTemp1

    Move False To iSuccess

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

    Get Create (RefClass(cComChilkatPkcs11)) To hoPkcs11
    If (Not(IsComObjectCreated(hoPkcs11))) Begin
        Send CreateComObject of hoPkcs11
    End

    // You'll need to know in advance the name and possibly the full path to the smart card vendor's shared library.
    // On Windows systems it is a .dll.   On Linux it is a .so.  On Mac OS X it will be a .dylib.
    // On Windows, if you set the SharedLibPath equal to just the name of the DLL, then it is assumed to be located in the Windows system directory
    // which contains dynamic-link libraries and drivers. The Windows system directory is typically C:\Windows\System32

    // In this example we will pass just the name of the DLL because it is located in C:\Windows\System32.
    // On non-Windows systems you should specify the full path to the shared lib.
    // Also use the full path on Windows systems where the smart card vendor's DLL does not install to C:\Windows\System32.
    Set ComSharedLibPath Of hoPkcs11 To "aetpkss1.dll"

    Get ComInitialize Of hoPkcs11 To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoPkcs11 To sTemp1
        Showln sTemp1
    End
    Else Begin
        Showln "PKCS11 successfully initialized."
    End



End_Procedure