Delphi ActiveX

Generate ed25519 Key and Save to PuTTY Format

See more SSH Key Examples

Generates an ED25519 key and saves to PuTTY format.

Note: This example requires Chilkat v9.5.0.83 or greater.

Delphi ActiveX

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

...

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

begin
success := 0;

// Note: Requires Chilkat v9.5.0.83 or greater.

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

key := TChilkatSshKey.Create(Self);

success := key.GenerateEd25519Key();
if (success <> 1) then
  begin
    Memo1.Lines.Add(key.LastErrorText);
    Exit;
  end;

// We can optionally set a comment to be included in the exported key.
key.Comment := 'This is my new ed25519 key.';

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

// The unencrypted PuTTY key looks like this:

// 	PuTTY-User-Key-File-2: ssh-ed25519
// 	Encryption: none
// 	Comment: This is my new ed25519 key.
// 	Public-Lines: 2
// 	AAAAC3NzaC1lZDI1NTE5AAAAIJn6m7yKzkAAHXzzjE1zv4RqtdE8r5eTegcpbNDF
// 	OPYs
// 	Private-Lines: 1
// 	AAAAIFgwbZ38AR9Oiw930wsCcCGymQRBa2Y7qBq6R3HCe9VL
// 	Private-MAC: 892573676dd13ef70b6ab7ef219decdfbd5b1857

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

// The encrypted PuTTY key looks like this:

// 	PuTTY-User-Key-File-2: ssh-ed25519
// 	Encryption: aes256-cbc
// 	Comment: This is my new ed25519 key.
// 	Public-Lines: 2
// 	AAAAC3NzaC1lZDI1NTE5AAAAIJn6m7yKzkAAHXzzjE1zv4RqtdE8r5eTegcpbNDF
// 	OPYs
// 	Private-Lines: 1
// 	aIa9mY22htPElPgWhtXesp97662JECxaSsnNqvhD06P+o18immv8ohn73vI/bhQB
// 	Private-MAC: 312221dc90660859fe68df300767f8f779046815

Memo1.Lines.Add('Success!');
end;