Generate DSA SSH Key

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

Download Chilkat SSH / SFTP ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATRSALib_TLB,
    CHILKATSSHLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
key: TChilkatSshKey;
success: Integer;
numBits: Integer;
exportedKey: String;
exportEncrypted: Integer;

begin
key := TChilkatSshKey.Create(Self);

//  numBits should be a minimum of 1024 and
//  a multiple of 64.  Typical values are
//  1024 or 2048.
numBits := 2048;
success := key.GenerateDsaKey(numBits);
if (success <> 1) 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 := 0;
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 := 1;
exportedKey := key.ToOpenSshPrivateKey(exportEncrypted);
success := key.SaveText(exportedKey,'privkey_openssh_encrypted.pem');

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

//  Export the DSA private key to encrypted PuTTY format:
key.Password := 'secret';
exportEncrypted := 1;
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');
end;