#include <String.au3>
#include <GuiConstants.au3>
GUICreate ("Crypter", 500, 430)
$menu = GUICtrlCreateMenu ("&About...")
$about = GUICtrlCreateMenuItem ("About the author", $menu)
$text = GUICtrlCreateEdit ("", 10, 30, 450, 235)
GUICtrlCreateLabel ("Inserire password di crittazione: ", 100, 370)
$pass = GUICtrlCreateInput ("", 255,  365, 150, 20, 0x21)
$critta = GUICtrlCreateButton ("critta", 80, 280, 100, 30)
$decritta  = GUICtrlCreateButton ("decritta", 200, 280, 100 , 30)
$clip = GUICtrlCreateButton ("Inserisci nella clipboard", 320, 280, 120, 30)
GUICtrlCreateLabel ( "Inserire livello di crittazione: ", 100, 330)
$input = GUICtrlCreateInput ("1",255, 325, 50, 20)
$level =  gUICtrlSetLimit(GuiCtrlCreateUpDown($input),10,1)

GUISetState ()
while 1
   $msg = GUIGetMsg ()
   Select
   Case $msg = $GUI_EVENT_CLOSE
         ExitLoop
      case $msg = $clip
         ClipPut (guictrlread ($text))
      case $msg = $critta
         $txt_crittato = _StringEncrypt (1, GUICtrlRead ($text), GUICtrlRead ($pass), GUICtrlRead ($input))
         GUICtrlSetData ($text, $txt_crittato)
      Case $msg = $decritta
         $txt_decrittato = _StringEncrypt (0, GUICtrlRead ($text), GUICtrlRead ($pass), GUICtrlRead ($input))
         GUICtrlSetData ($text, $txt_decrittato)
      case $msg = $about
         MsgBox (32, "About the author", "Crypter is made up by darkjoker"&@crlf&"http://xhack.forumitalian.net")
   EndSelect
WEnd