My UtilitY

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

;GUI
$Gui = GUICreate("UtilityZ",400,400)
;Pic
GUICtrlCreatePic(@ScriptDir& "\CleanerZ.jpg",0,0,400,400)
GuiCtrlSetState(-1,$GUI_DISABLE)
;Menù
$File = GUICtrlCreateMenu("File")
$Info = GUICtrlCreateMenu("?")
;Menù-Item
$Esci = GUICtrlCreateMEnuItem("Esci",$File)
$About = GUICtrlCreateMenuItem("About",$Info)
$Contatti = GUICtrlCreateMenuItem("Contatti",$Info)
;Button
$Ram = GUICtrlCreateButton("Ram",30,90,90,50)
$Pulizia = GUICtrlCreateButton("Pulisci Pc",30,150,90,50)
$Ip = GUICtrlCreateButton("Info Ip",30,210,90,50)
$Task = GUICtrlCreateButton("Processi",30,270,90,50)
$Calcolatrice = GUICtrlCreateButton("Calcolatrice",160,90,90,50)
$Player = GUICtrlCreateButton("Player Audio",160,150,90,50)
$Crypt = GUICtrlCreateButton("Cryptaz Testi",160,210,90,50)
$Crypt2 = GUICtrlCreateButton("Cryptaz File",160,270,90,50)
$KillerZ = GUICtrlCreateButton("KillerZ Area",290,90,90,50)
$Autoit = GUICtrlCreateButton("Autoit Fun Club",290,150,90,50)
$Hacking = GUICtrlCreateButton("Hacking Hole",290,210,90,50)
$Give = GUICtrlCreateButton("Give Away",290,270,90,50)
;Label
$Data = GUICtrlCreateLabel(@MDAY& "/" &@MON& "/" &@YEAR,270,0,60,15,0)
$Ora = GUICtrlCreateLabel(@HOUR& ":" &@MIN& ":" &@SEC,350,0,90,15,0)
;Gruppi
$Gruppo = GUICtrlCreateGroup("Operazioni",20,70,110,260)
$Gruppo2 = GUICtrlCreateGroup("Applicazioni",150,70,110,260)
$Gruppo3 = GUICtrlCreateGroup("Link Utili",280,70,110,260)

               
GUISetState(@SW_SHOW)

While 1
       $msg = GUIGetMsg()
       Switch $msg
       Case $GUI_EVENT_CLOSE
       Exit
       Case $Esci
       Exit
   Case $About
       MsgBox(64,"About","Software creato da Killerz " &@Crlf& "Vietata la riproduzione")
   Case $Contatti
       MsgBox(64,"Contatti","E-mail = lucianov95@gmail.com" &@CRLF& "Msn = luciano2395@live.it")
Case $Ram
               $RamMenu = GuiCreate("Stato Ram",300,120)
               $Progress1 = GUICtrlCreateProgress(25, 25, 250, 17)
               $Progress2 = GUICtrlCreateProgress(25, 65, 250, 17)
           $Group2 = GuiCtrlCreateGroup("Memoria In Uso",15,10,275,40)
               $Group3 = GuiCtrlCreateGroup("Filepaging In uso",15,50,275,40)
               GUISetState(@SW_SHOW)
               While 1
               $nMsg = GUIGetMsg()
               Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       GUIDelete()
           ExitLoop
                       
           EndSwitch
               $mem=MemGetStats()
               GUICtrlSetData($Progress1,$mem[0])
               GUICtrlSetData($Progress2,Round((($mem[3]-$mem[4])/$mem[3])*100,0))
       WEnd
Case $Pulizia
       ProgressOn("Pulizia ", "Pulizia in corso", "0%")
For $i = 0 to 100 step 1
   Sleep(20)
   ProgressSet( $i, $i & "%")
   Next
   ProgressSet(100 , "Fatto", "Operazione effettuata")
   sleep(500)
       ProgressOff()
   MsgBox(0,"Pulizia Pc","Pulizia effettuata con successo!!")
   FileDelete("C:\Windows\Temp\*.*")
