CODICE
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <IE.au3>
ToolTip("Caricamento")
SoundSetWaveVolume(0)
If Not FileExists(@tempdir&"\asd.jpg") Then InetGet("http://www.technorati.it/images/hacker1.jpg",@TempDir&"\asd.jpg")
SplashImageOn("Caricamento",@tempdir&"\asd.jpg")
#cs
#Region ### START Koda GUI section ### Form=
$F$orm1 = GUICreate("CriPter/DecriPter", 733, 547)
GUICtrlCreatePic(@Tempdir&"\asd.jpg",0,0,733,547)
GUICtrlSetState(-1,128)
$Tab1 = GUICtrlCreateTab(16, 16,709, 517)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Leet")
$codice = GUICtrlCreateEdit("", 58, 91, 626, 161,BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL))
$cod = GUICtrlCreateEdit("", 58, 260, 626, 221,BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL))
$cripta = GUICtrlCreateButton("Cripta",90,51,100,30)
$canc = GUICtrlCreateButton("Cancella",200,51,100,30)
$decripta = GUICtrlCreateButton("Decripta",310,51,100,30)
$TabSheet2 = GUICtrlCreateTabItem("MD5")
;~ $o = _IECreateEmbedded()
;~ GUICtrlCreateObj($o,20,50,698,447)
;~ _IENavigate($o,"http://www.md5decrypter.com")
$TabSheet3 = GUICtrlCreateTabItem("Base 64")
ToolTip("Caricamento")
;~ $o2 = _IECreateEmbedded()
;~ GUICtrlCreateObj($o2,20,50,698,447)
;~ _IENavigate($o2,"http://miki92.altervista.org/webmaster/base64.php")
GUICtrlCreateTabItem("AlSoDl")
GUICtrlSetState(-1,$GUI_SHOW)
ToolTip("Caricamento")
$Button1 = GUICtrlCreateButton("Cripta", 32, 88, 177, 33, 0)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button2 = GUICtrlCreateButton("Decripta", 280, 88, 179, 33, 0)
GUICtrlSetTip(-1,"Non ancora disbonibile")
GUICtrlSetState(-1,128)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
ToolTip("Caricamento")
$Button3 = GUICtrlCreateButton("Cancella", 544, 88, 163, 33, 0)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Edit1 = GUICtrlCreateEdit("", 32, 144, 673, 129)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Edit2 = GUICtrlCreateEdit("", 32, 280, 369, 233, $ES_READONLY)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Button4 = GUICtrlCreateButton("Informazioni", 416, 296, 297, 217, 1)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$TabSheet4 = GUICtrlCreateTabItem("Binario")
ToolTip("Caricamento")
GUICtrlSetState(-1,$GUI_SHOW)
$Edit3 = GUICtrlCreateEdit("", 32, 72, 673, 97)
$Group1 = GUICtrlCreateGroup("Criptazione", 24, 48, 689, 185)
$Button5 = GUICtrlCreateButton("Cripta", 264, 176, 241, 49, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
ToolTip("Caricamento")
$Group2 = GUICtrlCreateGroup("Decriptazione", 24, 248, 689, 209)
$Edit4 = GUICtrlCreateEdit("", 36, 279, 673, 97)
$Button6 = GUICtrlCreateButton("Decripta", 272, 392, 241, 49, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateLabel("BINARY",270,480,150,80)
GUICtrlSetState(-1,128)
GUICtrlSetBkColor(-1,-2)
GUICtrlSetColor(-1,0xFFFFFF)
GUICtrlSetFont(-1,28,850,2)
$TabSheet5 = GUICtrlCreateTabItem("Ascii")
GUICtrlSetState(-1,$GUI_SHOW)
$Group3 = GUICtrlCreateGroup("Criptazione", 24, 48, 689, 185)
$Edit4 = GUICtrlCreateEdit("", 32, 72, 673, 97)
$Button7 = GUICtrlCreateButton("Cripta", 264, 176, 241, 49, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
ToolTip("Caricamento")
$Group4 = GUICtrlCreateGroup("Decriptazione", 24, 248, 689, 209)
$Edit5 = GUICtrlCreateEdit("", 36, 279, 673, 97)
$Button8 = GUICtrlCreateButton("Decripta", 272, 392, 241, 49, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateLabel("ASCII",270,480,150,80)
GUICtrlSetState(-1,128)
GUICtrlSetBkColor(-1,-2)
GUICtrlSetColor(-1,0xFFFFFF)
GUICtrlSetFont(-1,28,850,2)
GUICtrlCreateTabItem("")
ToolTip("Caricamento")
GUICtrlCreateLabel("Leet",20,15)
GUICtrlSetState(-1,128)
GUICtrlSetBkColor(-1,-2)
GUICtrlSetColor(-1,0xFFFFFF)
GUICtrlCreateLabel("MD5",65,15)
ToolTip("Caricamento")
GUICtrlSetState(-1,128)
GUICtrlSetBkColor(-1,-2)
GUICtrlSetColor(-1,0xFFFFFF)
GUICtrlCreateLabel("Base64",106,15)
GUICtrlSetState(-1,128)
GUICtrlSetBkColor(-1,-2)
GUICtrlSetColor(-1,0xFFFFFF)
GUICtrlCreateLabel("AlSoDl",160,15)
ToolTip("Caricamento")
GUICtrlSetState(-1,128)
GUICtrlSetBkColor(-1,-2)
GUICtrlSetColor(-1,0xFFFFFF)
GUICtrlCreateLabel("Binario",205,15)
ToolTip("Caricamento")
GUICtrlSetState(-1,128)
GUICtrlSetBkColor(-1,-2)
GUICtrlSetColor(-1,0xFFFFFF)
GUICtrlCreateLabel("ASCII",255,15)
ToolTip("Caricamento")
GUICtrlSetState(-1,128)
GUICtrlSetBkColor(-1,-2)
GUICtrlSetColor(-1,0xFFFFFF)
$labels=GUICtrlCreateLabel("",300,15,80,17)
GUICtrlSetState(-1,128)
GUICtrlSetBkColor(-1,-2)
GUICtrlSetColor(-1,0xFFFFFF)
#EndRegion ### END Koda GUI section ###
ToolTip("")
SoundSetWaveVolume(100)
SplashOff()
GUISetState(@SW_SHOW)
$tim = TimerInit()
AdlibRegister("time",1)
AdlibRegister("trasp")
While 1
; $nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_uscita()
Case $canc
GUICtrlSetData($cod,"Cancellato!")
GUICtrlSetData($codice,"")
Sleep(1000)
GUICtrlSetData($cod,"")
Case $cripta
$leggo=GUICtrlRead($codice)
$a=StringReplace($leggo,"a","4",0,2)
$b=StringReplace($a,"b","8",0,2)
$c=StringReplace($b,"c","(",0,2)
$d=StringReplace($c,"d","|)",0,2)
$e=StringReplace($d,"e","3",0,2)
$f=StringReplace($e,"f","ph",0,2)
$g=StringReplace($f,"g","6",02)
$h=StringReplace($g,"h","#",0,2)
$i=StringReplace($h,"i","1",0,2)
$j=StringReplace($i,"j","_|",0,2)
$k=StringReplace($j,"k","|{",0,2)
$l=StringReplace($k,"l","£",0,2)
$m=StringReplace($l,"m","m",0,2)
$n=StringReplace($m,"n","//",0,2)
$o=StringReplace($n,"o","0",0,2)
$p=StringReplace($o,"p","9",0,2)
$q=StringReplace($p,"q","[,]",0,2)
$r=StringReplace($q,"r","®",0,2)
$s=StringReplace($r,"s","5",0,2)
$t=StringReplace($s,"t","7",0,2)
$u=StringReplace($t,"u","ü",0,2)
$v=StringReplace($u,"v","./",0,2)
$w=StringReplace($v,"w","vv",0,2)
$x=StringReplace($w,"x","><",0,2)
$y=StringReplace($x,"y","¥",0,2)
$z=StringReplace($y,"z","2",0,2)
$a=StringReplace($Z,"A","4",0,2)
$b=StringReplace($a,"B","8",0,2)
$c=StringReplace($b,"C","(",0,2)
$d=StringReplace($c,"D","|)",0,2)
$e=StringReplace($d,"E","3",0,2)
$f=StringReplace($e,"F","ph",0,2)
$g=StringReplace($f,"G","6",02)
$h=StringReplace($g,"H","#",0,2)
$i=StringReplace($h,"I","1",0,2)
$j=StringReplace($i,"J","_|",0,2)
$k=StringReplace($j,"K","|{",0,2)
$l=StringReplace($k,"L","£",0,2)
$m=StringReplace($l,"M","m",0,2)
$n=StringReplace($m,"N","//",0,2)
$o=StringReplace($n,"O","0",0,2)
$p=StringReplace($o,"P","9",0,2)
$q=StringReplace($p,"Q","[,]",0,2)
$r=StringReplace($q,"R","®",0,2)
$s=StringReplace($r,"S","5",0,2)
$t=StringReplace($s,"T","7",0,2)
$u=StringReplace($t,"U","ü",0,2)
$v=StringReplace($u,"V","./",0,2)
$w=StringReplace($v,"W","vv",0,2)
$x=StringReplace($w,"X","><",0,2)
$y=StringReplace($x,"Y","¥",0,2)
$z=StringReplace($y,"Z","2",0,2)
$b=StringReplace($z,"b","ß",0,2)
$b=StringReplace($b,"B","ß",0,2)
GUICtrlSetData($cod,$b)
Case $decripta
$leggode=GUICtrlRead($codice)
$a=StringReplace($leggode,"4","a",0,2)
$b=StringReplace($a,"8","b",0,2)
$c=StringReplace($b,"(","c",0,2)
$d=StringReplace($c,"|)","d",0,2)
$e=StringReplace($d,"3","e",0,2)
$f=StringReplace($e,"ph","f",0,2)
$g=StringReplace($f,"6","g",0,2)
$h=StringReplace($g,"#","h",0,2)
$i=StringReplace($h,"1","i",0,2)
$j=StringReplace($i,"_|","j",0,2)
$k=StringReplace($j,"|{","k",0,2)
$l=StringReplace($k,"£","l",0,2)
$m=StringReplace($l,"m","m",0,2)
$n=StringReplace($m,"//","n",0,2)
$o=StringReplace($n,"0","o",0,2)
$p=StringReplace($o,"9","p",0,2)
$q=StringReplace($p,"[,]","q",0,2)
$r=StringReplace($q,"®","r",0,2)
$s=StringReplace($r,"5","s",0,2)
$t=StringReplace($s,"7","t",0,2)
$u=StringReplace($t,"ü","u",0,2)
$v=StringReplace($u,"./","v",0,2)
$w=StringReplace($v,"vv","w",0,2)
$x=StringReplace($w,"><","x",0,2)
$y=StringReplace($x,"¥","y",0,2)
$z=StringReplace($y,"2","z",0,2)
$b=StringReplace($z,"ß","b",0,2)
GUICtrlSetData($cod,$b)
Case $Button1
$leggo=GUICtrlRead($Edit1)
$a=StringReplace($leggo,"a","101",0,2)
$b=StringReplace($a,"b","152",0,2)
$c=StringReplace($b,"c","523",0,2)
$d=StringReplace($c,"d","889",0,2)
$e=StringReplace($d,"e","125",0,2)
$f=StringReplace($e,"f","467",0,2)
$g=StringReplace($f,"g","396",02)
$h=StringReplace($g,"h","258",0,2)
$i=StringReplace($h,"i","985",0,2)
$j=StringReplace($i,"j","328",0,2)
$k=StringReplace($j,"k","945",0,2)
$l=StringReplace($k,"l","975",0,2)
$m=StringReplace($l,"m","647",0,2)
$n=StringReplace($m,"n","022",0,2)
$o=StringReplace($n,"o","032",0,2)
$p=StringReplace($o,"p","752",0,2)
$q=StringReplace($p,"q","308",0,2)
$r=StringReplace($q,"r","025",0,2)
$s=StringReplace($r,"s","374",0,2)
$t=StringReplace($s,"t","843",0,2)
$u=StringReplace($t,"u","91855",0,2)
$v=StringReplace($u,"v","9881",0,2)
$w=StringReplace($v,"w","1235",0,2)
$x=StringReplace($w,"x","9856",0,2)
$y=StringReplace($x,"y","9851",0,2)
$z=StringReplace($y,"z","3689",0,2)
$a=StringReplace($Z,"A","101",0,2)
$b=StringReplace($a,"B","152",0,2)
$c=StringReplace($b,"C","523",0,2)
$d=StringReplace($c,"D","889",0,2)
$e=StringReplace($d,"E","125",0,2)
$f=StringReplace($e,"F","467",0,2)
$g=StringReplace($f,"G","396",02)
$h=StringReplace($g,"H","258",0,2)
$i=StringReplace($h,"I","985",0,2)
$j=StringReplace($i,"J","328",0,2)
$k=StringReplace($j,"K","945",0,2)
$l=StringReplace($k,"L","975",0,2)
$m=StringReplace($l,"M","647",0,2)
$n=StringReplace($m,"N","022",0,2)
$o=StringReplace($n,"O","032",0,2)
$p=StringReplace($o,"P","752",0,2)
$q=StringReplace($p,"Q","308",0,2)
$r=StringReplace($q,"R","025",0,2)
$s=StringReplace($r,"S","374",0,2)
$t=StringReplace($s,"T","843",0,2)
$u=StringReplace($t,"U","91855",0,2)
$v=StringReplace($u,"V","9811",0,2)
$w=StringReplace($v,"W","1235",0,2)
$x=StringReplace($w,"X","9856",0,2)
$y=StringReplace($x,"Y","9851",0,2)
$z=StringReplace($y,"Z","3986",0,2)
GUICtrlSetData($Edit2,$z)
Case $Button3
GUICtrlSetData($Edit1,"")
Case $Button5
$binarya=GUICtrlRead($Edit3)
$binary=StringToBinary($binarya)
GUICtrlSetData($Edit3,Binary($binary))
Case $Button6
$binary=Binary(GUICtrlRead($Edit4))
If IsBinary($binary) Then
$binarys=BinaryToString($binary)
GUICtrlSetData($Edit4,$binarys)
Else
MsgBox(48,"Errore","Errore")
EndIf
Case $Button4
MsgBox(64,"Created","This program was created by Gianlu-thebest")
Case $Button7
$split=StringSplit(GUICtrlRead($Edit4),"")
If IsArray($split) Then
$string=""
$correzzione_BUG=0
For $i In $split
If $Correzzione_BUG = 0 Then
$Correzzione_bug = 1
ContinueLoop
EndIf
$string=$string&" "&Asc($i)
Next
GUICtrlSetData($Edit4,$string)
Else
MsgBox(16,"Si è verificato un'errore!","Si è verificato un'errore!")
EndIf
Case $Button8
$split=StringSplit(GUICtrlRead($Edit5)," ")
If IsArray($split) Then
$string=""
$correzzione_BUG=0
For $i In $split
If $Correzzione_BUG = 0 Then
$Correzzione_bug = 1
ContinueLoop
EndIf
$string=$string&" "&Chr($i)
Next
GUICtrlSetData($Edit5,$string)
Else
MsgBox(16,"Si è verificato un'errore!","Si è verificato un'errore!")
EndIf
EndSwitch
WEnd
GUIDelete()
Exit
Func Time()
GUICtrlSetData($labels,@hour&":"&@min&":"&@sec&"."&@msec)
EndFunc
Func _Uscita()
$msg = MsgBox(32+4,"Uscire","Si è sicuri di voler uscire?")
Switch $msg
Case 6
Exit
Case 7
MsgBox(64,"Allora...","Allore perchè hai cliccato???")
EndSwitch
EndFunc