(Delphi ActiveX) SFTP Host Key Fingerprint

See more SFTP Examples

Demonstrates how to get the SSH server's host key fingerprint after connecting.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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
sftp: TChilkatSFtp;
hostname: WideString;
port: Integer;
success: Integer;
md5_fingerprint: WideString;
includeKeyType: Integer;
includeHashName: Integer;
sha256_fingerprint: WideString;

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

sftp := TChilkatSFtp.Create(Self);

hostname := 'sftp.example.com';
port := 22;
success := sftp.Connect(hostname,port);
if (success <> 1) then
  begin
    Memo1.Lines.Add(sftp.LastErrorText);
    Exit;
  end;

// Get the classic MD5 fingeprint
md5_fingerprint := sftp.HostKeyFingerprint;
Memo1.Lines.Add(md5_fingerprint);

// Sample output:
// ssh-rsa 3072 21:b0:d8:41:4e:ef:78:10:20:af:01:b7:71:5d:eb:94

// Starting in Chilkat v9.5.0.92, we can also get the SHA256 fingerprint.
// (it is also possible to get fingerprints using other hash algorithms such as SHA384, SHA512, etc.)

includeKeyType := 1;
includeHashName := 1;
sha256_fingerprint := sftp.GetHostKeyFP('SHA256',includeKeyType,includeHashName);
Memo1.Lines.Add(sha256_fingerprint);

// Sample output:
// ssh-rsa SHA256:Ufgj480OsdsCZRjj9sSNM6fpgIcSJ61RsIG8usndUIY=

// The key type and hash name can be optionally included or not.
includeKeyType := 0;
includeHashName := 1;
sha256_fingerprint := sftp.GetHostKeyFP('SHA256',includeKeyType,includeHashName);
Memo1.Lines.Add(sha256_fingerprint);

// SHA256:Ufgj480OsdsCZRjj9sSNM6fpgIcSJ61RsIG8usndUIY=

includeKeyType := 1;
includeHashName := 0;
sha256_fingerprint := sftp.GetHostKeyFP('SHA256',includeKeyType,includeHashName);
Memo1.Lines.Add(sha256_fingerprint);

// ssh-rsa Ufgj480OsdsCZRjj9sSNM6fpgIcSJ61RsIG8usndUIY=

includeKeyType := 0;
includeHashName := 0;
sha256_fingerprint := sftp.GetHostKeyFP('SHA256',includeKeyType,includeHashName);
Memo1.Lines.Add(sha256_fingerprint);

// Ufgj480OsdsCZRjj9sSNM6fpgIcSJ61RsIG8usndUIY=
end;