(Visual FoxPro) 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

LOCAL lnSuccess
LOCAL lcModulus
LOCAL lcExponent
LOCAL loBdModulus
LOCAL loBdExponent
LOCAL loXml
LOCAL loPubkey

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

lcExponent = "00000003"

* We'll need to re-encode from hex to base64..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBdModulus = CreateObject('Chilkat.BinData')
loBdModulus.AppendEncoded(lcModulus,"hex")
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loBdExponent = CreateObject('Chilkat.BinData')
loBdExponent.AppendEncoded(lcExponent,"hex")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "RsaKeyValue"
loXml.NewChild2("Modulus",loBdModulus.GetEncoded("base64"))
loXml.NewChild2("Exponent",loBdExponent.GetEncoded("base64"))

* Now load into the pubkey object..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.PublicKey')
loPubkey = CreateObject('Chilkat.PublicKey')
lnSuccess = loPubkey.LoadFromString(loXml.GetXml())
IF (lnSuccess = 0) THEN
    ? loPubkey.LastErrorText
    RELEASE loBdModulus
    RELEASE loBdExponent
    RELEASE loXml
    RELEASE loPubkey
    CANCEL
ENDIF

? "Success."

RELEASE loBdModulus
RELEASE loBdExponent
RELEASE loXml
RELEASE loPubkey