Perl

SSH Key Fingerprint

See more SSH Key Examples

Generates a fingerprint for an SSH key. Perl

use chilkat();

$success = 0;

$key = chilkat::CkSshKey->new();

# 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() . "\r\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:7