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

...

procedure TForm1.Button1Click(Sender: TObject);
var
sftp: HCkSFtp;
hostname: PWideChar;
port: Integer;
success: Boolean;
md5_fingerprint: PWideChar;
includeKeyType: Boolean;
includeHashName: Boolean;
sha256_fingerprint: PWideChar;

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

sftp := CkSFtp_Create();

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

// Get the classic MD5 fingeprint
md5_fingerprint := CkSFtp__hostKeyFingerprint(sftp);
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 := True;
includeHashName := True;
sha256_fingerprint := CkSFtp__getHostKeyFP(sftp,'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 := False;
includeHashName := True;
sha256_fingerprint := CkSFtp__getHostKeyFP(sftp,'SHA256',includeKeyType,includeHashName);
Memo1.Lines.Add(sha256_fingerprint);

// SHA256:Ufgj480OsdsCZRjj9sSNM6fpgIcSJ61RsIG8usndUIY=

includeKeyType := True;
includeHashName := False;
sha256_fingerprint := CkSFtp__getHostKeyFP(sftp,'SHA256',includeKeyType,includeHashName);
Memo1.Lines.Add(sha256_fingerprint);

// ssh-rsa Ufgj480OsdsCZRjj9sSNM6fpgIcSJ61RsIG8usndUIY=

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

// Ufgj480OsdsCZRjj9sSNM6fpgIcSJ61RsIG8usndUIY=

CkSFtp_Dispose(sftp);

end;