B4X

Load RSA Public Key from Hex Modulus and Exponent

See more RSA Examples

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

Dim success As Boolean = False

'  Load a 128-byte (1024-bit) modulus + exponent into a Chilkat public key object..
Dim modulus As String = "BF5F4AF9A018B5F324A0C10448C0D3248D9BE78967FDC551A27876AC5789ADCBA8245D3D942AE3799563D895DA801E765D225A54FA15DAB2C4731DD817DCF94A9AD62197074C2349442093A206234BF3747F0E88AA6F538355684CC1FB26FCE029C9050A1DAF9F507C2BABF6EFC9FB16320C8036721BE0279FBB76122C41E429"

Dim exponent As String = "00000003"

'  We'll need to re-encode from hex to base64..
Dim bdModulus As ChilkatBinData
bdModulus.Initialize
bdModulus.AppendEncoded(modulus, "hex")
Dim bdExponent As ChilkatBinData
bdExponent.Initialize
bdExponent.AppendEncoded(exponent, "hex")

Dim xml As ChilkatXml
xml.Initialize
xml.Tag = "RsaKeyValue"
xml.NewChild2("Modulus", bdModulus.GetEncoded("base64"))
xml.NewChild2("Exponent", bdExponent.GetEncoded("base64"))

'  Now load into the pubkey object..
Dim pubkey As ChilkatPublicKey
pubkey.Initialize
success = pubkey.LoadFromString(xml.GetXml)
If success = False Then
    Log(pubkey.LastErrorText)
    Return
End If


Log("Success.")