#cs ----------------------------------------------------------------------------
--->BradCripter
-Permette di criptare un testo tramite il cifrario di Cesare
-Autore: Bradiposo
-Email:
[email protected]#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