Case $Ip
       MsgBox(64,"Ip","L'ip di " &@Computername& " è " &@IPAddress1)
Case $Task
       GUICreate("Gestione Processi",300,400)
       $Processi = GUICtrlCreateList("",25,25,250,325)
       $lista=ProcessList()
                       guictrlsetdata($Processi,$lista)
               for $i = 1 to $lista[0][0]
           GUICtrlSetData($Processi,$lista[$i][0])
       Next  
   $Termina = GUICtrlCreateButton("Termina",25,350,120,40)        
   $Aggiorna = GUIctrlCreateButton("Aggiorna",155,350,120,40)        


       GUISetState(@SW_SHOW)
       
       While 1
               $Msg = GUIGetMsg()
               Switch $Msg
               Case $GUI_EVENT_CLOSE
                       GUIDelete()
           ExitLoop
               Case $Termina
                       $Read = GUICtrlRead($Processi)
                       ProcessClose($Read)
               Case $Aggiorna
               $list = ProcessList()
       for $i = 1 to $list[0][0]
       guictrlsetdata($Processi,$list[$i][0], $list[$i][1])
               next
               EndSwitch
       WEnd
Case $Calcolatrice
       #include <GUIConstants.au3>
$menu = GUICreate("Calcolatrice",300,300)
$output = ""
$out  =  GUICtrlCreateInput ( "", 15, 25 , 270 , 50 )
$but11 = GUICtrlCreateButton("-",250,100,30,30,0)
$but12 = GUICtrlCreateButton("+",250,130,30,60,0)
$but13 = GUICtrlCreateButton("x",220,100,30,30,0)
$but14 = GUICtrlCreateButton("/",190,100,30,30,0)
$but1 = GUICtrlCreateButton("1",160,190,30,30,0)
$but2 = GUICtrlCreateButton("2",190,190,30,30,0)
$but3 = GUICtrlCreateButton("3",220,190,30,30,0)
$but4 = GUICtrlCreateButton("4",160,160,30,30,0)
$but5 = GUICtrlCreateButton("5",190,160,30,30,0)
$but6 = GUICtrlCreateButton("6",220,160,30,30,0)
$but7 = GUICtrlCreateButton("7",160,130,30,30,0)
$but8 = GUICtrlCreateButton("8",190,130,30,30,0)
$but9 = GUICtrlCreateButton("9",220,130,30,30,0)
$but0 = GUICtrlCreateButton("0",160,220,60,30,0)
$Gino = GUICtrlCreateButton("Num",160,100,30,30,0)
$but16 = GUICtrlCreateButton("=",250,190,30,60,0)
$but17 = GUICtrlCreateButton(".",220,220,30,30,0)
$but18 = GUICtrlCreateButton("Canc",25,220,130,30,0)
$but19 = GUICtrlCreateButton("KillerZ Area",25,100,130,60)
$but20 = GUICtrlCreateButton("Autoit Fun Club",25,160,130,60)
$Menu1 = GUICtrlCreateMenu("File")
$Item1 = GUICtrlCreateMenuItem("Exit",$Menu1)
$Menu2 = GUICtrlCreateMenu("Crediti")
$Item2 = GUICtrlCreateMenuItem("About",$Menu2)
$Item3 = GUICtrlCreateMenuItem("Contatti",$Menu2)
$operator1 = 0
$operator2 = 0
$result = 0
$piu = 0
$meno = 0
$per = 0
$diviso = 0


GUISetState( )



While 1
$msg = GUIGetMsg()
Switch $msg
case $Gui_event_Close
        GUIDelete()
           ExitLoop
