(AutoIt) AES Encrypt String (utf-8 byte representation) and return Base64

Demonstrates how to AES encrypt the utf-8 byte representation of a string and return in base64 format.

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.

$oCrypt = ObjCreate("Chilkat.Crypt2")

$oCrypt.CryptAlgorithm = "aes"
$oCrypt.CipherMode = "cbc"
$oCrypt.KeyLength = 256
$oCrypt.Charset = "utf-8"
$oCrypt.EncodingMode = "base64"

Local $sIvHex = "000102030405060708090A0B0C0D0E0F"
$oCrypt.SetEncodedIV $sIvHex,"hex"
Local $sKeyHex = "000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F"
$oCrypt.SetEncodedKey $sKeyHex,"hex"

Local $sEncryptedStr = $oCrypt.EncryptStringENC("This is the original string")
ConsoleWrite($sEncryptedStr & @CRLF)

; Let's say we want to URL encode the base64 string..
$oCrypt.CryptAlgorithm = "none"
$oCrypt.EncodingMode = "url"
Local $sUrlEncoded = $oCrypt.EncryptStringENC($sEncryptedStr)
ConsoleWrite($sUrlEncoded & @CRLF)

; Sample output:

;  q3fmgEqjqa9o//ZS6aPuh4Wtbrrxx/WOIQSKeVnesZg=
;  q3fmgEqjqa9o%2F%2FZS6aPuh4Wtbrrxx%2FWOIQSKeVnesZg%3D

; -------------------------------------------------------------------
; Now let's do the reverse...
; 

; We start with a string that is the binary encrypted data, base64 encoded, and then URL encoded.
Local $sEncBase64Url = "q3fmgEqjqa9o%2F%2FZS6aPuh4Wtbrrxx%2FWOIQSKeVnesZg%3D"

; We'll use the same crypt object.  If using a new instance of the crypt object,
; make sure *all* settings are identical:  the algorithm, cipher mode, key length, charset, encoding mode, IV, and secret key.

; Decode from URL...
$oCrypt.CryptAlgorithm = "none"
$oCrypt.EncodingMode = "url"
Local $sEncBase64 = $oCrypt.DecryptStringENC($sUrlEncoded)
ConsoleWrite($sEncBase64 & @CRLF)

; Now decrypt...
$oCrypt.CryptAlgorithm = "aes"
$oCrypt.EncodingMode = "base64"
Local $sOriginalStr = $oCrypt.DecryptStringENC($sEncBase64)
ConsoleWrite($sOriginalStr & @CRLF)