Lazarus Pascal

Load a Private Key from a PKCS #1 File

Demonstrates the Chilkat PrivateKey.LoadPkcs1File method, which loads a private key from a file. The only argument is the file path. Despite the historical PKCS #1 name, it accepts any supported unencrypted private-key representation.

Note: The file path is relative to the application's current working directory. Absolute paths may also be used. Supply the path to your own key file.

Background: PKCS #1 is the older, RSA-specific key format — the BEGIN RSA PRIVATE KEY block still common from OpenSSL. This method reads it, and like the other content-inspecting loaders it also accepts other unencrypted representations, so it is forgiving of what is actually in the file. For unknown or mixed formats, prefer LoadAnyFormatFile.

Chilkat Lazarus Pascal Downloads

Download Chilkat for Lazarus Pascal

Lazarus Pascal

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;

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

procedure RunDemo;
var
  success: Boolean;
  privKey: TPrivateKey;

begin
  success := False;

  //  Demonstrates the PrivateKey.LoadPkcs1File method, which loads a private key from a file.  The
  //  only argument is the file path.  Despite the historical PKCS #1 name, it accepts any supported
  //  unencrypted private-key representation.

  privKey := TPrivateKey.Create;

  success := privKey.LoadPkcs1File('qa_data/private_pkcs1.pem');
  if (success = False) then
    begin
      WriteLn(privKey.LastErrorText);
      Exit;
    end;

  WriteLn('Loaded a ' + privKey.KeyType + ' private key.');


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