AutoIt

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)