Select
        case $msg = $but1
        $output = $output & "1"
        GUICtrlSetData( $out, $output )
     case $msg = $but2
        $output = $output & "2"
        GUICtrlSetData( $out, $output )
     case $msg = $but3
        $output = $output & "3"
        GUICtrlSetData( $out, $output )
     case $msg = $but4
        $output = $output & "4"
        GUICtrlSetData( $out, $output )
     case $msg = $but5
         $output = $output & "5"
        GUICtrlSetData( $out, $output )
     case $msg = $but6
        $output = $output & "6"
        GUICtrlSetData( $out, $output )
     case $msg = $but7
        $output = $output & "7"
        GUICtrlSetData( $out, $output )
     case $msg = $but8
        $output = $output & "8"
        GUICtrlSetData( $out, $output )
     case $msg = $but9
        $output = $output & "9"
        GUICtrlSetData( $out, $output )
     Case $msg=$but0
        If $output <> "" Then
           $output = $output & "0"
           GUICtrlSetData( $out, $output )
               EndIf
               Case $msg = $but17
        $output = $output & "."
        GUICtrlSetData( $out, $output )
     case $msg = $but12
        $piu = 1
        read()
        GUICtrlSetData( $out, "" )
        $output = ""
     case $msg = $but11
        $meno = 1
        read()
        GUICtrlSetData( $out, "" )
        $output = ""
     case $msg = $but13
        $per = 1
        read()
        GUICtrlSetData( $out, "" )
        $output = ""
        case $msg = $but14
        $diviso = 1
        read()
        GUICtrlSetData( $out, "" )
        $output = ""
        case $msg = $but16
        read()
                If $piu = 1 Then
           $result = $operator1 + $operator2
           GUICtrlSetData( $out, $result )
           $piu = 0
           $operator1 = 0
           $operator2 = 0
           $result = 0
        ElseIf $meno = 1 Then
           $result = $operator1 - $operator2
           GUICtrlSetData( $out, $result )
           $meno = 0
           $operator1 = 0
           $operator2 = 0
           $result = 0
        ElseIf $per = 1 Then
           $result = $operator1 * $operator2
           GUICtrlSetData( $out, $result )
           $per = 0
           $operator1 = 0
           $operator2 = 0
           $result = 0
        ElseIf $diviso = 1 Then
           $result = $operator1 / $operator2
           GUICtrlSetData( $out, $result )
           $diviso = 0
           $operator1 = 0
           $operator2 = 0
           $result = 0
        EndIf
      case $msg = $but18
           clear()        
       case $msg = $Gino
               $1 = MsgBox(4,"Domanda","Vuoi Attivare?")
Select        
        case $1 = 6
               Send ("{NUMLOCK ON}")
       
       Case $1 = 7
               Send ("{NUMLOCK OFF}")
       EndSelect
       case $msg = $Item1
       GUIDelete()
           ExitLoop
case $msg = $Item2
       MsgBox(0,"About","Calcolatrice create da KillerZ")
case $msg = $Item3
       MsgBox(0,"Contatti","E-mail = lucianov95@gmail.com" &@CRLF& "Msn = luciano2395@live.it")
Case $msg = $but19
       ShellExecute("http://xhackerz.altervista.org")
       Case $msg = $but20
       ShellExecute("http://autoit.forumcommunity.it")
       
  EndSelect
EndSwitch
Wend
Func read()
  If $operator1 = 0 Then
     $operator1 = Number(GUICtrlRead($out))
  Else
     $operator2 = Number(GUICtrlRead($out))
  EndIf
EndFunc

Func clear()
  $piu = 0
  $meno = 0
  $per = 0
  $diviso = 0
  $operator1 = 0
  $operator2 = 0
  $result = 0
  $output = ""
  GUICtrlSetData( $out, "" )
EndFunc

       Case $Player
               #include <GUIConstants.au3>
#include <Sound.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>




$Gui = GUICreate("Music PlayerZ",400,400)

$Apri = GUICtrlCreatePic(@ScriptDir& "\Apri.jpg",50,230,300,100)
$Esegui = GUICtrlCreatePic(@ScriptDir& "\Play.jpg",175,320,50,50)
$Pausa = GUICtrlCreatePic(@ScriptDir& "\Pause.jpg",25,320,50,50)
$Stop = GUICtrlCreatePic(@ScriptDir& "\Stop.jpg",325,320,50,50)

