(PowerBuilder) SSH Key Fingerprint

Generates a fingerprint for an SSH key.

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

integer li_rc
oleobject loo_Key
integer li_Success
string ls_KeyStr
string ls_Fingerprint

loo_Key = create oleobject
// Use "Chilkat_9_5_0.SshKey" for versions of Chilkat < 10.0.0
li_rc = loo_Key.ConnectToNewObject("Chilkat.SshKey")
if li_rc < 0 then
    destroy loo_Key
    MessageBox("Error","Connecting to COM object failed")
    return
end if

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

// First load the PEM into a string:
ls_KeyStr = loo_Key.LoadText("privkey_openssh_encrypted.pem")

// Import into the SSH key object:
li_Success = loo_Key.FromOpenSshPrivateKey(ls_KeyStr)
if li_Success <> 1 then
    Write-Debug loo_Key.LastErrorText
    destroy loo_Key
    return
end if

// Generate the fingerprint:

ls_Fingerprint = loo_Key.GenFingerprint()

Write-Debug ls_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


destroy loo_Key