Visual FoxPro

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.

Visual FoxPro

LOCAL lnSuccess
LOCAL loPkcs11
LOCAL lcPin
LOCAL lnUserType
LOCAL loRsa
LOCAL loPrivKey
LOCAL loXml
LOCAL loPubKey
LOCAL loAttrs
LOCAL lnObjHandle

lnSuccess = 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.

loPkcs11 = CreateObject('Chilkat.Pkcs11')

* 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
lnSuccess = loPkcs11.QuickSession(lnUserType,lcPin)
IF (lnSuccess = 0) THEN
    ? loPkcs11.LastErrorText
    RELEASE loPkcs11
    CANCEL
ENDIF

* Generate a new 2048-bit RSA key.
loRsa = CreateObject('Chilkat.Rsa')
loPrivKey = CreateObject('Chilkat.PrivateKey')
lnSuccess = loRsa.GenKey(2048,loPrivKey)
IF (lnSuccess = 0) THEN
    ? loRsa.LastErrorText
    RELEASE loPkcs11
    RELEASE loRsa
    RELEASE loPrivKey
    CANCEL
ENDIF

* Get the public key information as XML, so we can access the modulus and exponent.
loXml = CreateObject('Chilkat.Xml')
loPubKey = CreateObject('Chilkat.PublicKey')
loPrivKey.ToPublicKey(loPubKey)
loXml.LoadXml(loPubKey.GetXml())

loAttrs = CreateObject('Chilkat.JsonObject')
* 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",1)
loAttrs.UpdateBool("wrap",1)
loAttrs.UpdateBool("encrypt",1)

* 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 = 1.
loAttrs.UpdateBool("token",0)

* 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