Sample code for 30+ languages & platforms
Tcl

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 Tcl Downloads

Tcl

load ./chilkat.dll

set success 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.

set pkcs11 [new_CkPkcs11]

# 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.
CkPkcs11_put_SharedLibPath $pkcs11 "aetpkss1.dll"

set success [CkPkcs11_Initialize $pkcs11]
if {$success == 0} then {
    puts [CkPkcs11_lastErrorText $pkcs11]
} else {
    puts "PKCS11 successfully initialized."
}


delete_CkPkcs11 $pkcs11