HacK GamE

#cs ----------------------------------------------------------------------------

--->BradCripter
 -Permette di criptare un testo tramite il cifrario di Cesare
 -Autore: Bradiposo
 -Email: mr-kappa@hotmail.it

#ce ----------------------------------------------------------------------------
#include <guiedit.au3>
#include <guiconstantsex.au3>

$bc = GUICreate("BradCripter",420,420)
$edit = GUICtrlCreateEdit("Scrivi qui il testo da criptare o decriptare",10,180,400,200)
$bottone1 = GUICtrlCreateButton("Cripta",10,385,200,30)
$bottone2 = GUICtrlCreateButton("Decripta",210,385,200,30)
GUICtrlCreatePic(@scriptdir&"\logo.gif", 10, 10, 394, 172)



GUISetState(@SW_SHOW, $bc)

While 1

 Switch GUIGETMSG()
case $GUI_EVENT_CLOSE
Guidelete()
exitloop

Case $bottone1

 $ms = GUICtrlRead($edit)
 $split = StringSplit($ms,"")
GUICtrlSetData($edit, "" )

For $i = 1 To UBound($split)-1



 if $split[$i] = "a" Then
 $split[$i] = "D"


 ELSEif $split[$i] = "b" Then
 $split[$i] = "E"


 ELSEif $split[$i] = "c" Then
 $split[$i] = "F"


 ELSEif $split[$i] = "d" Then
 $split[$i] = "G"


 ELSEif $split[$i] = "e" Then
 $split[$i] = "H"


 ELSEif $split[$i] = "f" Then
 $split[$i] = "I"


 ELSEif $split[$i] = "g" Then
 $split[$i] = "K"


 ELSEif $split[$i] = "h" Then
 $split[$i] = "L"


 ELSEif $split[$i] = "i" Then
 $split[$i] = "M"


 ELSEif $split[$i] = "k" Then
 $split[$i] = "N"


 ELSEif $split[$i] = "l" Then
 $split[$i] = "O"


 ELSEif $split[$i] = "m" Then
 $split[$i] = "P"


 ELSEif $split[$i] = "n" Then
 $split[$i] = "Q"


 ELSEif $split[$i] = "o" Then
 $split[$i] = "R"


 ELSEif $split[$i] = "p" Then
 $split[$i] = "S"


 ELSEif $split[$i] = "q" Then
 $split[$i] = "T"


 ELSEif $split[$i] = "r" Then
 $split[$i] = "U"


 ELSEif $split[$i] = "s" Then
 $split[$i] = "V"


 ELSEif $split[$i] = "t" Then
 $split[$i] = "W"


 ELSEif $split[$i] = "u" Then
 $split[$i] = "X"


 ELSEif $split[$i] = "v" Then
 $split[$i] = "Y"


 ELSEif $split[$i] = "w" Then
 $split[$i] = "Z"


 ELSEif $split[$i] = "x" Then
 $split[$i] = "A"


 ELSEif $split[$i] = "y" Then
 $split[$i] = "B"


 ELSEif $split[$i] = "z" Then
 $split[$i] = "C"

 ELSEif $split[$i] = "0" Then
 $split[$i] = "3"


 ELSEif $split[$i] = "1" Then
 $split[$i] = "4"


 ELSEif $split[$i] = "2" Then
 $split[$i] = "5"


 ELSEif $split[$i] = "3" Then
 $split[$i] = "6"


 ELSEif $split[$i] = "4" Then
 $split[$i] = "7"


 ELSEif $split[$i] = "5" Then
 $split[$i] = "8"


 ELSEif $split[$i] = "6" Then
 $split[$i] = "9"


 ELSEif $split[$i] = "7" Then
 $split[$i] = "0"


 ELSEif $split[$i] = "8" Then
 $split[$i] = "1"


 ELSEif $split[$i] = "9" Then
 $split[$i] = "2"

 ELSEif $split[$i] = "è" Then
 $split[$i] = "ò"


 ELSEif $split[$i] = "à" Then
 $split[$i] = "ì"


 ELSEif $split[$i] = "/" Then
 $split[$i] = "\"


 ELSEif $split[$i] = "(" Then
 $split[$i] = "%"


 ELSEif $split[$i] = ")" Then
 $split[$i] = "&"

 ELSEif $split[$i] = "'" Then
 $split[$i] = "$"











 ELSEif $split[$i] = " " Then
 $split[$i] = "-"


 Else
 $split[$i] = $split[$i]
 endiF

 _GUICtrlEdit_AppendText($edit, $split[$i] )


