(AutoIt) Encrypt with Chilkat, Decrypt with OpenSSL

Demonstrates how to RSA encrypt a string using Chilkat, and then shows the corresponding OpenSSL command to RSA decrypt. The OpenSSL command to decrypt is as follows:

openssl rsautl -decrypt -inkey VP_Private.pem -in rsa_encrypted.bin -out original.txt

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

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

$oRsa = ObjCreate("Chilkat_9_5_0.Rsa")

; Note: RSA encryption uses the public key.  
; RSA decryption uses the private key.
; The reason is that the public key can be freely provided to anybody.  This allows anybody
; to send an encrypted message to the private key owner, and only the private key owner 
; can decrypt.
$oKey = ObjCreate("Chilkat_9_5_0.PublicKey")

; Load an RSA public key from a PEM file:
Local $bSuccess = $oKey.LoadFromFile("qa_data/pem/VP_Public.pem")
If ($bSuccess <> True) Then
    ConsoleWrite($oKey.LastErrorText & @CRLF)
    Exit
EndIf

; Load the public key into the RSA object.
$bSuccess = $oRsa.ImportPublicKeyObj($oKey)
If ($bSuccess <> True) Then
    ConsoleWrite($oRsa.LastErrorText & @CRLF)
    Exit
EndIf

Local $strToEncrypt = "00000000;XYZ2-3BHQ-ABCD-MMVV;6MY1-GHJK-9LRR;0"

; The LittleEndian property is False by default, but it is set here
; anyway to show that LittleEndian byte ordering is required for OpenSSL compatibility.
$oRsa.LittleEndian = False

Local $bUsePrivateKey = False
Local $oEncryptedBytes
$oEncryptedBytes = $oRsa.EncryptString($strToEncrypt,$bUsePrivateKey)
If ($oRsa.LastMethodSuccess <> True) Then
    ConsoleWrite($oRsa.LastErrorText & @CRLF)
    Exit
EndIf

; The OpenSSL command to decrypt would be this:
; openssl rsautl -decrypt -inkey VP_Private.pem -in rsa_encrypted.bin -out original.txt

$oFac = ObjCreate("Chilkat_9_5_0.FileAccess")
$bSuccess = $oFac.WriteEntireFile("qa_output/rsa_encrypted.bin",$oEncryptedBytes)
If ($bSuccess <> True) Then
    ConsoleWrite($oFac.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("RSA Encryption Succeeded." & @CRLF)