(AutoIt) RSA Encrypt with Modulus and Exponent

Demonstrates how to RSA encrypt with a given modulus and exponent.

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

; This example assumes the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.

$oRsa = ObjCreate("Chilkat.Rsa")

; Assuming you already have a base64 modulus and exponent,
; wrap it in XML like this:
Local $sModulus = "qMBRpdYrAy5aMmo31NErUizh5sbweguSmh4wlK6uJEIDl+kwTlROnE34KOFExeTbJSX0WygPi+vWl0yNq7buIMUKpytossAAWut5khO3CQJxTk7G2gnEPNUUXHiExGgNrLzcSLv8YIlfVALhoRWyC67KOL+a+3taNq3h+BHeWhM="
Local $sExponent = "AQAB"

$oXml = ObjCreate("Chilkat.Xml")
$oXml.Tag = "RSAPublicKey"
$oXml.NewChild2 "Modulus",$sModulus
$oXml.NewChild2 "Exponent",$sExponent

; Encrypt with the public key.
Local $sPublicKey = $oXml.GetXml()
Local $bSuccess = $oRsa.ImportPublicKey($sPublicKey)

Local $bUsePrivateKey = False
Local $sPlainText = "message in a bottle"

$oRsa.EncodingMode = "base64"
Local $sEncryptedStrBase64 = $oRsa.EncryptStringENC($sPlainText,$bUsePrivateKey)
ConsoleWrite($sEncryptedStrBase64 & @CRLF)