AutoIT [AutoIT] BradCrypter

[sQuo]

>
#cs ----------------------------------------------------------------------------

--->BradCripter
-Permette di criptare un testo tramite il cifrario di Cesare
-Autore: Bradiposo
-Email: [email protected]

#ce ----------------------------------------------------------------------------
#include 
#include 

$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