SSH Key Fingerprint

Generates a fingerprint for an SSH key.

Download Chilkat SSH / SFTP ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)


set key = CreateObject("Chilkat.SshKey")

'  Load an SSH key from an encrypted OpenSSH-formatted private key:
key.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) Then
    MsgBox key.LastErrorText
    WScript.Quit
End If

'  Generate the fingerprint:

fingerprint = key.GenFingerprint()

outFile.WriteLine(fingerprint)

'  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


outFile.Close