SSH Key Fingerprint

Generates a fingerprint for an SSH key.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();


$key = new chilkat::CkSshKey();

#  Load an SSH key from an encrypted OpenSSH-formatted private key:
$key->put_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) {
    print $key->lastErrorText() . "\n";
    exit;
}

#  Generate the fingerprint:

$fingerprint = $key->genFingerprint();

print $fingerprint . "\r\n";

#  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