DataFlex
DataFlex
PKCS11 Discover Readers and Smart Cards / Tokens
See more PKCS11 Examples
Example showing how to discover the readers (slots) and smart cards and tokens available through a vendor's PKCS11 Cryptoki module.Note: This example requires Chilkat v9.5.0.88 or later.
Chilkat DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Handle hoPkcs11
Boolean iOnlyTokensPresent
Variant vJson
Handle hoJson
Integer iId
String sSlotDescription
Boolean iTokenPresent
Boolean iRemovableDevice
Boolean iHardwareSlot
Integer iHardwareVersionMajor
Integer iHardwareVersionMinor
Integer iFirmwareVersionMajor
Integer iFirmwareVersionMinor
String sTokenLabel
String sTokenManufacturerID
String sTokenModel
String sTokenSerialNumber
Integer iTokenMaxSessionCount
Integer iTokenSessionCount
Integer iTokenMaxRwSessionCount
Integer iTokenRwSessionCount
Integer iTokenMaxPinLen
Integer iTokenMinPinLen
Integer iTokenTotalPublicMemory
Integer iTokenFreePublicMemory
Integer iTokenTotalPrivateMemory
Integer iTokenFreePrivateMemory
Integer iTokenHardwareVersionMajor
Integer iTokenHardwareVersionMinor
Integer iTokenFirmwareVersionMajor
Integer iTokenFirmwareVersionMinor
String sTokenUtcTime
Integer iTokenRsaMinKeySize
Integer iTokenRsaMaxKeySize
Integer j
Integer iCount_j
String sStrVal
Integer iCryptokiVersionMajor
Integer iCryptokiVersionMinor
String sManufacturerID
String sLibraryDescription
Integer iLibraryVersionMajor
Integer iLibraryVersionMinor
Integer i
Integer iCount_i
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
// Specify the vendor's Cryptoki module DLL / shared lib.
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
Procedure_Return
End
// Call Discover to discover what's available.
// Indicate that we only want to return slots (readers) where tokens (smart cards) are present.
// (If the device is a USB token, such as an ePass300Auto, then by definition it has a "token" present.)
Move True To iOnlyTokensPresent
Get Create (RefClass(cComChilkatJsonObject)) To hoJson
If (Not(IsComObjectCreated(hoJson))) Begin
Send CreateComObject of hoJson
End
Get pvComObject of hoJson to vJson
Get ComDiscover Of hoPkcs11 iOnlyTokensPresent vJson To iSuccess
If (iSuccess = False) Begin
Get ComLastErrorText Of hoPkcs11 To sTemp1
Showln sTemp1
Procedure_Return
End
Set ComEmitCompact Of hoJson To False
Get ComEmit Of hoJson To sTemp1
Showln sTemp1
// Sample JSON output.
// Code for parsing this JSON is shown below..
// {
// "cryptokiVersion": {
// "major": 2,
// "minor": 20
// },
// "manufacturerID": "A.E.T. Europe B.V.",
// "libraryDescription": "Cryptographic Token Interface",
// "libraryVersion": {
// "major": 3,
// "minor": 0
// },
// "slot": [
// {
// "id": 52482,
// "slotDescription": "SCM Microsystems Inc. SCR33x USB Smart Card Reader 0",
// "manufacturerID": "SCM Microsystems Inc. SCR33x USB",
// "tokenPresent": true,
// "removableDevice": true,
// "hardwareSlot": true,
// "hardwareVersion": {
// "major": 0,
// "minor": 0
// },
// "firmwareVersion": {
// "major": 0,
// "minor": 0
// },
// "token": {
// "label": "chilkat",
// "manufacturerID": "A.E.T. Europe B.V.",
// "model": "19C40406010D00C0",
// "serialNumber": "21619600583C4505",
// "flags": [
// "CKF_RNG",
// "CKF_LOGIN_REQUIRED",
// "CKF_USER_PIN_INITIALIZED",
// "CKF_TOKEN_INITIALIZED"
// ],
// "maxSessionCount": 126,
// "sessionCount": 0,
// "maxRwSessionCount": 126,
// "rwSessionCount": 0,
// "maxPinLen": 15,
// "minPinLen": 4,
// "totalPublicMemory": 32767,
// "freePublicMemory": 32767,
// "totalPrivateMemory": 32767,
// "freePrivateMemory": 32767,
// "hardwareVersion": {
// "major": 0,
// "minor": 0
// },
// "firmwareVersion": {
// "major": 0,
// "minor": 0
// },
// "utcTime": "",
// "rsa": {
// "minKeySize": 768,
// "maxKeySize": 2048
// },
// "mechanism": [
// "CKM_RSA_PKCS",
// "CKM_RSA_X_509",
// "CKM_RSA_PKCS_OAEP",
// "CKM_MD5_RSA_PKCS",
// "CKM_SHA1_RSA_PKCS",
// "CKM_SHA224_RSA_PKCS",
// "CKM_SHA256_RSA_PKCS",
// "CKM_SHA384_RSA_PKCS",
// "CKM_SHA512_RSA_PKCS",
// "CKM_RIPEMD160_RSA_PKCS",
// "CKM_CPK_ECDSA",
// "CKM_CPK_ECDSA_SHA1",
// "CKM_CPK_ECIES",
// "CKM_CPK_ECIES_STDDH_SHA1KDF_DES3CBC_PAD_SHA1HMAC",
// "CKM_CPK_ECIES_STDDH_SHA1KDF_AES128CBC_PAD_SHA1HMAC",
// "CKM_CPK_PKCS7_SIGNED",
// "CKM_CPK_PKCS7_ENVELOPE_DES3CBC_PAD",
// "CKM_RSA_PKCS_PSS",
// "CKM_RSA_PKCS_KEY_PAIR_GEN",
// "CKM_RC2_KEY_GEN",
// "CKM_RC2_ECB",
// "CKM_RC2_CBC",
// "CKM_RC2_CBC_PAD",
// "CKM_RC4_KEY_GEN",
// "CKM_RC4",
// "CKM_DES_KEY_GEN",
// "CKM_DES2_KEY_GEN",
// "CKM_DES3_KEY_GEN",
// "CKM_DES_ECB",
// "CKM_DES_CBC",
// "CKM_DES3_ECB",
// "CKM_DES3_CBC",
// "CKM_DES_CBC_PAD",
// "CKM_DES3_CBC_PAD",
// "CKM_MD5",
// "CKM_SHA_1",
// "CKM_SHA224",
// "CKM_SHA256",
// "CKM_SHA384",
// "CKM_SHA512",
// "CKM_RIPEMD160"
// ]
// }
// }
// ]
// }
// Use this online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON
// Use this online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON
Get ComIntOf Of hoJson "cryptokiVersion.major" To iCryptokiVersionMajor
Get ComIntOf Of hoJson "cryptokiVersion.minor" To iCryptokiVersionMinor
Get ComStringOf Of hoJson "manufacturerID" To sManufacturerID
Get ComStringOf Of hoJson "libraryDescription" To sLibraryDescription
Get ComIntOf Of hoJson "libraryVersion.major" To iLibraryVersionMajor
Get ComIntOf Of hoJson "libraryVersion.minor" To iLibraryVersionMinor
Move 0 To i
Get ComSizeOfArray Of hoJson "slot" To iCount_i
While (i < iCount_i)
Set ComI Of hoJson To i
Get ComIntOf Of hoJson "slot[i].id" To iId
Get ComStringOf Of hoJson "slot[i].slotDescription" To sSlotDescription
Get ComStringOf Of hoJson "slot[i].manufacturerID" To sManufacturerID
Get ComBoolOf Of hoJson "slot[i].tokenPresent" To iTokenPresent
Get ComBoolOf Of hoJson "slot[i].removableDevice" To iRemovableDevice
Get ComBoolOf Of hoJson "slot[i].hardwareSlot" To iHardwareSlot
Get ComIntOf Of hoJson "slot[i].hardwareVersion.major" To iHardwareVersionMajor
Get ComIntOf Of hoJson "slot[i].hardwareVersion.minor" To iHardwareVersionMinor
Get ComIntOf Of hoJson "slot[i].firmwareVersion.major" To iFirmwareVersionMajor
Get ComIntOf Of hoJson "slot[i].firmwareVersion.minor" To iFirmwareVersionMinor
Get ComStringOf Of hoJson "slot[i].token.label" To sTokenLabel
Get ComStringOf Of hoJson "slot[i].token.manufacturerID" To sTokenManufacturerID
Get ComStringOf Of hoJson "slot[i].token.model" To sTokenModel
Get ComStringOf Of hoJson "slot[i].token.serialNumber" To sTokenSerialNumber
Get ComIntOf Of hoJson "slot[i].token.maxSessionCount" To iTokenMaxSessionCount
Get ComIntOf Of hoJson "slot[i].token.sessionCount" To iTokenSessionCount
Get ComIntOf Of hoJson "slot[i].token.maxRwSessionCount" To iTokenMaxRwSessionCount
Get ComIntOf Of hoJson "slot[i].token.rwSessionCount" To iTokenRwSessionCount
Get ComIntOf Of hoJson "slot[i].token.maxPinLen" To iTokenMaxPinLen
Get ComIntOf Of hoJson "slot[i].token.minPinLen" To iTokenMinPinLen
Get ComIntOf Of hoJson "slot[i].token.totalPublicMemory" To iTokenTotalPublicMemory
Get ComIntOf Of hoJson "slot[i].token.freePublicMemory" To iTokenFreePublicMemory
Get ComIntOf Of hoJson "slot[i].token.totalPrivateMemory" To iTokenTotalPrivateMemory
Get ComIntOf Of hoJson "slot[i].token.freePrivateMemory" To iTokenFreePrivateMemory
Get ComIntOf Of hoJson "slot[i].token.hardwareVersion.major" To iTokenHardwareVersionMajor
Get ComIntOf Of hoJson "slot[i].token.hardwareVersion.minor" To iTokenHardwareVersionMinor
Get ComIntOf Of hoJson "slot[i].token.firmwareVersion.major" To iTokenFirmwareVersionMajor
Get ComIntOf Of hoJson "slot[i].token.firmwareVersion.minor" To iTokenFirmwareVersionMinor
Get ComStringOf Of hoJson "slot[i].token.utcTime" To sTokenUtcTime
Get ComIntOf Of hoJson "slot[i].token.rsa.minKeySize" To iTokenRsaMinKeySize
Get ComIntOf Of hoJson "slot[i].token.rsa.maxKeySize" To iTokenRsaMaxKeySize
Move 0 To j
Get ComSizeOfArray Of hoJson "slot[i].token.flags" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJson To j
Get ComStringOf Of hoJson "slot[i].token.flags[j]" To sStrVal
Move (j + 1) To j
Loop
Move 0 To j
Get ComSizeOfArray Of hoJson "slot[i].token.mechanism" To iCount_j
While (j < iCount_j)
Set ComJ Of hoJson To j
Get ComStringOf Of hoJson "slot[i].token.mechanism[j]" To sStrVal
Move (j + 1) To j
Loop
Move (i + 1) To i
Loop
End_Procedure