(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# 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]

# 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.
CkPkcs11_put_SharedLibPath $pkcs11 "C:/Program Files (x86)/Gemalto/IDGo 800 PKCS#11/IDPrimePKCS1164.dll"

# Establish a logged-on session.
set pin "0000"
set userType 1
set success [CkPkcs11_QuickSession $pkcs11 $userType $pin]
if {$success == 0} then {
    puts [CkPkcs11_lastErrorText $pkcs11]
    delete_CkPkcs11 $pkcs11
    exit
}

# ------------------------------------------------------------------------------
# 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.
set pubKeyAttr [new_CkJsonObject]

# Generate an EC key that remains on the HSM by setting the "token" attribute equal to 1
CkJsonObject_UpdateBool $pubKeyAttr "token" 1

# 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.
set keyId "0102030405060708090A"
CkJsonObject_UpdateString $pubKeyAttr "id_hex" $keyId

# We can also give our key a label with any descriptive string.
set keyLabel "secp256r1 EC key for testing"
CkJsonObject_UpdateString $pubKeyAttr "label" $keyLabel

# -----------------------------------------------------------------------------------
# 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
CkJsonObject_UpdateBool $pubKeyAttr "verify" 1

# 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.
CkJsonObject_UpdateString $pubKeyAttr "ec_params" "secp256r1"

# ------------------------------------------------------------------------------
set privKeyAttr [new_CkJsonObject]

# Generate an EC key that remains on the HSM by setting the "token" attribute equal to 1
CkJsonObject_UpdateBool $privKeyAttr "token" 1

# Make sure we give the private key the same ID as the public key.
CkJsonObject_UpdateString $privKeyAttr "id_hex" $keyId

# We can also give our key a label with any descriptive string.
# (Best to use the same label as for the public key)
CkJsonObject_UpdateString $privKeyAttr "label" $keyLabel

# Allow the private key to be used for signing.
CkJsonObject_UpdateBool $privKeyAttr "sign" 1

# Provide a JSON object to receive the public and private key handles.
set jsonHandles [new_CkJsonObject]

CkJsonObject_put_EmitCompact $jsonHandles 0

# Provide a Chilkat public key object to receive the public key.
set pubKey [new_CkPublicKey]

set success [CkPkcs11_GenEcKey $pkcs11 $pubKeyAttr $privKeyAttr $jsonHandles $pubKey]
if {$success == 0} then {
    puts [CkPkcs11_lastErrorText $pkcs11]
    puts "Failed to generate an EC key."
} else {
    # Sample JSON handles:
    # {
    #   "public_key_handle": 18415630,
    #   "private_key_handle": 74842125
    # }
    puts [CkJsonObject_emit $jsonHandles]
    puts "public_key_handle: [CkJsonObject_UIntOf $jsonHandles public_key_handle]"
    puts "private_key_handle: [CkJsonObject_UIntOf $jsonHandles private_key_handle]"
    puts "public key JWK:"
    puts [CkPublicKey_getJwk $pubKey]
    # Sample JWK:
    # {"kty":"EC","crv":"P-256","x":"EDy-Sxl0DZ8tvzy_qnIYl6DYPFjTVnyJ2I9ZTCfKds4","y":"yBZ4HK2yF7F7ZEOn59CgTQp2ApQJ8ZOF736yZxY6LOE"}
    puts "Success."
}

CkPkcs11_Logout $pkcs11
CkPkcs11_CloseSession $pkcs11

delete_CkPkcs11 $pkcs11
delete_CkJsonObject $pubKeyAttr
delete_CkJsonObject $privKeyAttr
delete_CkJsonObject $jsonHandles
delete_CkPublicKey $pubKey