Pascal (Lazarus/Delphi)

Generate RSA SSH Key

See more SSH Key Examples

Generates an RSA SSH key and saves to various public and private key file formats (OpenSSH and PuTTY). 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.SshKey;

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

procedure RunDemo;
var
  success: Boolean;
  key: TSshKey;
  numBits: Integer;
  exponent: Integer;
  exportedKey: string;
  exportEncrypted: Boolean;

begin
  success := False;

  key := TSshKey.Create;

  //  numBits may range from 384 to 4096.  Typical values are
  //  1024 or 2048.  (must be a multiple of 64)
  //  A good choice for the exponent is 65537.  Chilkat recommends
  //  always using this value.
  numBits := 2048;
  exponent := 65537;
  success := key.GenerateRsaKey(numBits,exponent);
  if (success <> True) then
    begin
      WriteLn('Bad params passed to RSA key generation method.');
      Exit;
    end;

  //  Note: Generating a public/private key pair is CPU intensive
  //  and may take a short amount of time (more than few seconds,
  //  but less than a minute).

  //  Export the RSA private key to OpenSSH, PuTTY, and XML and save. 
  exportEncrypted := False;
  exportedKey := key.ToOpenSshPrivateKey(exportEncrypted);
  //  Chilkat provides a SaveText method for convenience...
  success := key.SaveText(exportedKey,'privkey_openssh_unencrypted.pem');

  //  Export with encryption to OpenSSH private key format:
  key.Password := 'secret';
  exportEncrypted := True;
  exportedKey := key.ToOpenSshPrivateKey(exportEncrypted);
  success := key.SaveText(exportedKey,'privkey_openssh_encrypted.pem');

  //  Export the RSA private key to unencrypted PuTTY format:
  exportEncrypted := False;
  exportedKey := key.ToPuttyPrivateKey(exportEncrypted);
  success := key.SaveText(exportedKey,'privkey_putty_unencrypted.ppk');

  //  Export the RSA private key to encrypted PuTTY format:
  key.Password := 'secret';
  exportEncrypted := True;
  exportedKey := key.ToPuttyPrivateKey(exportEncrypted);
  success := key.SaveText(exportedKey,'privkey_putty_encrypted.ppk');

  //  Export private key to XML:
  exportedKey := key.ToXml();
  success := key.SaveText(exportedKey,'privkey.xml');

  //  ----------------------------------------------------
  //  Now for the public key....
  //  ----------------------------------------------------

  //  The Secure Shell (SSH) Public Key File Format
  //  is documented in RFC 4716.
  exportedKey := key.ToRfc4716PublicKey();
  success := key.SaveText(exportedKey,'pubkey_rfc4716.pub');

  //  OpenSSH has a separate public-key file format, which 
  //  is also supported by Chilkat SshKey:
  exportedKey := key.ToOpenSshPublicKey();
  success := key.SaveText(exportedKey,'pubkey_openSsh.pub');

  WriteLn('Finished.');


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