CODICE
#include<String.au3>
#include<GUIConstants.au3>
#include<WindowsConstants.au3>
#include<ButtonConstants.au3>
;EndInclude
Local $uscita = 0
$Gui = GUICreate("RC4 Cripter&Decripter",500,350,-1,-1,$WS_POPUP)
GUISetBkColor(0xFFFFFF)
;Menu contestuale
$control=GUICtrlCreateContextMenu()
$cripta=GUICtrlCreateMenuItem("Cripta",$control)
$decripta=GUICtrlCreateMenuItem("Decripta",$control)
GUICtrlCreateMenuItem("",$control)
$esci=GUICtrlCreateMenuItem("Esci",$control)
;Controlli
;Bottoni:
$cript=GUICtrlCreateButton("Cripta",10,10,480,40,$BS_LEFT)
$decript=GUICtrlCreateButton("Decripta",10,250,480,40,$BS_RIGHT)
$exit=GUICtrlCreateButton("Esci",353,305,100,40)
;Edit:
$testo=GUICtrlCreateEdit("",10,50,480,200,1)
;Combo:
$livello=GUICtrlCreateInput("1",250,320,60,20)
$UpDownLevel = GUICtrlSetLimit(GUICtrlCreateUpdown($livello),10,1)
;Label
$lab=GUICtrlCreateLabel("Stato: ",17,303,150,15)
GUICtrlCreateLabel("Livello: ",204,322)
GUICtrlSetPos($livello,250,320,60,18)
GUISetState()
While Not $uscita <> 0
Switch GUIGetMsg()
;Criptazione
Case $cript
GUICtrlSetData($lab,"Criptazione in corso")
GUICtrlSetData($testo,_StringEncrypt(1,GUIctrlread($testo),GUICtrlread($livello)))
GUICtrlSetData($lab,"Completato")
Case $cripta
GUICtrlSetData($lab,"Criptazione in corso")
GUICtrlSetData($testo,_StringEncrypt(1,GUIctrlread($testo),GUICtrlread($livello)))
GUICtrlSetData($lab,"Completato")
;Decriptazione
Case $decript
GUICtrlSetData($lab,"Decriptazione in corso")
GUICtrlSetData($testo,_StringEncrypt(0,GUIctrlread($testo),GUICtrlread($livello)))
GUICtrlSetData($lab,"Completato")
Case $decripta
GUICtrlSetData($lab,"Decriptazione in corso")
GUICtrlSetData($testo,_StringEncrypt(0,GUIctrlread($testo),GUICtrlread($livello)))
GUICtrlSetData($lab,"Completato")
;Uscita
Case $GUI_EVENT_CLOSE
$uscita = 1
Case $esci
$uscita = 1
Case $exit
$uscita = 1
EndSwitch
WEnd
GUIDelete()
Exit