Delphi ActiveX

SSH Key Fingerprint

See more SSH Key Examples

Generates a fingerprint for an SSH 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;
key: TChilkatSshKey;
keyStr: WideString;
fingerprint: WideString;

begin
success := 0;

key := TChilkatSshKey.Create(Self);

// Load an SSH key from an encrypted OpenSSH-formatted private key:
key.Password := 'secret';

// First load the PEM into a string:
keyStr := key.LoadText('privkey_openssh_encrypted.pem');

// Import into the SSH key object:
success := key.FromOpenSshPrivateKey(keyStr);
if (success <> 1) then
  begin
    Memo1.Lines.Add(key.LastErrorText);
    Exit;
  end;

// Generate the fingerprint:

fingerprint := key.GenFingerprint();

Memo1.Lines.Add(fingerprint);

// A sample fingerpring looks like this:
// ssh-dss 2048 d0:5f:f7:d6:49:60:7b:50:19:f4:41:59:d4:1f:61:7
end;