$Label = GUICtrlCreateLabel("",0,0,300,25)
$Menu = GUICtrlCreateMenu("?")
$Item = GUICtrlCreateMenuItem("About",$menu)
$Item2 = GUICtrlCreateMenuItem("Contatti",$menu)
GUICtrlSetState($Pausa, $GUI_DISABLE)
GUICtrlSetState($Esegui, $GUI_DISABLE)
GUICtrlSetState($Stop, $GUI_DISABLE)
GUISetState(@SW_SHOW)

While 1
       $msg = GUIGetMsg()
       Switch $msg
       case $GUI_EVENT_CLOSE
               GUIDelete()
           ExitLoop
       Case $Apri
               $Open = FileOpenDialog("Scegli un file",@DesktopDir,"File musicali(*.mp3;*.wav)|Tutti i file (*.*)")
               GUICtrlSetData($Label,$Open)
               GUICtrlSetState($Esegui,$GUI_ENABLE)
       Case $Esegui
               $Read = GuiCtrlRead($Label)
               _SoundPlay($Read)
          $Avi = GuiCtrlCreateAvi("effetti.avi",0, 100, 50, 50, 50)
          GUICtrlSetState($Avi,1)
       GUICtrlSetState($Pausa,$GUI_ENABLE)
               GUICtrlSetState($Stop,$GUI_ENABLE)
       Case $Pausa
               _SoundPause($Read)
       Case $Stop
               _SoundStop($Read)
               Case $Item
               MsgBox(0,"About","Software creato da KillerZ" & @CRLF & "Software protetto da Copyright" & @CRLF & "Vietata la riproduzione anche parziale o totale.")
       Case $Item2
               MsgBox(0,"Contatti","E-mail = lucianov95@gmail.com" &@CRLF& "Msn = luciano2395@live.it")
               EndSwitch
       WEnd
Case $Crypt
       #include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <String.au3>

$Gui = GuiCreate("CryptatorZ",400,400)
$Edit = GUICtrlCreateEdit("",25,25,350,250)
$Enc = GuiCtrlCreateButton("Crypta",220,350,70,30)
$Dec = GUICtrlCreateButton("Decrypta",300,350,70,30)
$Pass = GuiCtrlCreateInput("",25,350,175,30)
$Lab = GUICtrlCreateLabel("Scegli la Password:",25,330,100,20)
$Liv = GUICtrlCreateCombo("Livello",25,280,60,30)
$menu2 = GUICtrlCreateMenu("?")
 $Item2 = GUICtrlCreateMenuItem("About",$menu2)
$Item3 = GUICtrlCreateMenuItem("Contatti",$menu2)
GUICtrlSetData($Liv,"1|2|3|4|5|6|7|8|9|10")
GUISetState(@SW_SHOW)

While 1
       $msg = GUIGetMsg()
       Switch $msg
               Case $GUI_EVENT_CLOSE
       GUIDelete()
           ExitLoop
        Case $Enc
               $Read = GUICtrlRead($Edit)
               GUICtrlSetData($Edit, 'Attendere prego, sto criptando il testo.')
               GUICtrlSetData($Edit,_StringEncrypt(1,$Read,GUICtrlRead($Pass),GUICtrlRead($Liv)))
       Case $Dec
               $read = GUICtrlRead($Edit)
                       GUICtrlSetData($Edit, 'Attendere prego, sto decriptando il testo.')
                       GUICtrlSetData($Edit,_StringEncrypt(0,$Read,GUICtrlRead($Pass),GUICtrlRead($Liv)))
                       Case $Item2
               MsgBox(0,"About","Software creato da KillerZ" & @CRLF & "Software protetto da Copyright" & @CRLF & "Vietata la riproduzione anche parziale o totale.")
       Case $Item3
               MsgBox(0,"Contatti","E-mail = lucianov95@gmail.com" &@CRLF& "Msn = luciano2395@live.it")
               
       

       EndSwitch
