(DataFlex) Load a PuTTY Public Key

Demonstrates how to load a PuTTY public key.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoPuttyKey
    String sPubKeyText
    Boolean iSuccess
    String sOpenSshPubKeyStr
    String sXmlPubKeyStr
    String sTemp1

    // Load a PuTTY public key.
    Get Create (RefClass(cComChilkatSshKey)) To hoPuttyKey
    If (Not(IsComObjectCreated(hoPuttyKey))) Begin
        Send CreateComObject of hoPuttyKey
    End
    Get ComLoadText Of hoPuttyKey "qa_data/ppk/putty_public.pem" To sPubKeyText

    // 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 ----

    Get ComFromRfc4716PublicKey Of hoPuttyKey sPubKeyText To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoPuttyKey To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // If desired, convert to other public key formats:
    Get ComToOpenSshPublicKey Of hoPuttyKey To sOpenSshPubKeyStr
    Showln sOpenSshPubKeyStr

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

    // Convert to an XML format:
    Get ComToXml Of hoPuttyKey To sXmlPubKeyStr
    Showln sXmlPubKeyStr

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


End_Procedure