SSH Key Fingerprint

Generates a fingerprint for an SSH key.

Download Chilkat 32-bit SSH / SFTP ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

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