Xbase++

Load RSA Public Key from Hex Modulus and Exponent

See more RSA Examples

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

LOCAL nSuccess
LOCAL cModulus
LOCAL cExponent
LOCAL oBdModulus
LOCAL oBdExponent
LOCAL oXml
LOCAL oPubkey

nSuccess := 0

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

cExponent := "00000003"

//  We'll need to re-encode from hex to base64..
oBdModulus := CreateObject("Chilkat.BinData")
oBdModulus:AppendEncoded(cModulus, "hex")
oBdExponent := CreateObject("Chilkat.BinData")
oBdExponent:AppendEncoded(cExponent, "hex")

oXml := CreateObject("Chilkat.Xml")
oXml:Tag := "RsaKeyValue"
oXml:NewChild2("Modulus", oBdModulus:GetEncoded("base64"))
oXml:NewChild2("Exponent", oBdExponent:GetEncoded("base64"))

//  Now load into the pubkey object..
oPubkey := CreateObject("Chilkat.PublicKey")
nSuccess := oPubkey:LoadFromString(oXml:GetXml())
IF (nSuccess == 0)
    ? oPubkey:LastErrorText
    oBdModulus:destroy()
    oBdExponent:destroy()
    oXml:destroy()
    oPubkey:destroy()
    RETURN
ENDIF

? "Success."

oBdModulus:destroy()
oBdExponent:destroy()
oXml:destroy()
oPubkey:destroy()