Visual Basic 6.0

SSH Key Fingerprint

See more SSH Key Examples

Generates a fingerprint for an SSH key. Visual Basic 6.0

Dim success As Long
success = 0

Dim key As New ChilkatSshKey

' Load an SSH key from an encrypted OpenSSH-formatted private key:
key.Password = "secret"

Dim keyStr As String
' 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
    Debug.Print key.LastErrorText
    Exit Sub
End If

' Generate the fingerprint:
Dim fingerprint As String
fingerprint = key.GenFingerprint()

Debug.Print 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