(VBScript) SSH Host Key Fingerprint

See more SSH Examples

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

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)

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Ssh")
set ssh = CreateObject("Chilkat.Ssh")

hostname = "ssh.example.com"
port = 22
success = ssh.Connect(hostname,port)
If (success <> 1) Then
    outFile.WriteLine(ssh.LastErrorText)
    WScript.Quit
End If

' Get the classic MD5 fingeprint
md5_fingerprint = ssh.HostKeyFingerprint
outFile.WriteLine(md5_fingerprint)

' 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)
outFile.WriteLine(sha256_fingerprint)

' 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)
outFile.WriteLine(sha256_fingerprint)

' SHA256:Ufgj480OsdsCZRjj9sSNM6fpgIcSJ61RsIG8usndUIY=

includeKeyType = 1
includeHashName = 0
sha256_fingerprint = ssh.GetHostKeyFP("SHA256",includeKeyType,includeHashName)
outFile.WriteLine(sha256_fingerprint)

' ssh-rsa Ufgj480OsdsCZRjj9sSNM6fpgIcSJ61RsIG8usndUIY=

includeKeyType = 0
includeHashName = 0
sha256_fingerprint = ssh.GetHostKeyFP("SHA256",includeKeyType,includeHashName)
outFile.WriteLine(sha256_fingerprint)

' Ufgj480OsdsCZRjj9sSNM6fpgIcSJ61RsIG8usndUIY=

outFile.Close