(Classic ASP) 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

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%


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

exponent = "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")
set bdModulus = Server.CreateObject("Chilkat.BinData")
success = bdModulus.AppendEncoded(modulus,"hex")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bdExponent = Server.CreateObject("Chilkat.BinData")
success = bdExponent.AppendEncoded(exponent,"hex")

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xml = Server.CreateObject("Chilkat.Xml")
xml.Tag = "RsaKeyValue"
xml.NewChild2 "Modulus",bdModulus.GetEncoded("base64")
xml.NewChild2 "Exponent",bdExponent.GetEncoded("base64")

' Now load into the pubkey object..
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.PublicKey")
set pubkey = Server.CreateObject("Chilkat.PublicKey")
success = pubkey.LoadFromString(xml.GetXml())
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pubkey.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Success.") & "</pre>"

%>
</body>
</html>