(PowerBuilder) Load RSA Public Key from Hex Modulus and Exponent

Load an RSA public key from a hex modulus and exponent.

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

integer li_rc
integer li_Success
string ls_Modulus
string ls_Exponent
oleobject loo_BdModulus
oleobject loo_BdExponent
oleobject loo_Xml
oleobject loo_Pubkey



// Load a 128-byte (1024-bit) modulus + exponent into a Chilkat public key object..
ls_Modulus = "BF5F4AF9A018B5F324A0C10448C0D3248D9BE78967FDC551A27876AC5789ADCBA8245D3D942AE3799563D895DA801E765D225A54FA15DAB2C4731DD817DCF94A9AD62197074C2349442093A206234BF3747F0E88AA6F538355684CC1FB26FCE029C9050A1DAF9F507C2BABF6EFC9FB16320C8036721BE0279FBB76122C41E429"

ls_Exponent = "00000003"

// We'll need to re-encode from hex to base64..
loo_BdModulus = create oleobject
// Use "Chilkat_9_5_0.BinData" for versions of Chilkat < 10.0.0
li_rc = loo_BdModulus.ConnectToNewObject("Chilkat.BinData")
if li_rc < 0 then
    destroy loo_BdModulus
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_BdModulus.AppendEncoded(ls_Modulus,"hex")
loo_BdExponent = create oleobject
// Use "Chilkat_9_5_0.BinData" for versions of Chilkat < 10.0.0
li_rc = loo_BdExponent.ConnectToNewObject("Chilkat.BinData")

loo_BdExponent.AppendEncoded(ls_Exponent,"hex")

loo_Xml = create oleobject
// Use "Chilkat_9_5_0.Xml" for versions of Chilkat < 10.0.0
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")

loo_Xml.Tag = "RsaKeyValue"
loo_Xml.NewChild2("Modulus",loo_BdModulus.GetEncoded("base64"))
loo_Xml.NewChild2("Exponent",loo_BdExponent.GetEncoded("base64"))

// Now load into the pubkey object..
loo_Pubkey = create oleobject
// Use "Chilkat_9_5_0.PublicKey" for versions of Chilkat < 10.0.0
li_rc = loo_Pubkey.ConnectToNewObject("Chilkat.PublicKey")

li_Success = loo_Pubkey.LoadFromString(loo_Xml.GetXml())
if li_Success = 0 then
    Write-Debug loo_Pubkey.LastErrorText
    destroy loo_BdModulus
    destroy loo_BdExponent
    destroy loo_Xml
    destroy loo_Pubkey
    return
end if

Write-Debug "Success."


destroy loo_BdModulus
destroy loo_BdExponent
destroy loo_Xml
destroy loo_Pubkey