(DataFlex) PKCS11 Find Private Key by Label

See more PKCS11 Examples

Demonstrates how to find a private key based on a user-specified label.

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 vJsonTemplate
    Handle hoJsonTemplate
    UInteger iPrivKeyHandle
    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.
    // For example:
    Set ComSharedLibPath Of hoPkcs11 To "C:/Program Files (x86)/Gemalto/IDGo 800 PKCS#11/IDPrimePKCS11.dll"

    // Use your HSM's PIN.
    Move "0000" To sPin

    // Normal user = 1
    Move 1 To iUserType

    // Establish a logged-on user session with the HSM.
    Get ComQuickSession Of hoPkcs11 iUserType sPin To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoPkcs11 To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Provide a template to find a PKCS11 object.
    Get Create (RefClass(cComChilkatJsonObject)) To hoJsonTemplate
    If (Not(IsComObjectCreated(hoJsonTemplate))) Begin
        Send CreateComObject of hoJsonTemplate
    End

    // Find an RSA private key with the label "MySshKey".
    // Here's an example of how the key was originally imported: 
    // PKCS11 Import SSH Key
    Get ComUpdateString Of hoJsonTemplate "class" "private_key" To iSuccess
    Get ComUpdateString Of hoJsonTemplate "key_type" "rsa" To iSuccess
    Get ComUpdateString Of hoJsonTemplate "label" "MySshKey" To iSuccess

    Get pvComObject of hoJsonTemplate to vJsonTemplate
    Get ComFindObject Of hoPkcs11 vJsonTemplate To iPrivKeyHandle
    If (iPrivKeyHandle = 0) Begin
        Get ComLastErrorText Of hoPkcs11 To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // The private key handle is only valid during the PKCS11 session.
    // If you wish to use the private key in another PKCS11 session,
    // you'll first need to find it.  See:  
    Showln "private key handle: " iPrivKeyHandle

    // Do whatever you wish with the private key handle...
    // ...
    // ...

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


End_Procedure