SSH Key Fingerprint

Generates a fingerprint for an SSH key.

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;
keyStr: String;
fingerprint: String;

begin

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
    ShowMessage(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:7a


end;