Delphi ActiveX

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 ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
pkcs11: TChilkatPkcs11;
pin: WideString;
userType: Integer;
rsa: TChilkatRsa;
privKey: TPrivateKey;
xml: TChilkatXml;
pubKey: TPublicKey;
attrs: TChilkatJsonObject;
objHandle: Cardinal;

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

pkcs11 := TChilkatPkcs11.Create(Self);

// 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.
pin := '0000';
userType := 1;
success := pkcs11.QuickSession(userType,pin);
if (success = 0) then
  begin
    Memo1.Lines.Add(pkcs11.LastErrorText);
    Exit;
  end;

// Generate a new 2048-bit RSA key.
rsa := TChilkatRsa.Create(Self);
privKey := TPrivateKey.Create(Self);
success := rsa.GenKey(2048,privKey.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(rsa.LastErrorText);
    Exit;
  end;

// Get the public key information as XML, so we can access the modulus and exponent.
xml := TChilkatXml.Create(Self);
pubKey := TPublicKey.Create(Self);
privKey.ToPublicKey(pubKey.ControlInterface);
xml.LoadXml(pubKey.GetXml());

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

// Provide the RSA public key material
attrs.UpdateString('modulus',xml.GetChildContent('Modulus'));
attrs.UpdateString('public_exponent',xml.GetChildContent('Exponent'));

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

pkcs11.Logout();
pkcs11.CloseSession();
end;