Delphi DLL

SSH Host Key Fingerprint

See more SSH Examples

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

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Ssh;

...

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

begin
success := False;

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

ssh := CkSsh_Create();

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

// Get the classic MD5 fingeprint
md5_fingerprint := CkSsh__hostKeyFingerprint(ssh);
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 := CkSsh__getHostKeyFP(ssh,'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 := CkSsh__getHostKeyFP(ssh,'SHA256',includeKeyType,includeHashName);
Memo1.Lines.Add(sha256_fingerprint);

// SHA256:Ufgj480OsdsCZRjj9sSNM6fpgIcSJ61RsIG8usndUIY=

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

// ssh-rsa Ufgj480OsdsCZRjj9sSNM6fpgIcSJ61RsIG8usndUIY=

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

// Ufgj480OsdsCZRjj9sSNM6fpgIcSJ61RsIG8usndUIY=

CkSsh_Dispose(ssh);

end;