CODICE
;~ Criptatore v1.0
;~ by Jack1891
#NoTrayIcon
#include <GUIConstants.au3>
#Include <String.au3>
#include<file.au3>
$Form = GUICreate("Criptatore - by Jack1891", 300, 260, 200, 125, -1)
$Label0 = GUICtrlCreateLabel("Istruzioni:"&@CRLF&"Immettere del testo nel riquadro superiore con le seguenti regole:", 14, 14, 300, 50)
$Label1= GUICtrlCreateLabel("a) Inserire un testo da criptare nel primo spzi."&@CRLF&"b) Scegliere una passoword alfanumerica a scelta, oppure generarne una che sarą esclusivamente numerica.", 34,75, 225, 90)
$Label2 = GUICtrlCreateLabel("(Ovviamente l'inserimento di numeri e caratteri casuali da ''decodificare'' produrrą lettere senza senso.)", 5, 140, 295, 50)
$Button = GUICtrlCreateButton("Click per procedere",100, 190, 110, 30 )
$menu = GUICtrlCreateMenu("File")
$Smenu = GUICtrlCreateMenuItem("Esci",$menu)
$menu2 = GUICtrlCreateMenu("?")
$Smenu2 = GUICtrlCreateMenuItem("Informazioni",$menu2)
$Smenu3 = GUICtrlCreateMenuItem("Contatti",$menu2)
GUISetState(@SW_SHOW)
While 1
$Msg = GUIGetMsg()
Switch $Msg
Case $GUI_EVENT_CLOSE
Exit
Case $Smenu
Exit
Case $Smenu2
MsgBox (0, "Informazioni", "Tool utile per proteggere testi grazie ad"&@CRLF&"un algoritmo di crittazione che "&@CRLF&"varia secondo una password a scelta.")
Case $Smenu3
MsgBox (0, "Contatti", "Autore: Jack1891"&@CRLF&"Email: jack1891@hotmail.com")
Case $Button
GUISetState(@SW_HIDE)
Global $Form1 = GUICreate("Criptatore - by Jack1891", 455, 455, 193, 125, -1)
Global $Testo = GUICtrlCreateEdit("", 8, 24, 433, 121)
Global $Testo2 = GUICtrlCreateEdit("", 8, 268, 433, 105)
$menu = GUICtrlCreateMenu("File")
$Smenu00 = GUICtrlCreateMenuItem("Salva",$menu)
$Smenu = GUICtrlCreateMenuItem("Esci",$menu)
$menu2 = GUICtrlCreateMenu("?")
$Smenu2 = GUICtrlCreateMenuItem("Informazioni",$menu2)
$Smenu3 = GUICtrlCreateMenuItem("Contatti",$menu2)
$cripta = GUICtrlCreateButton("Cripta", 20, 160, 100, 30)
$PassCasuale = GUICtrlCreateButton("Password casuale", 275, 210, 100, 30)
$LabelPass = GUICtrlCreateLabel("Password:", 35, 220, 50, 30)
$LabelLiv = GUICtrlCreateLabel("Livello:", 240, 170, 50, 30)
$Liv = GUICtrlCreateInput("1",0,0)
$updown = GUICtrlCreateUpdown($Liv)
GUICtrlSetLimit($updown, 10,1)
GUICtrlSetPos($Liv, 285,160)
GUISetState()
$pass1 = GUICtrlCreateInput("", 95, 215, 80, 22)
$decripta = GUICtrlCreateButton("Decripta", 20, 390, 100, 30)
GUISetState(@SW_SHOW)
While 1
$Msg = GUIGetMsg()
Switch $Msg
Case $GUI_EVENT_CLOSE
Exit
Case $Smenu
Exit
Case $Smenu2
MsgBox (0, "Informazioni", "Tool utile per proteggere testi grazie ad"&@CRLF&"un algoritmo di crittazione che "&@CRLF&"varia secondo una password a scelta.")
Case $Smenu3
MsgBox (0, "Contatti", "Autore: Jack1891"&@CRLF&"Email: jack1891@hotmail.com")
Case $Smenu00
$Read = GUICtrlRead($Testo)
$Read2 = GUICtrlRead($Testo2)
_FileCreate(@ScriptDir&"\Testo_Criptato.txt")
$apri = FileOpen(@ScriptDir&"\Testo_Criptato.txt",1)
FileWrite($apri, "Testo in chiaro:"&@CRLF&$Read&@CRLF&@CRLF&"Testo criptato:"&@CRLF&$Read2&@CRLF&@CRLF)
MsgBox(0, "File salvato", "Il file di testo č stato creato sul Desktop,"&@CRLF&"i dati verranno inseriti alla chiusura del"&@CRLF&"programma.")
Case $PassCasuale
$a = Random(123,54321,1)
GUICtrlSetData( $pass1, $a)
Case $cripta
$Read = GUICtrlRead($Testo)
GUICtrlSetData($Testo2,_StringEncrypt(1,$Read,GUICtrlRead($pass1),GUICtrlRead($Liv)))
Case $decripta
$Read2 = GUICtrlRead($Testo2)
GUICtrlSetData($Testo,_StringEncrypt(0,$Read2,GUICtrlRead($pass1),GUICtrlRead($Liv)))
EndSwitch
WEnd
EndSwitch
WEnd
