(Perl) SSH Host Key Fingerprint

See more SSH Examples

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

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$ssh = chilkat::CkSsh->new();

$hostname = "ssh.example.com";
$port = 22;
$success = $ssh->Connect($hostname,$port);
if ($success != 1) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

# Get the classic MD5 fingeprint
$md5_fingerprint = $ssh->hostKeyFingerprint();
print $md5_fingerprint . "\r\n";

# 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 = $ssh->getHostKeyFP("SHA256",$includeKeyType,$includeHashName);
print $sha256_fingerprint . "\r\n";

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

# The key type and hash name can be optionally included or not.
$includeKeyType = 0;
$includeHashName = 1;
$sha256_fingerprint = $ssh->getHostKeyFP("SHA256",$includeKeyType,$includeHashName);
print $sha256_fingerprint . "\r\n";

# SHA256:Ufgj480OsdsCZRjj9sSNM6fpgIcSJ61RsIG8usndUIY=

$includeKeyType = 1;
$includeHashName = 0;
$sha256_fingerprint = $ssh->getHostKeyFP("SHA256",$includeKeyType,$includeHashName);
print $sha256_fingerprint . "\r\n";

# ssh-rsa Ufgj480OsdsCZRjj9sSNM6fpgIcSJ61RsIG8usndUIY=

$includeKeyType = 0;
$includeHashName = 0;
$sha256_fingerprint = $ssh->getHostKeyFP("SHA256",$includeKeyType,$includeHashName);
print $sha256_fingerprint . "\r\n";

# Ufgj480OsdsCZRjj9sSNM6fpgIcSJ61RsIG8usndUIY=