(VBScript) SSH Key Fingerprint

Generates a fingerprint for an SSH key.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.SshKey")
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
    outFile.WriteLine(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:7

outFile.Close