Crypter 0.1 Opter

#include <guiedit.au3>
#include <guiconstantsex.au3>
#include <guiconstants.au3>
$GUI = GUICreate("Crypter 0.1 Opter",400,240)
$msg = GUIGetMsg()
$EDIT1 = GUICtrlCreateEdit("",10,10,300,200)
$BUTTON1 = GUICtrlCreateButton("CRIPTA",320,180,70,30)
$BUTTON2= GUICtrlCreateButton("DECRIPTA",320,150,70,30)
$BUTTON3= GUICtrlCreateButton("Nuovo Crypt",320,120,70,30)
$BUTTON4= GUICtrlCreateButton("Apri Crypt",320,90,70,30)
$CIAO = 1
$335 = FileOpen("cty.dat",0)
if $335 = -1 then
_Crea()
endif
FileClose($335)
MsgBox(0,"Crypter 0.1","Scegli la Chiave")
while 1
$op = _apri()
if $op <> "" then ExitLoop
if $op = "" then MsgBox(16,"Crypter 0.1","Error"&@CRLF&@CRLF&"Devi Scegliere prima la chiave cty.Dat")
wend
$cia = GUICtrlCreateLabel($op,10,220,550,20)
WHILE $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
GUIsetState()
Switch $MSG
CASE $BUTTON1
$ope = FileOpen($op,0)
_crypt($ope)
CASE $BUTTON2
$open = FileOpen( $op,0)
_decrypt($ope)
CASE $BUTTON3
$c2 = MsgBox(4,"Crypetr","la nuova chive Crittografa verra creata nella catella coorelante, procedere?")
if $c2 = 6 then
_Crea()
$op = _apri()
GUICtrlSetData($cia,$op)
endif
CASE $BUTTON4
$op = _apri()
GUICtrlSetData($cia,$op)
EndSwitch
WEND



