AutoIt Requires Chilkat v11.0.0+

Duplicate PHP RSA Encryption

See more RSA Examples

Demonstrates how to duplicate the following PHP function. AutoIt

Local $bSuccess = False

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

;  Duplicate the following PHP code:
;  
;     public function encryptRSA($plainText,$rsaMOD,$pubKEY){
;          $rsa  = new RSA();
;          $rsa->setEncryptionMode(RSA::ENCRYPTION_PKCS1);
;          $publicKey = [
;              'e' => new BigInteger($pubKEY,16),
;              'n' => new BigInteger($rsaMOD,16)
;          ];
;  		
;          $rsa->loadKey($publicKey);
;          $ciphertext = $rsa->encrypt($plainText);
;          return bin2hex($ciphertext);
;      }
;  
;      $plainText="key=abcdefghijkmnopq&iv=abcdefghijkmnopq&h=12345678&s=12345678"
;      $rsaMOD="F0946D8F05604809E24B8CFFD30349CEA9E5F4D320BFD9E9AA1B088863F02C43E7997D37A3E27B4F8F359F1744DB6B20A437067C0D325A80660D12FF56A57673"
;      $pubKEY="010001"

;  We have the RSA modulus in hex
Local $sRsaMOD = "F0946D8F05604809E24B8CFFD30349CEA9E5F4D320BFD9E9AA1B088863F02C43E7997D37A3E27B4F8F359F1744DB6B20A437067C0D325A80660D12FF56A57673"

;  The RSA exponent in hex is "010001", which is 65537 in decimal.  It's typically the exponent that is always used.
Local $sRsaEXP = "010001"

;  Get the RSA modulus and exponent in base64.
$oBdMod = ObjCreate("Chilkat.BinData")
$oBdExp = ObjCreate("Chilkat.BinData")
$bSuccess = $oBdMod.AppendEncoded($sRsaMOD,"hex")
$bSuccess = $oBdExp.AppendEncoded($sRsaEXP,"hex")

;  Build the XML representation of the RSA public key
$oXml = ObjCreate("Chilkat.Xml")
$oXml.Tag = "RSAPublicKey"
$oXml.UpdateChildContent "Modulus",$oBdMod.GetEncoded("base64")
$oXml.UpdateChildContent "Exponent",$oBdExp.GetEncoded("base64")

;  Load the RSA public key into a Chilkat public key object.
$oPubkey = ObjCreate("Chilkat.PublicKey")
$bSuccess = $oPubkey.LoadFromString($oXml.GetXml())

;  Setup the RSA object for encryption and do it..
$oRsa = ObjCreate("Chilkat.Rsa")
$oRsa.VerboseLogging = True
$bSuccess = $oRsa.UsePublicKey($oPubkey)

;  Use PKCSv1.5 padding
$oRsa.PkcsPadding = True

;  Encrypt and return the string as hex.
$oRsa.EncodingMode = "hex"
Local $sPlainText = "key=abcdefghijkmnopq&iv=abcdefghijkmnopq&h=12345678&s=12345678"
Local $sCipherText = $oRsa.EncryptStringENC($sPlainText,False)
If ($oRsa.LastMethodSuccess = False) Then
    ConsoleWrite($oRsa.LastErrorText & @CRLF)
    Exit
EndIf

;  Note: The PKCSv1_5 padding incorporates random bytes.  Therefore, the RSA encryption will produce different results each time -- all of which are valid 
;  and decrypt correctly to the same original text.
ConsoleWrite($sCipherText & @CRLF)