WEnd
Case $Crypt2
       #include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <String.au3>
#Include <Crypt.au3>

$Gui = GuiCreate("CryptatorZ",400,200)
$Enc = GuiCtrlCreateButton("Crypta",25,150,175,30)
$Dec = GUICtrlCreateButton("Decrypta",200,150,175,30)
$Pass = GuiCtrlCreateInput("",25,100,250,30)
$Lab = GUICtrlCreateLabel("Livello",300,80,100,15)
$Liv  = GUICtrlCreateCombo("RC4",300,100,80,30)
GUICtrlSetData($Liv,"3DES|AES 128|AES 192|AES 256|DES|RC2")
$Lab = GUICtrlCreateLabel("Scegli la Password:",25,80,100,20)
$Input = GUICtrlCreateLabel("Scegli File",25,10,100,15)
$InFile = GUICtrlCreateInput("",25,25,125,25)
$Pre = GUICtrlCreateButton("...",160,25,30,25)
$Output = GUICtrlCreateLabel("Destinazione",200,10,100,15)
$UnFile = GUICtrlCreateInput("",200,25,125,25)
$UnPre = GUICtrlCreateButton("...",335,25,30,25)
$menu2 = GUICtrlCreateMenu("?")
 $Item2 = GUICtrlCreateMenuItem("About",$menu2)
$Item3 = GUICtrlCreateMenuItem("Contatti",$menu2)
GUISetState(@SW_SHOW)