Next

Case $bottone2

 $ms1 = GUICtrlRead($edit)
 $split = StringSplit($ms1,"")
GUICtrlSetData($edit, "" )

For $i = 1 To UBound($split)-1



 if $split[$i] = "A" Then
 $split[$i] = "x"

 Elseif $split[$i] = "B" Then
 $split[$i] = "Y"

 Elseif $split[$i] = "C" Then
 $split[$i] = "z"

 Elseif $split[$i] = "D" Then
 $split[$i] = "a"

 Elseif $split[$i] = "E" Then
 $split[$i] = "b"

 Elseif $split[$i] = "F" Then
 $split[$i] = "c"

 Elseif $split[$i] = "G" Then
 $split[$i] = "d"

 Elseif $split[$i] = "H" Then
 $split[$i] = "e"

 Elseif $split[$i] = "I" Then
 $split[$i] = "f"

 Elseif $split[$i] = "K" Then
 $split[$i] = "g"

 Elseif $split[$i] = "L" Then
 $split[$i] = "h"

 Elseif $split[$i] = "M" Then
 $split[$i] = "i"

 Elseif $split[$i] = "N" Then
 $split[$i] = "k"

 Elseif $split[$i] = "O" Then
 $split[$i] = "l"

 Elseif $split[$i] = "P" Then
 $split[$i] = "m"

 Elseif $split[$i] = "Q" Then
 $split[$i] = "n"

 Elseif $split[$i] = "R" Then
 $split[$i] = "o"

 Elseif $split[$i] = "S" Then
 $split[$i] = "p"

 Elseif $split[$i] = "T" Then
 $split[$i] = "q"

 Elseif $split[$i] = "U" Then
 $split[$i] = "r"

 Elseif $split[$i] = "V" Then
 $split[$i] = "s"

 Elseif $split[$i] = "W" Then
 $split[$i] = "t"

 Elseif $split[$i] = "X" Then
 $split[$i] = "u"

 Elseif $split[$i] = "Y" Then
 $split[$i] = "v"

 Elseif $split[$i] = "Z" Then
 $split[$i] = "w"

 ELSEif $split[$i] = "3" Then
 $split[$i] = "0"


 ELSEif $split[$i] = "4" Then
 $split[$i] = "1"


 ELSEif $split[$i] = "5" Then
 $split[$i] = "2"


 ELSEif $split[$i] = "6" Then
 $split[$i] = "3"


 ELSEif $split[$i] = "7" Then
 $split[$i] = "4"


 ELSEif $split[$i] = "8" Then
 $split[$i] = "5"


 ELSEif $split[$i] = "9" Then
 $split[$i] = "6"


 ELSEif $split[$i] = "0" Then
 $split[$i] = "7"


 ELSEif $split[$i] = "1" Then
 $split[$i] = "8"


 ELSEif $split[$i] = "2" Then
 $split[$i] = "9"

 ELSEif $split[$i] = "ò" Then
 $split[$i] = "è"


 ELSEif $split[$i] = "ì" Then
 $split[$i] = "à"


 ELSEif $split[$i] = "\" Then
 $split[$i] = "/"


 ELSEif $split[$i] = "%" Then
 $split[$i] = "("


 ELSEif $split[$i] = "&" Then
 $split[$i] = ")"

 ELSEif $split[$i] = "$" Then
 $split[$i] = "'"





 Elseif $split[$i] = "-" Then
 $split[$i] = " "





 EndiF

 _GUICtrlEdit_AppendText($edit, $split[$i] )



Next



EndSwitch

WEnd