(DataFlex) PKCS11 Generate an EC Key that stays on the HSM

See more PKCS11 Examples

Generates an EC key on the smart card or token and returns the public and private key handles. The generated EC key stays on the HSM even after the PKCS11 session has ended.

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 vPubKey
Attr    Handle hoPubKeyAttr
    String sKeyId
    String sKeyLabel
    Variant vPrivKeyAttr
    Handle hoPrivKeyAttr
    Variant vJsonHandles
    Handle hoJsonHandles
    Variant vPubKey
    Handle hoPubKey
    String sTemp1
    Integer iTemp1

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

    // ------------------------------------------------------------------------------
    // Specify attributes and abilities (how this key can be used) by providing a JSON template.
    // One template is for the public key, and the other for the private key.
    Get Create (RefClass(cComChilkatJsonObject)) To hoPubKeyAttr
    If (Not(IsComObjectCreated(hoPubKeyAttr))) Begin
        Send CreateComObject of hoPubKeyAttr
    End

    // Generate an EC key that remains on the HSM by setting the "token" attribute equal to True
    Get ComUpdateBool Of hoPubKeyAttr "token" True To iSuccess

    // Given that our key will reside on the token, we should give it two attributes (id and label) to help us
    // find it in future sessions.

    // First, we can give it an arbitrary ID.  ID's are binary, so we specify bytes as either 
    // "id_hex" for hexidecimal bytes, 
    // "id_ascii" for the bytes of an ascii string, 
    // "id" for bytes in base64 format.
    Move "0102030405060708090A" To sKeyId
    Get ComUpdateString Of hoPubKeyAttr "id_hex" sKeyId To iSuccess

    // We can also give our key a label with any descriptive string.
    Move "secp256r1 EC key for testing" To sKeyLabel
    Get ComUpdateString Of hoPubKeyAttr "label" sKeyLabel To iSuccess

    // -----------------------------------------------------------------------------------
    // IMPORTANT: The ID for the public key must be the same as the ID for the private key.
    // -----------------------------------------------------------------------------------

    // Allow the public key to be used for signature verification
    Get ComUpdateBool Of hoPubKeyAttr "verify" True To iSuccess

    // Specify the kind of EC key to generate by the curve name
    // Possible curve names are:
    // secp256r1  (also known as P-256 and prime256v1)
    // secp384r1  (also known as P-384)
    // secp521r1  (also known as P-521)
    // secp256k1 (This is the curve used for Bitcoin)
    // secp192r1
    // secp224r1
    // brainpoolP160r1
    // brainpoolP192r1
    // brainpoolP192r1
    // brainpoolP224r1
    // brainpoolP256r1
    // brainpoolP320r1
    // brainpoolP384r1
    // brainpoolP512r1
    // Note: Your smart card or token might not support all of the above EC curves (assuming it supports EC at all).

    // This attribute is required.
    Get ComUpdateString Of hoPubKeyAttr "ec_params" "secp256r1" To iSuccess

    // ------------------------------------------------------------------------------
    Get Create (RefClass(cComChilkatJsonObject)) To hoPrivKeyAttr
    If (Not(IsComObjectCreated(hoPrivKeyAttr))) Begin
        Send CreateComObject of hoPrivKeyAttr
    End

    // Generate an EC key that remains on the HSM by setting the "token" attribute equal to True
    Get ComUpdateBool Of hoPrivKeyAttr "token" True To iSuccess

    // Make sure we give the private key the same ID as the public key.
    Get ComUpdateString Of hoPrivKeyAttr "id_hex" sKeyId To iSuccess

    // We can also give our key a label with any descriptive string.
    // (Best to use the same label as for the public key)
    Get ComUpdateString Of hoPrivKeyAttr "label" sKeyLabel To iSuccess

    // Allow the private key to be used for signing.
    Get ComUpdateBool Of hoPrivKeyAttr "sign" True To iSuccess

    // Provide a JSON object to receive the public and private key handles.
    Get Create (RefClass(cComChilkatJsonObject)) To hoJsonHandles
    If (Not(IsComObjectCreated(hoJsonHandles))) Begin
        Send CreateComObject of hoJsonHandles
    End
    Set ComEmitCompact Of hoJsonHandles To False

    // Provide a Chilkat public key object to receive the public key.
    Get Create (RefClass(cComChilkatPublicKey)) To hoPubKey
    If (Not(IsComObjectCreated(hoPubKey))) Begin
        Send CreateComObject of hoPubKey
    End

    Get pvComObject of hoPubKeyAttr to vPubKeyAttr
    Get pvComObject of hoPrivKeyAttr to vPrivKeyAttr
    Get pvComObject of hoJsonHandles to vJsonHandles
    Get pvComObject of hoPubKey to vPubKey
    Get ComGenEcKey Of hoPkcs11 vPubKeyAttr vPrivKeyAttr vJsonHandles vPubKey To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoPkcs11 To sTemp1
        Showln sTemp1
        Showln "Failed to generate an EC key."
    End
    Else Begin
        // Sample JSON handles:
        // {
        //   "public_key_handle": 18415630,
        //   "private_key_handle": 74842125
        // }
        Get ComEmit Of hoJsonHandles To sTemp1
        Showln sTemp1
        Get ComUIntOf Of hoJsonHandles "public_key_handle" To iTemp1
        Showln "public_key_handle: " iTemp1
        Get ComUIntOf Of hoJsonHandles "private_key_handle" To iTemp1
        Showln "private_key_handle: " iTemp1
        Showln "public key JWK:"
        Get ComGetJwk Of hoPubKey To sTemp1
        Showln sTemp1
        // Sample JWK:
        // {"kty":"EC","crv":"P-256","x":"EDy-Sxl0DZ8tvzy_qnIYl6DYPFjTVnyJ2I9ZTCfKds4","y":"yBZ4HK2yF7F7ZEOn59CgTQp2ApQJ8ZOF736yZxY6LOE"}
        Showln "Success."
    End

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


End_Procedure