Cifrado con Autoit

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.8.1
 Author:        Jesux Herrera - www.autoitenespanol.tk - www.autoithacks.tk

 Script Function:
    Programa que encripta palabras en AES,DES,RC2,RC4 y DES3.

    M a r i c e l a </3

#ce ----------------------------------------------------------------------------

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Crypt.au3>

$Form1 = GUICreate("Criptografo v1.0 by Jesux Herrera", 462, 300, -1, -1)
$Tab1 = GUICtrlCreateTab(8, 16, 441, 273)
$TabSheet1 = GUICtrlCreateTabItem("Inicio")
$texto = GUICtrlCreateEdit("", 24, 64, 401, 161)
$about = GUICtrlCreateButton("Creditos", 352, 248, 75, 25)
$desenc = GUICtrlCreateButton("Desencriptar", 264, 248, 75, 25)
$enc = GUICtrlCreateButton("Encriptar", 176, 248, 75, 25)
$Input1 = GUICtrlCreateInput("", 80, 248, 81, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_PASSWORD))
$Password = GUICtrlCreateLabel("Password:", 24, 251, 53, 17)
$Label2 = GUICtrlCreateLabel("Texto:", 24, 48, 34, 17)
$TabSheet2 = GUICtrlCreateTabItem("AES (256 Bit)")
$aes256 = GUICtrlCreateEdit("", 24, 56, 401, 217, BitOR($ES_READONLY,$ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
$TabSheet3 = GUICtrlCreateTabItem("DES")
$des = GUICtrlCreateEdit("", 24, 56, 401, 217, BitOR($ES_READONLY,$ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetData(-1, "")
$TabSheet4 = GUICtrlCreateTabItem("RC2")
$rc2 = GUICtrlCreateEdit("", 24, 56, 401, 217, BitOR($ES_READONLY,$ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
$TabSheet5 = GUICtrlCreateTabItem("RC4")
$rc4 = GUICtrlCreateEdit("", 24, 56, 401, 217, BitOR($ES_READONLY,$ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
$TabSheet6 = GUICtrlCreateTabItem("3DES")
$tresdes = GUICtrlCreateEdit("", 24, 56, 401, 217, BitOR($ES_READONLY,$ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetData(-1, "")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
_Crypt_Startup()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $about
            MsgBox(64,"Powered by Jesux Herrera","Gracias por usar este humilde software :D" & @CRLF & "saludos desde lo mas oscuro de Mexico" & @CRLF & @CRLF & "www.autoitenespanol.tk")


        Case $desenc

            $contrasena = GUICtrlRead($Password)
            $datatexto= GUICtrlRead($texto)

            $aes = _Crypt_DecryptData($datatexto, $contrasena, $CALG_AES_256)
            $desdata = _Crypt_DecryptData($datatexto, $contrasena, $CALG_DES)
            $rc2data = _Crypt_DecryptData($datatexto, $contrasena, $CALG_RC2)
            $rc4data = _Crypt_DecryptData($datatexto, $contrasena, $CALG_RC4)
            $tresdesdata = _Crypt_DecryptData($datatexto, $contrasena, $CALG_3DES)

            GUICtrlSetData($aes256, BinaryToString($aes))
            GUICtrlSetData($tresdes,BinaryToString($tresdesdata))
            GUICtrlSetData($rc2,BinaryToString($rc2data))
            GUICtrlSetData($rc4,BinaryToString($rc4data))
            GUICtrlSetData($des,BinaryToString($desdata))

        Case $enc

            $contrasena = GUICtrlRead($Password)
            $datatexto= GUICtrlRead($texto)

            $aes = _Crypt_EncryptData($datatexto, $contrasena, $CALG_AES_256)
            $desdata = _Crypt_EncryptData($datatexto, $contrasena, $CALG_DES)
            $rc2data = _Crypt_EncryptData($datatexto, $contrasena, $CALG_RC2)
            $rc4data = _Crypt_EncryptData($datatexto, $contrasena, $CALG_RC4)
            $tresdesdata = _Crypt_EncryptData($datatexto, $contrasena, $CALG_3DES)

            GUICtrlSetData($aes256, $aes)
            GUICtrlSetData($tresdes, $tresdesdata)
            GUICtrlSetData($rc2, $rc2data)
            GUICtrlSetData($rc4, $rc4data)
            GUICtrlSetData($des, $desdata)

    EndSwitch
WEnd
_Crypt_Shutdown()