PowerBuilder

PKCS11 Generate a RSA Key that stays on the HSM

See more PKCS11 Examples

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

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

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Pkcs11
string ls_Pin
integer li_UserType
oleobject loo_PubKeyAttr
string ls_KeyId
string ls_KeyLabel
oleobject loo_PrivKeyAttr
oleobject loo_JsonHandles
oleobject loo_PubKey

li_Success = 0

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

loo_Pkcs11 = create oleobject
li_rc = loo_Pkcs11.ConnectToNewObject("Chilkat.Pkcs11")
if li_rc < 0 then
    destroy loo_Pkcs11
    MessageBox("Error","Connecting to COM object failed")
    return
end if

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

// Establish a logged-on session.
// Use your actual PIN here.
ls_Pin = "0000"
li_UserType = 1
li_Success = loo_Pkcs11.QuickSession(li_UserType,ls_Pin)
if li_Success = 0 then
    Write-Debug loo_Pkcs11.LastErrorText
    destroy loo_Pkcs11
    return
end if

// 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.
loo_PubKeyAttr = create oleobject
li_rc = loo_PubKeyAttr.ConnectToNewObject("Chilkat.JsonObject")

// Generate a RSA key that remains on the HSM by setting the "token" attribute equal to 1
loo_PubKeyAttr.UpdateBool("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.
ls_KeyId = "48656C6C6F"
loo_PubKeyAttr.UpdateString("id_hex",ls_KeyId)

// We can also give our key a label with any descriptive string.
ls_KeyLabel = "2048-bit RSA key for testing"
loo_PubKeyAttr.UpdateString("label",ls_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 encryption, signature verification, and symmetric key wrapping.
// These attributes are optional.
loo_PubKeyAttr.UpdateBool("encrypt",1)
loo_PubKeyAttr.UpdateBool("verify",1)
loo_PubKeyAttr.UpdateBool("wrap",1)

// Generate a 2048-bit RSA key.
// This attribute is required.
loo_PubKeyAttr.UpdateInt("modulus_bits",2048)

loo_PrivKeyAttr = create oleobject
li_rc = loo_PrivKeyAttr.ConnectToNewObject("Chilkat.JsonObject")

// Generate a RSA key that remains on the HSM by setting the "token" attribute equal to 1
loo_PrivKeyAttr.UpdateBool("token",1)

// Make sure we give the private key the same ID as the public key.
loo_PrivKeyAttr.UpdateString("id_hex",ls_KeyId)

// We can also give our key a label with any descriptive string.
// (Best to use the same label as for the public key)
loo_PrivKeyAttr.UpdateString("label",ls_KeyLabel)

// Allow the private key to be used for signing and decryption.
loo_PrivKeyAttr.UpdateBool("sign",1)
loo_PrivKeyAttr.UpdateBool("decrypt",1)

// Provide a JSON object to receive the public and private key handles.
loo_JsonHandles = create oleobject
li_rc = loo_JsonHandles.ConnectToNewObject("Chilkat.JsonObject")

loo_JsonHandles.EmitCompact = 0

// Provide a Chilkat public key object to receive the public key.
loo_PubKey = create oleobject
li_rc = loo_PubKey.ConnectToNewObject("Chilkat.PublicKey")

li_Success = loo_Pkcs11.GenRsaKey(loo_PubKeyAttr,loo_PrivKeyAttr,loo_JsonHandles,loo_PubKey)
if li_Success = 0 then
    Write-Debug loo_Pkcs11.LastErrorText
    Write-Debug "Failed to generate an RSA key."
else
    // Sample JSON handles:
    // {
    //   "public_key_handle": 18415630,
    //   "private_key_handle": 74842125
    // }
    Write-Debug loo_JsonHandles.Emit()
    Write-Debug "public_key_handle: " + string(loo_JsonHandles.UIntOf("public_key_handle"))
    Write-Debug "private_key_handle: " + string(loo_JsonHandles.UIntOf("private_key_handle"))
    Write-Debug "public key JWK:"
    Write-Debug loo_PubKey.GetJwk()
    // Sample JWK:
    // {"kty":"RSA","n":"1sQMSAntY80L .... If9jqfMp4omQ","e":"AQAB"}
    Write-Debug "Success."
end if

loo_Pkcs11.Logout()
loo_Pkcs11.CloseSession()


destroy loo_Pkcs11
destroy loo_PubKeyAttr
destroy loo_PrivKeyAttr
destroy loo_JsonHandles
destroy loo_PubKey