#include <Crypt.au3>
$str = "проверка"
$dEncrypted = _Crypt_EncryptData($str, "password", $CALG_RC4)
ConsoleWrite("Enc : " & $dEncrypted & @CRLF)
$dDecrypted = _Crypt_DecryptData($dEncrypted, "password", $CALG_RC4)
ConsoleWrite("Dec : " & $dDecrypted & @CRLF)
Dim $code[] = ["","ansi","utf16le","utf16be","utf8"]
For $i = 1 To 4
$txt = $code[$i] & " : " & BinaryToString($dDecrypted, $i)
ConsoleWrite($txt & @CRLF) ; зависит от кодировки консоли SciTE
MsgBox(0, "", $txt)
Next