(Xojo Plugin) 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.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

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

// Establish a logged-on session.
Dim pin As String
pin = "0000"
Dim userType As Int32
userType = 1
Dim success As Boolean
success = pkcs11.QuickSession(userType,pin)
If (success = False) Then
    System.DebugLog(pkcs11.LastErrorText)
    Return
End If

// Generate a new 2048-bit RSA key.
Dim rsa As New Chilkat.Rsa
success = rsa.GenerateKey(2048)
If (success = False) Then
    System.DebugLog(rsa.LastErrorText)
    Return
End If

// Get the public key information as XML, so we can access the modulus and exponent.
Dim xml As New Chilkat.Xml
success = xml.LoadXml(rsa.ExportPublicKey())

Dim attrs As New Chilkat.JsonObject
// Specify the type of object, and the type of key.
success = attrs.UpdateString("class","CKO_PUBLIC_KEY")
success = attrs.UpdateString("key_type","CKK_RSA")
// Add an optional label if desired.
success = attrs.UpdateString("label","RSA Public Key 1")
// Allow the key to be use for verify, wrapping, and encryption operations.
success = attrs.UpdateBool("verify",True)
success = attrs.UpdateBool("wrap",True)
success = attrs.UpdateBool("encrypt",True)

// 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 = True.
success = attrs.UpdateBool("token",False)

// Provide the RSA public key material
success = attrs.UpdateString("modulus",xml.GetChildContent("Modulus"))
success = attrs.UpdateString("public_exponent",xml.GetChildContent("Exponent"))

// Create the RSA public key.
// Returns the PKCS11 object handle of the created key.
Dim objHandle As UInt32
objHandle = pkcs11.CreatePkcs11Object(attrs)
If (objHandle = 0) Then
    System.DebugLog(pkcs11.LastErrorText)
    System.DebugLog("Failed.")
Else
    System.DebugLog("PKCS11 object handle = " + Str(objHandle))
    System.DebugLog("Successfully imported an RSA key..")
End If

success = pkcs11.Logout()
success = pkcs11.CloseSession()