SSH Key Fingerprint

Generates a fingerprint for an SSH key.

Download Chilkat SSH / SFTP ActiveX

Dim key As New ChilkatSshKey

Dim success As Long

'  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
    MsgBox key.LastErrorText
    Exit Sub
End If

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

Text1.Text = Text1.Text & fingerprint & vbCrLf

'  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