Lianja

PKCS11 Import an Existing RSA Public Key onto the HSM

See more PKCS11 Examples

Demonstrates how to import an existing RSA Public Key onto a smart card or token.

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

Lianja

llSuccess = .F.

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

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

// Establish a logged-on session.
lcPin = "0000"
lnUserType = 1
llSuccess = loPkcs11.QuickSession(lnUserType,lcPin)
if (llSuccess = .F.) then
    ? loPkcs11.LastErrorText
    release loPkcs11
    return
endif

// Generate a new 2048-bit RSA key.
loRsa = createobject("CkRsa")
loPrivKey = createobject("CkPrivateKey")
llSuccess = loRsa.GenKey(2048,loPrivKey)
if (llSuccess = .F.) then
    ? loRsa.LastErrorText
    release loPkcs11
    release loRsa
    release loPrivKey
    return
endif

// Get the public key information as XML, so we can access the modulus and exponent.
loXml = createobject("CkXml")
loPubKey = createobject("CkPublicKey")
loPrivKey.ToPublicKey(loPubKey)
loXml.LoadXml(loPubKey.GetXml())

loAttrs = createobject("CkJsonObject")
// Specify the type of object, and the type of key.
loAttrs.UpdateString("class","CKO_PUBLIC_KEY")
loAttrs.UpdateString("key_type","CKK_RSA")
// Add an optional label if desired.
loAttrs.UpdateString("label","RSA Public Key 1")
// Allow the key to be use for verify, wrapping, and encryption operations.
loAttrs.UpdateBool("verify",.T.)
loAttrs.UpdateBool("wrap",.T.)
loAttrs.UpdateBool("encrypt",.T.)

// Make this a session-only public key.
// To store the public key on the token so that it persists after the PKCS11 session, set token = .T..
loAttrs.UpdateBool("token",.F.)

// Provide the RSA public key material
loAttrs.UpdateString("modulus",loXml.GetChildContent("Modulus"))
loAttrs.UpdateString("public_exponent",loXml.GetChildContent("Exponent"))

// Create the RSA public key.
// Returns the PKCS11 object handle of the created key.
lnObjHandle = loPkcs11.CreatePkcs11Object(loAttrs)
if (lnObjHandle = 0) then
    ? loPkcs11.LastErrorText
    ? "Failed."
else
    ? "PKCS11 object handle = " + str(lnObjHandle)
    ? "Successfully imported an RSA key.."
endif

loPkcs11.Logout()
loPkcs11.CloseSession()


release loPkcs11
release loRsa
release loPrivKey
release loXml
release loPubKey
release loAttrs