Pascal (Lazarus/Delphi)

ScMinidriver - PIN Authentication for Smart Card or USB Token

See more ScMinidriver Examples

Demonstrates how to PIN authenticate with a connected smart card or USB token. 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.ScMinidriver;

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

procedure RunDemo;
var
  success: Boolean;
  scmd: TScMinidriver;
  readerName: string;
  cardName: string;
  pinId: string;
  pin: string;
  retval: Integer;

begin
  success := False;

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

  scmd := TScMinidriver.Create;

  //  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 we are successful, the name of the currently inserted smart card is available:
  cardName := scmd.CardName;
  WriteLn('Card name: ' + cardName);

  //  Perform regular PIN authentication with the smartcard.
  //  If authentication is successful, then the ScMinidriver session is authenticated and
  //  operations such as signing are permissible.

  //  The pin ID can be "user", "admin", or a number "3" through "7" (passed as a string).
  //  The possible pin ID's for a given smartcard are obtained via the GetCardProperties method.
  //  See Get Smart Card Properties for sample code.
  //  You should generally use the "user" pin ID.  You would only use the other pin ID's for very specific purposes.
  pinId := 'user';

  //  Change this to the PIN for your smart card.
  pin := '0000';

  retval := scmd.PinAuthenticate(pinId,pin);

  //  The return value is 0 for success.
  //  If the retval is greater than 0, it is the number of attempts remaining before the PIN is blocked.
  //  If the retval equals -1, then something else went wrong and you should consult the LastErrorText.
  if (retval < 0) then
    begin
      WriteLn(scmd.LastErrorText);
      Exit;
    end;

  if (retval > 0) then
    begin
      WriteLn('PIN authentcation failed, ' + retval + ' attempts remaining before the PIN is blocked.');
    end
  else
    begin
      WriteLn('PIN authentication successful. Your session is now authenticated and you may proceed with operations such as signing.');
    end;

  //  ...
  //  ...
  //  ...

  //  You may deauthenticate the session when finished with operations that required authentication.
  success := scmd.PinDeauthenticate(pinId);
  if (success = False) then
    begin
      WriteLn(scmd.LastErrorText);
    end;

  //  Delete the context when finished with the card.
  success := scmd.DeleteContext();
  if (success = False) then
    begin
      WriteLn(scmd.LastErrorText);
    end;


  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.