Pascal (Lazarus/Delphi)

PKCS11 Set PIN for Currently Logged On User

See more PKCS11 Examples

Demonstrates how to change the PIN for the currently logged on user. (The currently logged on user can be the Security Officer, the Normal User, or Context Specific.)

Note: Requires Chilkat v9.5.0.89 or greater.

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;

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

procedure RunDemo;
var
  success: Boolean;
  pkcs11: TPkcs11;
  slotID: Integer;
  readWrite: Boolean;
  userType: Integer;
  pin: string;

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;

  //  See PKCS11 Find Driver Library Path for information about how to find the 
  //  PKCS11 driver file (if not explicitly known) for the plugged-in token or smart card in reader.
  pkcs11.SharedLibPath := 'IDPrimePKCS1164.dll';

  success := pkcs11.Initialize();
  if (success = False) then
    begin
      WriteLn(pkcs11.LastErrorText);
      Exit;
    end;

  //  Pass -1 for the slotID to open a session on the first non-empty slot.
  slotID := -1;

  //  Open a session.
  readWrite := True;
  success := pkcs11.OpenSession(slotID,readWrite);
  if (success = False) then
    begin
      WriteLn(pkcs11.LastErrorText);
      Exit;
    end;

  //  Make it an authenticated session by calling Login.
  //  The smart card PIN is passed to the Login method.
  //  The user type can be one of three choices:
  //  0 - Security Officer
  //  1 - Normal User
  //  2 - Context Specific.
  userType := 1;
  pin := '0000';
  success := pkcs11.Login(userType,pin);
  if (success = False) then
    begin
      WriteLn(pkcs11.LastErrorText);
      success := pkcs11.CloseSession();
      Exit;
    end;

  //  Change the PIN from 0000 to 1234
  //  This changes the PIN for the user type that is logged in.
  success := pkcs11.SetPin(pin,'1234');
  if (success = False) then
    begin
      WriteLn(pkcs11.LastErrorText);
      success := pkcs11.CloseSession();
      Exit;
    end;

  //  Revert to an unauthenticated session by calling Logout.
  success := pkcs11.Logout();
  if (success = False) then
    begin
      WriteLn(pkcs11.LastErrorText);
      success := pkcs11.CloseSession();
      Exit;
    end;

  //  When finished, close the session.
  //  It is important to close the session (memory leaks will occur if the session is not properly closed).
  success := pkcs11.CloseSession();
  if (success = False) then
    begin
      WriteLn(pkcs11.LastErrorText);
      Exit;
    end;

  WriteLn('Successfully changed PIN from 0000 to 1234');


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