Delphi ActiveX

Load an SSH Key from a File (Many Formats Supported)

Demonstrates how to load an SSH public or private key object from a file. The file can be in any of the following formats:

• OpenSSH private key
• OpenSSH public key
• PuTTY private key
• RFC 4716 public key

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;
sshkey: TChilkatSshKey;
strKey: WideString;

begin
success := 0;

sshkey := TChilkatSshKey.Create(Self);

// First, use the LoadText convenience method to load a text file (of any SSH key format)
// into a string:
strKey := sshkey.LoadText('../mySshKeys/myKey.txt');

// Next, load the key into the SSH key object.

// If the key is an OpenSSH private key:
// (In actuality, the From* methods will automatically detect the format and load
// the key correctly.  For example, if a PuTTY private key is passed to FromOpenSshPrivateKey,
// it  will still load correctly.)
success := sshkey.FromOpenSshPrivateKey(strKey);
if (success <> 1) then
  begin
    Memo1.Lines.Add(sshkey.LastErrorText);
  end
else
  begin
    Memo1.Lines.Add('Loaded OpenSSH private key.');
    Exit;
  end;

// If the key is an OpenSSH public key:
success := sshkey.FromOpenSshPublicKey(strKey);
if (success <> 1) then
  begin
    Memo1.Lines.Add(sshkey.LastErrorText);
  end
else
  begin
    Memo1.Lines.Add('Loaded OpenSSH public key.');
    Exit;
  end;

// If the key is a PuTTY private key:
success := sshkey.FromPuttyPrivateKey(strKey);
if (success <> 1) then
  begin
    Memo1.Lines.Add(sshkey.LastErrorText);
  end
else
  begin
    Memo1.Lines.Add('Loaded PuTTY private key.');
    Exit;
  end;

// If the key is an RFC 4716 public key:
success := sshkey.FromRfc4716PublicKey(strKey);
if (success <> 1) then
  begin
    Memo1.Lines.Add(sshkey.LastErrorText);
  end
else
  begin
    Memo1.Lines.Add('Loaded RFC 4716 public key.');
  end;
end;