Delphi DLL Requires Chilkat v11.0.0+

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.

Delphi DLL

var
success: Boolean;
pkcs11: HCkPkcs11;
pin: PWideChar;
userType: Integer;
rsa: HCkRsa;
privKey: HCkPrivateKey;
xml: HCkXml;
pubKey: HCkPublicKey;
attrs: HCkJsonObject;
objHandle: Cardinal;

begin
success := False;

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

pkcs11 := CkPkcs11_Create();

//  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_putSharedLibPath(pkcs11,'C:/Program Files (x86)/Gemalto/IDGo 800 PKCS#11/IDPrimePKCS1164.dll');

//  Establish a logged-on session.
pin := '0000';
userType := 1;
success := CkPkcs11_QuickSession(pkcs11,userType,pin);
if (success = False) then
  begin
    Memo1.Lines.Add(CkPkcs11__lastErrorText(pkcs11));
    Exit;
  end;

//  Generate a new 2048-bit RSA key.
rsa := CkRsa_Create();
privKey := CkPrivateKey_Create();
success := CkRsa_GenKey(rsa,2048,privKey);
if (success = False) then
  begin
    Memo1.Lines.Add(CkRsa__lastErrorText(rsa));
    Exit;
  end;

//  Get the public key information as XML, so we can access the modulus and exponent.
xml := CkXml_Create();
pubKey := CkPublicKey_Create();
CkPrivateKey_ToPublicKey(privKey,pubKey);
CkXml_LoadXml(xml,CkPublicKey__getXml(pubKey));

attrs := CkJsonObject_Create();
//  Specify the type of object, and the type of key.
CkJsonObject_UpdateString(attrs,'class','CKO_PUBLIC_KEY');
CkJsonObject_UpdateString(attrs,'key_type','CKK_RSA');
//  Add an optional label if desired.
CkJsonObject_UpdateString(attrs,'label','RSA Public Key 1');
//  Allow the key to be use for verify, wrapping, and encryption operations.
CkJsonObject_UpdateBool(attrs,'verify',True);
CkJsonObject_UpdateBool(attrs,'wrap',True);
CkJsonObject_UpdateBool(attrs,'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 = 1.
CkJsonObject_UpdateBool(attrs,'token',False);

//  Provide the RSA public key material
CkJsonObject_UpdateString(attrs,'modulus',CkXml__getChildContent(xml,'Modulus'));
CkJsonObject_UpdateString(attrs,'public_exponent',CkXml__getChildContent(xml,'Exponent'));

//  Create the RSA public key.
//  Returns the PKCS11 object handle of the created key.
objHandle := CkPkcs11_CreatePkcs11Object(pkcs11,attrs);
if (objHandle = 0) then
  begin
    Memo1.Lines.Add(CkPkcs11__lastErrorText(pkcs11));
    Memo1.Lines.Add('Failed.');
  end
else
  begin
    Memo1.Lines.Add('PKCS11 object handle = ' + IntToStr(objHandle));
    Memo1.Lines.Add('Successfully imported an RSA key..');
  end;

CkPkcs11_Logout(pkcs11);
CkPkcs11_CloseSession(pkcs11);

CkPkcs11_Dispose(pkcs11);
CkRsa_Dispose(rsa);
CkPrivateKey_Dispose(privKey);
CkXml_Dispose(xml);
CkPublicKey_Dispose(pubKey);
CkJsonObject_Dispose(attrs);