Pascal (Lazarus/Delphi)

ScMinidriver - Import Private Key to Smart Card

See more ScMinidriver Examples

Demonstrates how to import a private key to the "signature" or "key exchange" location in the Nth key container on a smart card. 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.PrivateKey,
  Chilkat.ScMinidriver;

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

procedure RunDemo;
var
  success: Boolean;
  privKey: TPrivateKey;
  scmd: TScMinidriver;
  readerName: string;
  pinId: string;
  retval: Integer;

begin
  success := False;

  //  This example requires the Chilkat API to have been previously unlocked.
  //  See Global Unlock Sample for sample code.

  //  Chilkat recommends the following free tool for interactively examining the contents of your smart card
  //  through the ScMinidriver interface:  MGTEK Tool for Minidriver enabled Smart Cards

  //  Let's first look at our smart card before importing a private key.
  //  Here's the view of our Gemalto (Thales) IDPrime MD T=0 smart card in the MGTEK tool:

  //  (image:https://example-code.com/images/gemalto_idprime_md_t0.JPG/endImage)

  //  First let's load a private key into the Chilkat private key object.
  //  (Chilkat provides the ability to load private keys from many different sources and formats.
  //  this example loads from a PEM file.)
  privKey := TPrivateKey.Create;
  success := privKey.LoadPemFile('qa_data/rsa/rsaPrivKey_pkcs8.pem');
  if (success = False) then
    begin
      WriteLn(privKey.LastErrorText);
      Exit;
    end;

  scmd := TScMinidriver.Create;

  //  First we need to acquire a context to the smart card in the reader where it is inserted.
  //  Reader names (smart card readers or USB tokens) can be discovered
  //  via List Readers or Find Smart Cards
  readerName := 'Alcor Micro USB Smart Card Reader 0';
  success := scmd.AcquireContext(readerName);
  if (success = False) then
    begin
      WriteLn(scmd.LastErrorText);
      Exit;
    end;

  //  If successful, the name of the currently inserted smart card is available:
  WriteLn('Card name: ' + scmd.CardName);

  //  To import a private key, we'll need to be PIN authenticated.
  //  For more details about smart card PIN authentication, see the Smart Card PIN Authentication Example
  pinId := 'user';
  retval := scmd.PinAuthenticate(pinId,'0000');
  if (retval <> 0) then
    begin
      WriteLn('PIN Authentication failed.');
      scmd.DeleteContext();
      Exit;
    end;

  //  Let's import into the "key exchange" position in key container #7.
  success := scmd.ImportKey(7,'kex',privKey,'user');
  if (success = False) then
    begin
      WriteLn('PIN Authentication failed.');
      scmd.DeleteContext();
      Exit;
    end;

  scmd.DeleteContext();

  WriteLn('Success.');

  //  Here's the MGTEK view of the smart card after importing the private key:
  //  (image:https://example-code.com/images/gemalto_idprime_after_key_import.JPG/endImage)


  privKey.Free;
  scmd.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.