;====================================================
;============= Encryption Autoit Tool With GUI =============
;====================================================
; AutoIt version: 3.0.103
; Language: English
; Author: "Wolvereness"
;
; ----------------------------------------------------------------------------
; Script Start
; ----------------------------------------------------------------------------
#include <GUIConstantsEx.au3>
#include <String.au3>
;#include files for encryption and GUI constants
Opt('MustDeclareVars', 1)
_Main()
Func _Main()
Local $WinMain, $EditText, $InputLevel, $InputPass, $UpDownLevel
Local $EncryptButton, $DecryptButton, $string
#forceref $UpDownLevel
;~~
$WinMain = GUICreate('Encryption Autoit tool', 400, 400)
; Creates window
;~~
$EditText = GUICtrlCreateEdit('', 5, 5, 380, 350)
; Creates main edit
;~~
$InputPass = GUICtrlCreateInput('', 5, 360, 100, 20, 0x21)
; Creates the password box with blured/centered input
;~~
$InputLevel = GUICtrlCreateInput(1, 110, 360, 50, 20, 0x2001)
$UpDownLevel = GUICtrlSetLimit(GUICtrlCreateUpdown($InputLevel), 10, 1)
; These two make the level input with the Up|Down ability
;~~
$EncryptButton = GUICtrlCreateButton('Encrypt', 170, 360, 105, 35)
$DecryptButton = GUICtrlCreateButton('Decrypt', 285, 360, 105, 35)
; Encryption/Decryption buttons
;~~
GUICtrlCreateLabel('Password', 5, 385)
GUICtrlCreateLabel('Level', 110, 385)
; Simple text labels so you know what is what
;~~
GUISetState()
; Shows window
;~~
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $EncryptButton
; When you press Encrypt
;~~
GUISetState(@SW_DISABLE, $WinMain)
; Stops you from changing anything
;~~
$string = GUICtrlRead($EditText)
; Saves the editbox for later
;~~
GUICtrlSetData($EditText, 'Please wait while the text is Encrypted/Decrypted.')
; Friendly message
;~~
GUICtrlSetData($EditText, _StringEncrypt(1, $string, GUICtrlRead($InputPass), GUICtrlRead($InputLevel)))
; Calls the encryption. Sets the data of editbox with the encrypted string
;~~
GUISetState(@SW_ENABLE, $WinMain)
; This turns the window back on
;~~
Case $DecryptButton
; When you press Decrypt
;~~
GUISetState(@SW_DISABLE, $WinMain)
; Stops you from changing anything
;~~
$string = GUICtrlRead($EditText)
; Saves the editbox for later
;~~
GUICtrlSetData($EditText, 'Please wait while the text is Encrypted/Decrypted.')
; Friendly message
;~~
GUICtrlSetData($EditText, _StringEncrypt(0, $string, GUICtrlRead($InputPass), GUICtrlRead($InputLevel)))
; Calls the encryption. Sets the data of editbox with the encrypted string
;~~
GUISetState(@SW_ENABLE, $WinMain)
; This turns the window back on
;~~
EndSwitch
WEnd
EndFunc ;==>_Main
Haciendo una búsqueda en la red me encontré con este script y creo que va a ser útil a alguien
"Concentrarse en las fortalezas, reconocer las debilidades, las oportunidades y tomar la guardia contra las amenazas."
―Sun Tzu
―Sun Tzu