(PowerBuilder) Load an SSH Key from a File (Many Formats Supported)

Demonstrates how to load an SSH public or private key object from a file. The file can be in any of the following formats:

• OpenSSH private key
• OpenSSH public key
• PuTTY private key
• RFC 4716 public key

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

integer li_rc
oleobject loo_Sshkey
string ls_StrKey
integer li_Success

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

// First, use the LoadText convenience method to load a text file (of any SSH key format)
// into a string:
ls_StrKey = loo_Sshkey.LoadText("../mySshKeys/myKey.txt")

// Next, load the key into the SSH key object.

// If the key is an OpenSSH private key:
// (In actuality, the From* methods will automatically detect the format and load
// the key correctly.  For example, if a PuTTY private key is passed to FromOpenSshPrivateKey,
// it  will still load correctly.)
li_Success = loo_Sshkey.FromOpenSshPrivateKey(ls_StrKey)
if li_Success <> 1 then
    Write-Debug loo_Sshkey.LastErrorText
else
    Write-Debug "Loaded OpenSSH private key."
    destroy loo_Sshkey
    return
end if

// If the key is an OpenSSH public key:
li_Success = loo_Sshkey.FromOpenSshPublicKey(ls_StrKey)
if li_Success <> 1 then
    Write-Debug loo_Sshkey.LastErrorText
else
    Write-Debug "Loaded OpenSSH public key."
    destroy loo_Sshkey
    return
end if

// If the key is a PuTTY private key:
li_Success = loo_Sshkey.FromPuttyPrivateKey(ls_StrKey)
if li_Success <> 1 then
    Write-Debug loo_Sshkey.LastErrorText
else
    Write-Debug "Loaded PuTTY private key."
    destroy loo_Sshkey
    return
end if

// If the key is an RFC 4716 public key:
li_Success = loo_Sshkey.FromRfc4716PublicKey(ls_StrKey)
if li_Success <> 1 then
    Write-Debug loo_Sshkey.LastErrorText
else
    Write-Debug "Loaded RFC 4716 public key."
end if



destroy loo_Sshkey