Pascal (Lazarus/Delphi)

PKCS11 Generate a Session RSA Key on the HSM

See more PKCS11 Examples

Generates an RSA key on the smart card or token and returns the public and private key handles. The generated RSA key exists only for the duration of the PKCS11 session.

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

Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Pkcs11,
  Chilkat.PublicKey,
  Chilkat.JsonObject;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  pkcs11: TPkcs11;
  pin: string;
  userType: Integer;
  pubKeyAttr: TJsonObject;
  privKeyAttr: TJsonObject;
  jsonHandles: TJsonObject;
  pubKey: TPublicKey;

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 := TPkcs11.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.
  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 = False) then
    begin
      WriteLn(pkcs11.LastErrorText);
      Exit;
    end;

  //  Specify attributes and abilities (how this key can be used) by providing a JSON template.
  //  One template is for the public key, and the other for the private key.
  pubKeyAttr := TJsonObject.Create;

  //  Allow the public key to be used for encryption, signature verification, and symmetric key wrapping
  //  These attributes are optional.
  pubKeyAttr.UpdateBool('encrypt',True);
  pubKeyAttr.UpdateBool('verify',True);
  pubKeyAttr.UpdateBool('wrap',True);

  //  Generate a 2048-bit RSA key.
  //  This attribute is required.
  pubKeyAttr.UpdateInt('modulus_bits',2048);

  privKeyAttr := TJsonObject.Create;

  //  Generate a session RSA key.
  //  A session key exists only for the duration of the PKS11 session.
  //  To generate an RSA key that resides on the HSM, set the "token" attribute equal to True
  privKeyAttr.UpdateBool('token',False);

  //  Allow the private key to be used for signing and decryption.
  privKeyAttr.UpdateBool('sign',True);
  privKeyAttr.UpdateBool('decrypt',True);

  //  Do not allow the private key to be extracted.
  privKeyAttr.UpdateBool('extractable',False);

  //  Provide a JSON object to receive the public and private key handles.
  jsonHandles := TJsonObject.Create;
  jsonHandles.EmitCompact := False;

  //  Provide a Chilkat public key object to receive the public key.
  pubKey := TPublicKey.Create;

  success := pkcs11.GenRsaKey(pubKeyAttr,privKeyAttr,jsonHandles,pubKey);
  if (success = False) then
    begin
      WriteLn(pkcs11.LastErrorText);
      WriteLn('Failed to generate an RSA key.');
    end
  else
    begin
      //  Sample JSON handles:
      //  {
      //    "public_key_handle": 18415630,
      //    "private_key_handle": 74842125
      //  }
      WriteLn(jsonHandles.Emit());
      WriteLn('public_key_handle: ' + jsonHandles.UIntOf('public_key_handle'));
      WriteLn('private_key_handle: ' + jsonHandles.UIntOf('private_key_handle'));
      WriteLn('public key JWK:');
      WriteLn(pubKey.GetJwk());
      //  Sample JWK:
      //  {"kty":"RSA","n":"1sQMSAntY80L .... If9jqfMp4omQ","e":"AQAB"}
      WriteLn('Success.');
    end;

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


  pkcs11.Free;
  pubKeyAttr.Free;
  privKeyAttr.Free;
  jsonHandles.Free;
  pubKey.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.