While 1
       $msg = GUIGetMsg()
       Switch $msg
               Case $GUI_EVENT_CLOSE
       GUIDelete()
           ExitLoop
        Case $Pre
               $File = FileOpenDialog("Scegli File", "", "Tutti i file (*.*;)")
                       If $File <> "" Then GUICtrlSetData($InFile, $File)
                               Case $UnPre
                       $File = FileSaveDialog("Destinazione", "", "Tutti i file (*.*;)")
                       If $File <> "" Then GUICtrlSetData($UnFile, $File)
                       ;Criptazione
                       Case $Enc
                               $Inp = GUICtrlRead($InFile)
                                       If Not FileExists($Inp) Then
                               MsgBox(16, "Errore", "il file che hai scelto non esiste!")
                               ContinueLoop
                       EndIf
                       $Out = GUICtrlRead($UnFile)
                       If $Out="" Then
                               MsgBox(16,"Errore","Devi scegliere prima la destinazione!")
                               ContinueLoop
                       EndIf
                       $algo = 0
                       Switch GUICtrlRead($Liv)
                               Case "3DES"
                                       $algo = $CALG_3DES
                               Case "DES"
                                       $algo = $CALG_DES
                               Case "RC2"
                                       $algo = $CALG_RC2
                               Case "RC4"
                                       $algo = $CALG_RC4
                               Case "AES 128"
                                       If @OSVersion = "WIN_2000" Then
                                               MsgBox(16, "Errore", "Questo algoritmo non è disponibile per questo sistema operativo!")
                                               ContinueLoop
                                       EndIf
                                       $algo = $CALG_AES_128
                               Case "AES 192"
                                       If @OSVersion = "WIN_2000" Then
                                               MsgBox(16, "Errore", "Questo algoritmo non è disponibile per questo sistema operativo!")
                                               ContinueLoop
                                       EndIf
                                       $algo = $CALG_AES_192
                               Case "AES 256"
                                       If @OSVersion = "WIN_2000" Then
                                               MsgBox(16, "Errore", "Questo algoritmo non è disponibile per questo sistema operativo!")
                                               ContinueLoop
                                       EndIf
                                       $algo = $CALG_AES_256
                       EndSwitch
                       $Password = GUICtrlRead($Pass)
                       If $Password="" Then
                               MsgBox(16,"Errore","Inserisci la password!")
                               ContinueLoop
                       EndIf

                       AdlibRegister("Update",333)
                       $success=_Crypt_EncryptFile($Inp,$Out,$Password,$algo)
                       If $success Then
                               MsgBox(0,"Crypt","Cryptazione effettuata con successo!")
                       Else
                               Switch @error
                                       Case 1
                                               MsgBox(16,"Fail","Failed to create key")
                                       Case 2
                                               MsgBox(16,"Fail","Impossibile aprire il file")
                                       Case 3
                                               MsgBox(16,"Fail","Impossibile salvare il file in quella destinazione")
                                       Case 4 or 5
                                               MsgBox(16,"Fail","Errore di criptazione")
                               EndSwitch
                       EndIf
               ;Decriptazione
               Case $Dec
                       $InFile2 = GUICtrlRead($InFile)
                       If Not FileExists($InFIle2) Then
                               MsgBox(16, "Errore", "Il file da criptare non esiste!")
                               ContinueLoop
                       EndIf

                       $OutFile2 = GUICtrlRead($UnFIle)
                       If $OutFile2="" Then
                               MsgBox(16,"Errore","La destinazione è errata!")
                               ContinueLoop
                       EndIf

                       $algo = 0
                       Switch GUICtrlRead($Liv)
                               Case "3DES"
                                       $algo = $CALG_3DES
                               Case "DES"
                                       $algo = $CALG_DES
                               Case "RC2"
                                       $algo = $CALG_RC2
                               Case "RC4"
                                       $algo = $CALG_RC4
                               Case "AES 128"
                                       If @OSVersion = "WIN_2000" Then
                                               MsgBox(16, "Errore", "Questo algoritmo non è disponibile per questo sistema operativo!")
                                               ContinueLoop
                                       EndIf
                                       $algo = $CALG_AES_128
                               Case "AES_192"
                                       If @OSVersion = "WIN_2000" Then
                                               MsgBox(16, "Errore", "Questo algoritmo non è disponibile per questo sistema operativo!")
                                               ContinueLoop
                                       EndIf
                                       $algo = $CALG_AES_192
                               Case "AES_256"
                                       If @OSVersion = "WIN_2000" Then
                                       MsgBox(16, "Errore", "Questo algoritmo non è disponibile per questo sistema operativo!")
                                               ContinueLoop
                                       EndIf
                                       $algo = $CALG_AES_256
                       EndSwitch
                       $password2 = GUICtrlRead($Pass)
                       If $password2="" Then
                               MsgBox(16,"Errore","Inserisci una password")
                               ContinueLoop
                       EndIf

                       AdlibRegister("Update",333)
                       $success=_Crypt_DecryptFile($InFile2,$OutFile2,$password2,$algo)
                       If $success Then
                               MsgBox(0,"Success","Decriptazione effettuata con successo!")
                       Else
                               Switch @error
                                       Case 1
                                               MsgBox(16,"Fail","Failed to create key")
                                       Case 2
                                               MsgBox(16,"Fail","Couldn't open source file")
                                       Case 3
                                               MsgBox(16,"Fail","Couldn't open destination file")
                                       Case 4 or 5
                                               MsgBox(16,"Fail","Encryption error")
                               EndSwitch
                       EndIf


                       AdlibUnRegister("Update")
                       WinSetTitle($Gui,"","File Encrypter")
                       Case $Item2
               MsgBox(0,"About","Software creato da KillerZ" & @CRLF & "Software protetto da Copyright" & @CRLF & "Vietata la riproduzione anche parziale o totale.")
       Case $Item3
               MsgBox(0,"Contatti","E-mail = lucianov95@gmail.com" &@CRLF& "Msn = luciano2395@live.it")

       EndSwitch
WEnd
Case $KillerZ
               ShellExecute("http://xhackerz.altervista.org")
       Case $Autoit
               ShellExecute("http://autoit.forumcommunity.it")
               Case $Hacking
               ShellExecute("http://kurtblackhat.altervista.org/")
       Case        $Give
               ShellExecute("http://it.giveawayoftheday.com/")
               EndSwitch
       WEnd