(DataFlex) PKCS11 Find all Private Keys

See more PKCS11 Examples

Demonstrates how to list all private keys on an HSM.

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoPkcs11
    String sPin
    Integer iUserType
    Boolean iSuccess
    Variant vJson
    Handle hoJson
    Integer iHandle
    String sId
    String sKey_type
    String sLabel
    String sModulus
    String sExponent
    Integer i
    Integer iCount_i
    String sTemp1

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

    // Use the PKCS11 driver (.dll, .so, .dylib) for your particular HSM.
    // (The format of the path will change with the operating system.  Obviously, "C:/" is not used on non-Windows systems.
    Set ComSharedLibPath Of hoPkcs11 To "C:/Program Files (x86)/Gemalto/IDGo 800 PKCS#11/IDPrimePKCS1164.dll"

    // Establish a logged-on session.
    // Use your actual PIN here.
    Move "0000" To sPin
    Move 1 To iUserType
    Get ComQuickSession Of hoPkcs11 iUserType sPin To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoPkcs11 To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Note: A logged-on session is required to list private keys.

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Set ComEmitCompact Of hoJson To False

    Get pvComObject of hoJson to vJson
    Get ComFindAllKeys Of hoPkcs11 "private" vJson To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoPkcs11 To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComEmit Of hoJson To sTemp1
    Showln sTemp1

    // Sample output, with parsing code below..

    // {
    //   "keys": [
    //     {
    //       "handle": 74842125,
    //       "id": "0001020304",
    //       "key_type": "RSA",
    //       "label": "Chilkat Software, Inc.",
    //       "modulus": "twVRf6O ... Rwa1ebFY0=",
    //       "exponent": "AAEAAQ=="
    //     },
    //     {
    //       "handle": 18415630,
    //       "id": "010203040A0B0C0D0E0F",
    //       "key_type": "RSA",
    //       "label": "ehealth private key",
    //       "modulus": "qdKjhOwA1 ... A4MtX8BYgHmLw==",
    //       "exponent": "AAEAAQ=="
    //     },
    //     {
    //       "handle": 3735567,
    //       "id": "D531B4B8F308489DA58350596178845973A4562E",
    //       "key_type": "RSA",
    //       "label": "d531b4b8-f308-489d-a583-505961788459",
    //       "modulus": "r0MmXRKBP ... HAd1kUPsNyzcQ==",
    //       "exponent": "AAEAAQ=="
    //     },
    //     {
    //       "handle": 238092304,
    //       "id": "0A0B0C0D01020304",
    //       "key_type": "RSA",
    //       "label": "MySshKey",
    //       "modulus": "ykFHcfBFOq ... rfXBK/6g9t+S6UjJ1kUQ==",
    //       "exponent": "AAEAAQ=="
    //     },
    //     {
    //       "handle": 49348625,
    //       "id": "48656C6C6F",
    //       "key_type": "RSA",
    //       "label": "2048-bit RSA key for testing",
    //       "modulus": "vReVaJzXZYIOB ... kamD/8iNvhAKlKbQ==",
    //       "exponent": "AAEAAQ=="
    //     }
    //   ]
    // }

    // Use this online tool to generate parsing code from sample JSON: 
    // Generate Parsing Code from JSON

    Move 0 To i
    Get ComSizeOfArray Of hoJson "keys" To iCount_i
    While (i < iCount_i)
        Set ComI Of hoJson To i
        Get ComIntOf Of hoJson "keys[i].handle" To iHandle
        Get ComStringOf Of hoJson "keys[i].id" To sId
        Get ComStringOf Of hoJson "keys[i].key_type" To sKey_type
        Get ComStringOf Of hoJson "keys[i].label" To sLabel
        Get ComStringOf Of hoJson "keys[i].modulus" To sModulus
        Get ComStringOf Of hoJson "keys[i].exponent" To sExponent
        Move (i + 1) To i
    Loop

    Get ComLogout Of hoPkcs11 To iSuccess
    Get ComCloseSession Of hoPkcs11 To iSuccess


End_Procedure