Pascal (Lazarus/Delphi)

Add Private Key and Certificate to a PEM

See more PEM Examples

Demonstrates how to add certificates and private keys to a PEM. 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.Cert,
  Chilkat.Pem;

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

procedure RunDemo;
var
  success: Boolean;
  pem: TPem;
  privKey: TPrivateKey;
  cert: TCert;
  includeCertChain: Boolean;
  password: string;
  extendedAttrs: Boolean;
  noKeys: Boolean;
  noCerts: Boolean;
  noCaCerts: Boolean;
  encryptAlg: string;
  pemStr: string;

begin
  success := False;

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

  //  The Chilkat PEM class was introduced in v9.5.0.49.  
  //  It requires the bundle to be unlocked, as shown above.
  pem := TPem.Create;

  //  Add the private key found in alice.key to this PEM.
  //  
  privKey := TPrivateKey.Create;

  success := privKey.LoadAnyFormatFile('qa_data/alice.key','');
  if (success <> True) then
    begin
      WriteLn(privKey.LastErrorText);
      Exit;
    end;

  //  Add it to the PEM:
  success := pem.AddPrivateKey(privKey);

  //  Add the certificate found in alice.crt to this PEM.
  //  
  cert := TCert.Create;

  success := cert.LoadFromFile('qa_data/alice.crt');
  if (success <> True) then
    begin
      WriteLn(cert.LastErrorText);
      Exit;
    end;

  //  Add it to the PEM:
  includeCertChain := False;
  success := pem.AddCert(cert,includeCertChain);

  //  Write the PEM containing the private key and certificate.
  //  The private key will be output in PKCS8 encrypted form.
  //  Certificates are never encrypted.

  //  This is the password that will be required to open and access the private key
  //  from the PEM we're about to write..
  password := 'secret';
  extendedAttrs := False;
  noKeys := False;
  noCerts := False;
  noCaCerts := False;
  encryptAlg := 'aes128';

  pemStr := pem.ToPemEx(extendedAttrs,noKeys,noCerts,noCaCerts,encryptAlg,password);
  WriteLn(pemStr);


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