(Delphi DLL) 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

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
sshkey: HCkSshKey;
strKey: PWideChar;
success: Boolean;

begin
sshkey := CkSshKey_Create();

// First, use the LoadText convenience method to load a text file (of any SSH key format)
// into a string:
strKey := CkSshKey__loadText(sshkey,'../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 := CkSshKey_FromOpenSshPrivateKey(sshkey,strKey);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkSshKey__lastErrorText(sshkey));
  end
else
  begin
    Memo1.Lines.Add('Loaded OpenSSH private key.');
    Exit;
  end;

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

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

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

CkSshKey_Dispose(sshkey);

end;