func _apri()
$var = FileOpenDialog("Seleziona la chiave Critografa", @ScriptDir & "\", "File (*.dat)" )
return $var
EndFunc



func _Crea()
$t = 0
$r = 3

$i = FileOpen("cty.dat",0)

if $i = 1 then
FileClose($i)
while 1
$t = $t +1
$r = FileOpen("cty["&$t&"].dat",0)
if $r = 1 then FileClose($i)
if $r = -1 then ExitLoop
WEnd
$i = FileOpen("cty["&$t&"].dat",1)
Else
$i = FileOpen("cty.dat",1)

EndIf






for $5 = 1 to 76
for $2 = 1 to 10
$s = Random(1,100,1)
_s($s)
FileWrite($i,_s($s))
next
FileWrite($i,@CRLF)
next
FileClose($i)



EndFunc








func _decrypt($open)
$a = FileReadLine($open,1)
$b = FileReadLine($open,2)
$c = FileReadLine($open,3)
$d = FileReadLine($open,4)
$e = FileReadLine($open,5)
$f = FileReadLine($open,6)
$g = FileReadLine($open,7)
$h = FileReadLine($open,8)
$ii = FileReadLine($open,9)
$l = FileReadLine($open,10)
$m = FileReadLine($open,11)
$n = FileReadLine($open,12)
$o = FileReadLine($open,13)
$p = FileReadLine($open,14)
$q = FileReadLine($open,15)
$r = FileReadLine($open,16)
$s = FileReadLine($open,17)
$t = FileReadLine($open,18)
$u = FileReadLine($open,19)
$v = FileReadLine($open,20)
$z = FileReadLine($open,21)
$k = FileReadLine($open,22)
$j = FileReadLine($open,23)
$y = FileReadLine($open,24)
$x = FileReadLine($open,25)
$w = FileReadLine($open,26)
$1 = FileReadLine($open,27)
$2 = FileReadLine($open,28)
$3 = FileReadLine($open,29)
$4 = FileReadLine($open,30)
$5 = FileReadLine($open,31)
$6 = FileReadLine($open,32)
$7 = FileReadLine($open,33)
$8 = FileReadLine($open,34)
$9 = FileReadLine($open,35)
$aa = FileReadLine($open,36)
$ab = FileReadLine($open,37)
$ac = FileReadLine($open,38)
$ad = FileReadLine($open,39)
$ae = FileReadLine($open,40)
$af = FileReadLine($open,41)
$ag = FileReadLine($open,42)
$ah = FileReadLine($open,43)
$ai = FileReadLine($open,44)
$al = FileReadLine($open,45)
$am = FileReadLine($open,46)
$an = FileReadLine($open,47)
$ao = FileReadLine($open,48)
$ap = FileReadLine($open,49)
$aq = FileReadLine($open,50)
$ar = FileReadLine($open,51)
$as = FileReadLine($open,52)
$at = FileReadLine($open,53)
$au = FileReadLine($open,54)
$av = FileReadLine($open,55)
$az = FileReadLine($open,56)
$a1 = FileReadLine($open,57)
$a2 = FileReadLine($open,58)
$a3 = FileReadLine($open,59)
$a4 = FileReadLine($open,60)
$a5 = FileReadLine($open,61)
$a6 = FileReadLine($open,62)
$a7 = FileReadLine($open,63)
$a8 = FileReadLine($open,64)
$a9 = FileReadLine($open,65)
$a10 = FileReadLine($open,66)
$a11 = FileReadLine($open,67)
$a12 = FileReadLine($open,68)
$a13 = FileReadLine($open,69)
$a14 = FileReadLine($open,71)
$a15 = FileReadLine($open,72)
$a16 = FileReadLine($open,73)
$space = FileReadLine($open,74)
$rt = FileReadLine($open,75)
$a0 = FileReadLine($open,76)
FileClose($open)
$ms = GUICtrlRead($EDIT1)
If $ms = "" Then $CIAO = 2
$split = StringSplit($ms,"") ;nel secondo parametro, se lo lascio vuoto splitta tutti caratteri uno per uno
GUICtrlSetData($Edit1, "" )
If $ms = "" Then Exit
$i = 1
For $i = 1 To UBound($split)-1
$read = $split[$i]&$split[$i+1]&$split[$i+2]&$split[$i+3]&$split[$i+4]&$split[$i+5]&$split[$i+6]&$split[$i+7]&$split[$i+8]&$split[$i+9]
$i = $i+9
if $read = $a Then
$write = "a"
ElseIf $read = $b Then
$write = "b"
ElseIf $read = $c Then
$write = "c"
ElseIf $read = $d Then
$write = "d"
ElseIf $read = $e Then
$write = "e"
ElseIf $read = $f Then
$write = "f"
ElseIf $read = $g Then
$write = "g"
ElseIf $read = $h Then
$write = "h"
ElseIf $read = $ii Then
$write = "i"
ElseIf $read = $l Then
$write = "l"
ElseIf $read = $m Then
$write = "m"
ElseIf $read = $n Then
$write = "n"
ElseIf $read = $o Then
$write = "o"
ElseIf $read = $p Then
$write = "p"
ElseIf $read = $q Then
$write = "q"
ElseIf $read = $r Then
$write = "r"
ElseIf $read = $s Then
$write = "s"
ElseIf $read = $t Then
$write = "t"
ElseIf $read = $u Then
$write = "u"
ElseIf $read = $v Then
$write = "v"
ElseIf $read = $z Then
$write = "z"
ElseIf $read = $x Then
$write = "x"
ElseIf $read = $k Then
$write = "k"
ElseIf $read = $y Then
$write = "y"
ElseIf $read = $w Then
$write = "w"
ElseIf $read = $j Then
$write = "j"
ElseIf $read = $1 Then
$write = "1"
ElseIf $read = $2 Then
$write = "2"
ElseIf $read = $3 Then
$write = "3"
ElseIf $read = $4 Then
$write = "4"
ElseIf $read = $5 Then
$write = "5"
ElseIf $read = $6 Then
$write = "6"
ElseIf $read = $7 Then
$write = "7"
ElseIf $read = $8 Then
$write = "8"
ElseIf $read = $9 Then
$write = "9"
ElseIf $read = $aa Then
$write = "\"
ElseIf $read = $ab Then
$write = "|"
ElseIf $read = $ac Then
$write = "!"
ElseIf $read = $ad Then
$write = "�"
ElseIf $read = $ae Then
$write = "$"
ElseIf $read = $af Then
$write = "%"
ElseIf $read = $ag Then
$write = "&"
ElseIf $read = $ah Then
$write = "/"
ElseIf $read = $ai Then
$write = "("
ElseIf $read = $al Then
$write = ")"
ElseIf $read = $am Then
$write = "="
ElseIf $read = $an Then
$write = "?"
ElseIf $read = $ao Then
$write = "^"
ElseIf $read = $ap Then
$write = "�"
ElseIf $read = $aq Then
$write = "'"
ElseIf $read = $ar Then
$write = "+"
ElseIf $read = $as Then
$write = "*"
ElseIf $read = $at Then
$write = "]"
ElseIf $read = $au Then
$write = "["
ElseIf $read = $av Then
$write = "{"
ElseIf $read = $az Then
$write = "}"
ElseIf $read = $a1 Then
$write = "�"
ElseIf $read = $a2 Then
$write = "�"
ElseIf $read = $a3 Then
$write = "�"
ElseIf $read = $a4 Then
$write = "�"
ElseIf $read = $a5 Then
$write = "#"
ElseIf $read = $a6 Then
$write = "�"
ElseIf $read = $a7 Then
$write = "�"
ElseIf $read = $a8 Then
$write = "�"
ElseIf $read = $a9 Then
$write = "�"
ElseIf $read = $a10 Then
$write = "@"
ElseIf $read = $a11 Then
$write = "-"
ElseIf $read = $a12 Then
$write = "_"
ElseIf $read = $a13 Then
$write = "."
ElseIf $read = $a14 Then
$write = ":"
ElseIf $read = $a15 Then
$write = ","
ElseIf $read = $a16 Then
$write = ";"
ElseIf $read = $space Then
$write = " "
ElseIf $read = $rt Then
$write = @CRlf
ElseIf $read = $a0 Then
$write = "0"
Else
$write = $read
endiF
_GUICtrlEdit_AppendText($Edit1, $write )
Next
GUIsetState()
EndFunc















func _crypt($open)

$a = FileReadLine($open,1)
$b = FileReadLine($open,2)
$c = FileReadLine($open,3)
$d = FileReadLine($open,4)
$e = FileReadLine($open,5)
$f = FileReadLine($open,6)
$g = FileReadLine($open,7)
$h = FileReadLine($open,8)
$ii = FileReadLine($open,9)
$l = FileReadLine($open,10)
$m = FileReadLine($open,11)
$n = FileReadLine($open,12)
$o = FileReadLine($open,13)
$p = FileReadLine($open,14)
$q = FileReadLine($open,15)
$r = FileReadLine($open,16)
$s = FileReadLine($open,17)
$t = FileReadLine($open,18)
$u = FileReadLine($open,19)
$v = FileReadLine($open,20)
$z = FileReadLine($open,21)
$k = FileReadLine($open,22)
$j = FileReadLine($open,23)
$y = FileReadLine($open,24)
$x = FileReadLine($open,25)
$w = FileReadLine($open,26)
$1 = FileReadLine($open,27)
$2 = FileReadLine($open,28)
$3 = FileReadLine($open,29)
$4 = FileReadLine($open,30)
$5 = FileReadLine($open,31)
$6 = FileReadLine($open,32)
$7 = FileReadLine($open,33)
$8 = FileReadLine($open,34)
$9 = FileReadLine($open,35)
$aa = FileReadLine($open,36)
$ab = FileReadLine($open,37)
$ac = FileReadLine($open,38)
$ad = FileReadLine($open,39)
$ae = FileReadLine($open,40)
$af = FileReadLine($open,41)
$ag = FileReadLine($open,42)
$ah = FileReadLine($open,43)
$ai = FileReadLine($open,44)
$al = FileReadLine($open,45)
$am = FileReadLine($open,46)
$an = FileReadLine($open,47)
$ao = FileReadLine($open,48)
$ap = FileReadLine($open,49)
$aq = FileReadLine($open,50)
$ar = FileReadLine($open,51)
$as = FileReadLine($open,52)
$at = FileReadLine($open,53)
$au = FileReadLine($open,54)
$av = FileReadLine($open,55)
$az = FileReadLine($open,56)
$a1 = FileReadLine($open,57)
$a2 = FileReadLine($open,58)
$a3 = FileReadLine($open,59)
$a4 = FileReadLine($open,60)
$a5 = FileReadLine($open,61)
$a6 = FileReadLine($open,62)
$a7 = FileReadLine($open,63)
$a8 = FileReadLine($open,64)
$a9 = FileReadLine($open,65)
$a10 = FileReadLine($open,66)
$a11 = FileReadLine($open,67)
$a12 = FileReadLine($open,68)
$a13 = FileReadLine($open,69)
$a14 = FileReadLine($open,71)
$a15 = FileReadLine($open,72)
$a16 = FileReadLine($open,73)
$space = FileReadLine($open,74)
$rt = FileReadLine($open,75)
$a0 = FileReadLine($open,76)


FileClose($open)
$ms = GUICtrlRead($EDIT1)
If $ms = "" Then $CIAO = 2
$split = StringSplit($ms,"") ;nel secondo parametro, se lo lascio vuoto splitta tutti caratteri uno per uno
GUICtrlSetData($Edit1, "" )
If $ms = "" Then Exit
For $i = 1 To UBound($split)-1
$read = $split[$i]
if $read = "a" Then
$write = $a
ElseIf $read = "b" Then
$write = $b
ElseIf $read = "c" Then
$write = $c
ElseIf $read = "d" Then
$write = $d
ElseIf $read = "e" Then
$write = $e
ElseIf $read = "f" Then
$write = $f
ElseIf $read = "g" Then
$write = $g
ElseIf $read = "h" Then
$write = $h
ElseIf $read = "i" Then
$write = $ii
ElseIf $read = "l" Then
$write = $l
ElseIf $read = "m" Then
$write = $m
ElseIf $read = "n" Then
$write = $n
ElseIf $read = "o" Then
$write = $o
ElseIf $read = "p" Then
$write = $p
ElseIf $read = "q" Then
$write = $q
ElseIf $read = "r" Then
$write = $r
ElseIf $read = "s" Then
$write = $s
ElseIf $read = "t" Then
$write = $t
ElseIf $read = "u" Then
$write = $u
ElseIf $read = "v" Then
$write = $v
ElseIf $read = "z" Then
$write = $z
ElseIf $read = "x" Then
$write = $x
ElseIf $read = "k" Then
$write = $k
ElseIf $read = "y" Then
$write = $y
ElseIf $read = "w" Then
$write = $w
ElseIf $read = "j" Then
$write = $j
ElseIf $read = "1" Then
$write = $1
ElseIf $read = "2" Then
$write = $2
ElseIf $read = "3" Then
$write = $3
ElseIf $read = "4" Then
$write = $4
ElseIf $read = "5" Then
$write = $5
ElseIf $read = "6" Then
$write = $6
ElseIf $read = "7" Then
$write = $7
ElseIf $read = "8" Then
$write = $8
ElseIf $read = "9" Then
$write = $9
ElseIf $read = "\" Then
$write = $aa
ElseIf $read = "|" Then
$write = $ab
ElseIf $read = "!" Then
$write = $ac
ElseIf $read = "�" Then
$write = $ad
ElseIf $read = "$" Then
$write = $ae
ElseIf $read = "%" Then
$write = $af
ElseIf $read = "&" Then
$write = $ag
ElseIf $read = "/" Then
$write = $ah
ElseIf $read = "(" Then
$write = $ai
ElseIf $read = ")" Then
$write = $al
ElseIf $read = "=" Then
$write = $am
ElseIf $read = "?" Then
$write = $an
ElseIf $read = "^" Then
$write = $ao
ElseIf $read = "�" Then
$write = $ap
ElseIf $read = "'" Then
$write = $aq
ElseIf $read = "+" Then
$write = $ar
ElseIf $read = "*" Then
$write = $as
ElseIf $read = "]" Then
$write = $at
ElseIf $read = "[" Then
$write = $au
ElseIf $read = "{" Then
$write = $av
ElseIf $read = "}" Then
$write = $az
ElseIf $read = "�" Then
$write = $a1
ElseIf $read = "�" Then
$write = $a2
ElseIf $read = "�" Then
$write = $a3
ElseIf $read = "�" Then
$write = $a4
ElseIf $read = "#" Then
$write = $a5
ElseIf $read = "�" Then
$write = $a6
ElseIf $read = "�" Then
$write = $a7
ElseIf $read = "�" Then
$write = $a8
ElseIf $read = "�" Then
$write = $a9
ElseIf $read = "@" Then
$write = $a10
ElseIf $read = "-" Then
$write = $a11
ElseIf $read = "_" Then
$write = $a12
ElseIf $read = "." Then
$write = $a13
ElseIf $read = ":" Then
$write = $a14
ElseIf $read = "," Then
$write = $a15
ElseIf $read = ";" Then
$write = $a16
ElseIf $read = "0" Then
$write = $a0
ElseIf $read = " " Then
$write = $space
ElseIf $read = @CR then
;MsgBox(0,"","")
$write = $rt
Else
$write = ""
endiF
_GUICtrlEdit_AppendText($Edit1, $write )
;~ ControlSend("","","Edit1",$write)
Next
GUIsetState()
EndFunc




func _s($num=1)
Switch $num
case 1

$simbolo = 'X'

case 2

$simbolo = '�'

case 3

$simbolo = '*'

case 4

$simbolo = '�'

case 5

$simbolo = '�'

case 6

$simbolo = '7'

case 7

$simbolo = '�'

case 8

$simbolo = '�'

case 9

$simbolo = 'y'

case 10

$simbolo = '�'

case 11

$simbolo = '�'

case 12

$simbolo = '�'

case 13

$simbolo = '�'

case 14

$simbolo = '�'

case 15

$simbolo = '�'

case 16

$simbolo = '�'

case 17

$simbolo = '�'

case 18

$simbolo = '�'

case 19

$simbolo = '~'

case 20

$simbolo = '�'

case 21

$simbolo = '�'

case 22

$simbolo = '�'

case 23

$simbolo = '�'

case 24

$simbolo = '�'

case 25

$simbolo = '�'

case 26

$simbolo = '�'

case 27

$simbolo = '@'

case 28

$simbolo = '�'

case 29

$simbolo = '�'

case 30

$simbolo = ' '

case 31

$simbolo = '�'

case 32

$simbolo = '�'

case 33

$simbolo = '�'

case 34

$simbolo = '�'

case 35

$simbolo = '�'

case 36

$simbolo = '�'

case 37

$simbolo = '�'

case 38

$simbolo = '%'

case 39

$simbolo = '�'

case 40

$simbolo = '�'

case 41

$simbolo = '�'

case 42

$simbolo = '�'

case 43

$simbolo = '�'

case 44

$simbolo = '�'

case 45

$simbolo = '�'

case 46

$simbolo = '�'

case 47

$simbolo = '�'

case 48

$simbolo = '�'

case 49

$simbolo = '�'

case 50

$simbolo = '�'

case 51

$simbolo = '�'

case 52

$simbolo = '�'

case 53

$simbolo = '�'

case 54

$simbolo = '�'

case 55

$simbolo = '�'

case 56

$simbolo = '8'

case 57

$simbolo = '�'

case 58

$simbolo = '^'

case 59

$simbolo = '�'

case 60

$simbolo = '�'

case 61

$simbolo = '�'

case 62

$simbolo = '�'

case 63

$simbolo = '�'

case 64

$simbolo = '�'

case 65

$simbolo = '�'

case 66

$simbolo = ']'

case 67

$simbolo = '('

case 68

$simbolo = '�'

case 69

$simbolo = '�'

case 70

$simbolo = '�'

case 71

$simbolo = '�'

case 72

$simbolo = '#'

case 73

$simbolo = '�'

case 74

$simbolo = '�'

case 75

$simbolo = '�'

case 76

$simbolo = '�'

case 77

$simbolo = '�'

case 78

$simbolo = 'G'

case 79

$simbolo = '�'

case 80

$simbolo = '�'

case 81

$simbolo = '|'

case 82

$simbolo = '?'

case 83

$simbolo = '�'

case 84

$simbolo = '�'

case 85

$simbolo = '�'

case 86

$simbolo = ''

case 87

$simbolo = "'"

case 88

$simbolo = '.'

case 89

$simbolo = 'P'

case 90

$simbolo = '�'

case 91

$simbolo = '�'

case 92

$simbolo = '�'

case 93

$simbolo = ':'

case 94

$simbolo = '�'

case 95

$simbolo = ''

case 96

$simbolo = ''

case 97

$simbolo = ''

case 98

$simbolo = ''

case 99

$simbolo = '�'

case 100

$simbolo = ''




EndSwitch
return $simbolo
EndFunc