(Delphi DLL) Generate DSA SSH Key

Generates a DSA SSH key and saves to various public and private key file formats (OpenSSH and PuTTY).

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, SshKey;

...

procedure TForm1.Button1Click(Sender: TObject);
var
key: HCkSshKey;
success: Boolean;
numBits: Integer;
exportedKey: PWideChar;
exportEncrypted: Boolean;

begin
key := CkSshKey_Create();

// numBits should be a minimum of 1024 and
// a multiple of 64.  Typical values are
// 1024 or 2048. 
numBits := 2048;
success := CkSshKey_GenerateDsaKey(key,numBits);
if (success <> True) then
  begin
    Memo1.Lines.Add('Invalid numBits passed to DSA 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 DSA private key to OpenSSH, PuTTY, and XML and save. 
exportEncrypted := False;
exportedKey := CkSshKey__toOpenSshPrivateKey(key,exportEncrypted);
// Chilkat provides a SaveText method for convenience...
success := CkSshKey_SaveText(key,exportedKey,'privkey_openssh_unencrypted.pem');

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

// Export the DSA private key to unencrypted PuTTY format:
exportEncrypted := False;
exportedKey := CkSshKey__toPuttyPrivateKey(key,exportEncrypted);
success := CkSshKey_SaveText(key,exportedKey,'privkey_putty_unencrypted.ppk');

// Export the DSA private key to encrypted PuTTY format:
CkSshKey_putPassword(key,'secret');
exportEncrypted := True;
exportedKey := CkSshKey__toPuttyPrivateKey(key,exportEncrypted);
success := CkSshKey_SaveText(key,exportedKey,'privkey_putty_encrypted.ppk');

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

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

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

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

Memo1.Lines.Add('Finished.');

CkSshKey_Dispose(key);

end;