(PowerBuilder) Load a PuTTY Public Key

Demonstrates how to load a PuTTY public key.

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

integer li_rc
oleobject loo_PuttyKey
string ls_PubKeyText
integer li_Success
string ls_OpenSshPubKeyStr
string ls_XmlPubKeyStr

// Load a PuTTY public key.
loo_PuttyKey = create oleobject
// Use "Chilkat_9_5_0.SshKey" for versions of Chilkat < 10.0.0
li_rc = loo_PuttyKey.ConnectToNewObject("Chilkat.SshKey")
if li_rc < 0 then
    destroy loo_PuttyKey
    MessageBox("Error","Connecting to COM object failed")
    return
end if
ls_PubKeyText = loo_PuttyKey.LoadText("qa_data/ppk/putty_public.pem")

// The pubKeyText contains this content:

// 	---- BEGIN SSH2 PUBLIC KEY ----
// 	Comment: "rsa-key-20170126"
// 	AAAAB3NzaC1yc2EAAAABJQAAAQEAx+52s7vvaZ8rT2UdFZWlSUVDHDQ+5ZRFvgRW
// 	6nm2sO1c9WqNg7u2PQL4jeKSDX2XWcMnpleALz2x8Rr4rMy5E1iZzvWov8VtFd8l
// 	fa9HOkgEeJB3VFuYR3NlnD3eyCoYJYPVpHJHrIeui2WZs5vQ76HDe+th8+z5Ald4
// 	zPw3p2c6ZJpBrkSBM67hWokoBDi23c7NhszDHhJBrv+B98cQxnagI1PUKqN7E8Vg
// 	bNtBI8beIMHyI69up9G1AXSEi0cGIjYNx9RNUPau1mRk/SvfqxgWkAjM005lj7hc
// 	bOsjbdKK3T2NtrKTaYjEiXlEXcj1iGuApsD/m73pYaEJB3Nd7w==
// 	---- END SSH2 PUBLIC KEY ----

li_Success = loo_PuttyKey.FromRfc4716PublicKey(ls_PubKeyText)
if li_Success <> 1 then
    Write-Debug loo_PuttyKey.LastErrorText
    destroy loo_PuttyKey
    return
end if

// If desired, convert to other public key formats:
ls_OpenSshPubKeyStr = loo_PuttyKey.ToOpenSshPublicKey()
Write-Debug ls_OpenSshPubKeyStr

// openSshPubKeyStr contains:
// ssh-rsa AAAAB3NzaC1yc2EAAAABJQAAAQEAx+52s7vvaZ8rT2UdFZWlSUVDHDQ+5ZRFvgRW6nm2sO1c9WqNg7u2PQL4jeKSDX2XWcMnpleALz2x8Rr4rMy5E1iZzvWov8VtFd8lfa9HOkgEeJB3VFuYR3NlnD3eyCoYJYPVpHJHrIeui2WZs5vQ76HDe+th8+z5Ald4zPw3p2c6ZJpBrkSBM67hWokoBDi23c7NhszDHhJBrv+B98cQxnagI1PUKqN7E8VgbNtBI8beIMHyI69up9G1AXSEi0cGIjYNx9RNUPau1mRk/SvfqxgWkAjM005lj7hcbOsjbdKK3T2NtrKTaYjEiXlEXcj1iGuApsD/m73pYaEJB3Nd7w== rsa-key-20170126

// Convert to an XML format:
ls_XmlPubKeyStr = loo_PuttyKey.ToXml()
Write-Debug ls_XmlPubKeyStr

// xmlPubKeyStr contains:
// <RSAPublicKey>
//     <Modulus>x+52s7vvaZ8rT2UdFZWlSUVDHDQ+5ZRFvgRW6nm2sO1c9WqNg7u2PQL4jeKSDX2XWcMnpleALz2x8Rr4rMy5E1iZzvWov8VtFd8lfa9HOkgEeJB3VFuYR3NlnD3eyCoYJYPVpHJHrIeui2WZs5vQ76HDe+th8+z5Ald4zPw3p2c6ZJpBrkSBM67hWokoBDi23c7NhszDHhJBrv+B98cQxnagI1PUKqN7E8VgbNtBI8beIMHyI69up9G1AXSEi0cGIjYNx9RNUPau1mRk/SvfqxgWkAjM005lj7hcbOsjbdKK3T2NtrKTaYjEiXlEXcj1iGuApsD/m73pYaEJB3Nd7w==</Modulus>
//     <Exponent>JQ==</Exponent>
// </RSAPublicKey>
// 
// 


destroy loo_PuttyKey