#include<guiconstants.au3>
GUICreate("Scegli...",500,380)
$FAVOLA=GUICtrlCreateButton("Crittatore/decrittatore FAVOLA",30,20,300,80)
$FIRENUMBER=GUICtrlCreateButton("Crittatore/decrittatore FireNumer",30,200,300,80)
$CESARE=GUICtrlCreateButton("Crittatore/decrittatore di Cesare",30,110,300,80)
$ESCI=GUICtrlCreateBfutton("Esci",30,290,300,80)
GUICtrlCreateLabel("Attraverso questa schermata potrai accedere a diversi crittatori, scegline uno, verrà automaticamente aperto da solo. Programmi creati da Aaron Clift. Per il cifrario di Cesare è doveroso nominare Red Skull per la parte della cifratura.",350,30,145,450)
GUISetState(@SW_SHOW)
While 1
$cazzomsg=GUIGetMsg()
Switch $cazzomsg
Case $FAVOLA
crittatorefavola()
ExitLoop
Case $FIRENUMBER
crittatorefirenumber()
ExitLoop
Case $CESARE
crittatorecesare()
ExitLoop
Case $ESCI
Exit
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func crittatorefavola()
#include<guiconstants.au3>
GUICreate("Crittatore FAVOLA, powered by Aaron Clift",800,450)
$spazio1=GUICtrlCreateEdit("",10,10,690,170)
$spazio2=GUICtrlCreateEdit("",10,270,690,170)
GUICtrlCreateLabel("Crittatore FAVOLA di Aaron Clift, tutti i diritti riservati, distribuire solo sotto autorizzazione dello stesso",10,200,690,45)
GUICtrlSetFont(-1,15)
$cifra=GUICtrlCreateButton("Cifra",720,40,50,100)
$decifra=GUICtrlCreateButton("Decifra",720,300,50,100)
$info=GUICtrlCreateButton("Info",720,200,50,50)
GUISetState(@SW-SHOW)
While 1
$nmsg=GUIGetMsg()
Switch $nmsg
Case $GUI_EVENT_CLOSE
Exit
Case $info
MsgBox(64,"Informazioni","Semplice crittatore basato sull'algoritmo FAVOLA, ideato, disegnato e realizzato da Aaron Clit")
Case $cifra
$guarda=GUICtrlRead($spazio1)
$a=StringReplace($guarda,"a","E00",0,2)
$b=StringReplace($a,"b","4M01",0,2)
$c=StringReplace($b,"c","1243F451543",0,2)
$d=StringReplace($c,"d","N",0,2)
$e=StringReplace($d,"e","L",0,2)
$f=StringReplace($e,"f","G",0,2)
$g=StringReplace($f,"g","K",0,2)
$h=StringReplace($g,"h","B",0,2)
$i=StringReplace($h,"i","T",0,2)
$j=StringReplace($i,"j","U",0,2)
$k=StringReplace($j,"k","V",0,2)
$l=StringReplace($k,"l","J",0,2)
$m=StringReplace($l,"m","A",0,2)
$n=StringReplace($m,"n","D",0,2)
$o=StringReplace($n,"o","H",0,2)
$p=StringReplace($o,"p","S",0,2)
$q=StringReplace($p,"q","I",0,2)
$r=StringReplace($q,"r","O",0,2)
$s=StringReplace($r,"s","C",0,2)
$t=StringReplace($s,"t","P",0,2)
$u=StringReplace($t,"u","Z",0,2)
$v=StringReplace($u,"v","R",0,2)
$z=StringReplace($v,"z","Q",0,2)
$w=StringReplace($z,"w","4=1",0,2)
GUICtrlSetData($spazio2,$w)
Case $decifra
$guarda=GUICtrlRead($spazio2)
$a=StringReplace($guarda,"E00","a",0,2)
$b=StringReplace($a,"4M01","b",0,2)
$c=StringReplace($b,"1243F451543","c",0,2)
$d=StringReplace($c,"N","d",0,2)
$e=StringReplace($d,"L","e",0,2)
$f=StringReplace($e,"G","f",0,2)
$g=StringReplace($f,"K","g",0,2)
$h=StringReplace($g,"B","h",0,2)
$i=StringReplace($h,"T","i",0,2)
$j=StringReplace($i,"U","j",0,2)
$k=StringReplace($j,"V","k",0,2)
$l=StringReplace($k,"J","l",0,2)
$m=StringReplace($l,"A","m",0,2)
$n=StringReplace($m,"D","n",0,2)
$o=StringReplace($n,"H","o",0,2)
$p=StringReplace($o,"S","p",0,2)
$q=StringReplace($p,"I","q",0,2)
$r=StringReplace($q,"O","r",0,2)
$s=StringReplace($r,"C","s",0,2)
$t=StringReplace($s,"P","t",0,2)
$u=StringReplace($t,"Z","u",0,2)
$v=StringReplace($u,"R","v",0,2)
$z=StringReplace($v,"Q","z",0,2)
$w=StringReplace($z,"4=1","w",0,2)
GUICtrlSetData($spazio1,$w)
EndSwitch
WEnd
EndFunc
Func crittatorecesare()
#include <guiconstants.au3>
$gui1=GUICreate("Cifrario di cesare",800,400)
$primospazio=GUICtrlCreateEdit("",8,24,780,121)
$secondospazio=GUICtrlCreateEdit("",8,208,780,105)
$cripta=GUICtrlCreateButton("Cifra", 110, 160, 100, 30)
$decripta=GUICtrlCreateButton("Decifra",230,160,100,30)
$info=GUICtrlCreatevButton("Info",20,160,50,30)
$istruzioni=GUICtrlCreateLabel("Per cifrare scrivi nello spazio in alto e premi CIFRA, per decifrare scrivi in basso e premi DECIFRA",350,160,250,40)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $cripta
$leggo=GUICtrlRead($primospazio)
$a=StringReplace($leggo,"a","D",0,2)
$b=StringReplace($a,"b","E",0,2)
$c=StringReplace($b,"c","F",0,2)
$d=StringReplace($c,"d","G",0,2)
$e=StringReplace($d,"e","H",0,2)
$f=StringReplace($e,"f","I",0,2)
$g=StringReplace($f,"g","J",0,2)
$h=StringReplace($g,"h","K",0,2)
$i=StringReplace($h,"i","L",0,2)
$j=StringReplace($i,"j","M",0,2)
$k=StringReplace($j,"k","N",0,2)
$l=StringReplace($k,"l","O",0,2)
$m=StringReplace($l,"m","P",0,2)
$n=StringReplace($m,"n","Q",0,2)
$o=StringReplace($n,"o","R",0,2)
$p=StringReplace($o,"p","S",0,2)
$q=StringReplace($p,"q","T",0,2)
$r=StringReplace($q,"r","U",0,2)
$s=StringReplace($r,"s","V",0,2)
$t=StringReplace($s,"t","Z",0,2)
$u=StringReplace($t,"u","A",0,2)
$v=StringReplace($u,"v","B",0,2)
$z=StringReplace($v,"z","C",0,2)
GUICtrlSetData($secondospazio,$z)
Case $decripta
$leggo=GUICtrlRead($secondospazio)
$a=StringReplace($leggo,"D","a",0,2)
$b=StringReplace($a,"E","b",0,2)
$c=StringReplace($b,"F","c",0,2)
$d=StringReplace($c,"G","d",0,2)
$e=StringReplace($d,"H","e",0,2)
$f=StringReplace($e,"I","f",0,2)
$g=StringReplace($f,"J","g",0,2)
$h=StringReplace($g,"K","h",0,2)
$i=StringReplace($h,"L","i",0,2)
$j=StringReplace($i,"O","l",0,2)
$k=StringReplace($j,"P","m",0,2)
$l=StringReplace($k,"Q","n",0,2)
$m=StringReplace($l,"R","o",0,2)
$n=StringReplace($m,"S","p",0,2)
$o=StringReplace($n,"T","q",0,2)
$p=StringReplace($o,"U","r",0,2)
$q=StringReplace($p,"V","s",0,2)
$r=StringReplace($q,"Z","t",0,2)
$s=StringReplace($r,"A","u",0,2)
$t=StringReplace($s,"B","v",0,2)
$u=StringReplace($t,"C","z",0,2)
$v=StringReplace($u,"M","j",0,2)
$z=StringReplace($v,"N","k",0,2)
GUICtrlSetData($primospazio,$z)
Case $info
SplashTextOn ("Informazioni","Questa utility è stata creata da Red Skull, Aaron Clift ha aggiunto la possibilità di decifrare i testi già crittati, funzione non presente nella versione originale di Red Skull. Visitate
http://aaronclift.altervista.org/ e
http://redskull92.wordpress.com/. Il messaggio che state leggendo scomparirà automaticamente in 25 secondi",-1,150)
Sleep(25000)
SplashOff()
EndSwitch
WEnd
EndFunc
Func crittatorefirenumber()
#include<guiconstants.au3>
GUICreate("Crittatore FireNumber, powered by Aaron Clift",800,450)
$spazio1=GUICtrlCreateEdit("",10,10,690,170)
$spazio2=GUICtrlCreateEdit("",10,270,690,170)
GUICtrlCreateLabel("Crittatore FireNumber di Aaron Clift, tutti i diritti riservati, distribuire solo sotto autorizzazione dello stesso",10,200,690,45)
GUICtrlSetFont(-1,15,"Comic Sans MS")
$cifra=GUICtrlCreateButton("Encrypt",720,40,50,100)
$decifra=GUICtrlCreateButton("Decrypt",720,300,50,100)
$info=GUICtrlCreateButton("Infos",720,200,50,50)
GUISetState(@SW_SHOW)
While 1
$cazzodimsg=GUIGetMsg()
Switch $cazzodimsg
Case $cifra
$guarda=GUICtrlRead($spazio1)
$a=StringReplace($guarda,"a","0000",0,2)
$b=StringReplace($a,"b","4151",0,2)
$c=StringReplace($b,"c","4120",0,2)
$d=StringReplace($c,"d","1332",0,2)
$e=StringReplace($d,"e","3412",0,2)
$f=StringReplace($e,"f","0912",0,2)
$g=StringReplace($f,"g","4040",0,2)
$h=StringReplace($g,"h","5123",0,2)
$i=StringReplace($h,"i","1120",0,2)
$j=StringReplace($i,"j","2413",0,2)
$k=StringReplace($j,"k","5432",0,2)
$l=StringReplace($k,"l","1221",0,2)
$m=StringReplace($l,"m","2314",0,2)
$n=StringReplace($m,"n","1029",0,2)
$o=StringReplace($n,"o","3883",0,2)
$p=StringReplace($o,"p","5765",0,2)
$q=StringReplace($p,"q","1820",0,2)
$r=StringReplace($q,"r","2931",0,2)
$s=StringReplace($r,"s","4315",0,2)
$t=StringReplace($s,"t","4104",0,2)
$u=StringReplace($t,"u","1444",0,2)
$v=StringReplace($u,"v","4101",0,2)
$z=StringReplace($v,"z","1122",0,2)
$w=StringReplace($z,"w","1111",0,2)
GUICtrlSetData($spazio2,$w)
Case $decifra
$guarda=GUICtrlRead($spazio2)
$a=StringReplace($guarda,"0000","a",0,2)
$b=StringReplace($a,"4151","b",0,2)
$c=StringReplace($b,"4120","c",0,2)
$d=StringReplace($c,"1332","d",0,2)
$e=StringReplace($d,"3412","e",0,2)
$f=StringReplace($e,"0912","f",0,2)
$g=StringReplace($f,"4040","g",0,2)
$h=StringReplace($g,"5123","h",0,2)
$i=StringReplace($h,"1120","i",0,2)
$j=StringReplace($i,"2413","j",0,2)
$k=StringReplace($j,"5432","k",0,2)
$l=StringReplace($k,"1221","l",0,2)
$m=StringReplace($l,"2314","m",0,2)
$n=StringReplace($m,"1029","n",0,2)
$o=StringReplace($n,"3883","o",0,2)
$p=StringReplace($o,"5765","p",0,2)
$q=StringReplace($p,"1820","q",0,2)
$r=StringReplace($q,"2931","r",0,2)
$s=StringReplace($r,"4315","s",0,2)
$t=StringReplace($s,"4104","t",0,2)
$u=StringReplace($t,"1444","u",0,2)
$v=StringReplace($u,"4101","v",0,2)
$z=StringReplace($v,"1122","z",0,2)
$w=StringReplace($z,"1111","w",0,2)
GUICtrlSetData($spazio1,$w)
Case $info
MsgBox(64,"Informazioni su FireNumber","FireNumber è un crittatore/decrittatore ideato, disegnato e realizzato da Aaron Clift, tutti i diritti riservati. Distribuzione attributiva non commerciale solo sotto sua esplicita autorizzazione. Pena: DEFACE")
Case $GUI_EVET_CLOSE
Exit
EndSwich
EndFunc
