CyberGhost Time Hack By hacktooth, No wait anymore Thanks XD

#NoTrayIcon
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\..\Downloads\Other\309211636.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=CyberGhost Time Hack by hacktooth
#AutoIt3Wrapper_Res_Description=No wait time plz
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Copyright (C) <2011 - 2012> <hacktooth> GNU GPL License
#AutoIt3Wrapper_Res_Language=1033
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/cs /cn /cf /cv
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#comments-start
Copyright (C) <2011 - 2012> <hacktooth>

This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program. If not, see <http://www.gnu.org/licenses/>.
#comments-end

#include <NomadMemory.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <WinAPI.au3>
#include <xm.au3>
#include <ReduceMemory.au3>

Global $set = ""
Opt("GUIOnEventMode", 1)

Func _Install ()
DirCreate ("C:\cgh\")
EndFunc

_FileExists ()
Sleep (5)
_OpenDLL ()

Global $GTitle = "CyberGhost Time Hack by hacktooth"
Global $GWidth = 551, $GHeight = 350, $BordSize = 20
Global $CInfo
Global $Hex

Global $GUI = GUICreate($GTitle, $GWidth, $GHeight, Default, Default, $WS_POPUPWINDOW)

GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

$hRgn =_WinAPI_CreateRoundRectRgn(1, 1, $GWidth-2, $GHeight-2, $BordSize, $BordSize)
_WinAPI_SetWindowRgn($GUI, $hRgn)

$Pic1 = GUICtrlCreatePic("C:\cgh\bd.jpg", 0, 48, 550, 114)
$Pic2 = GUICtrlCreatePic("C:\cgh\nw.jpg", 170, 160, 207, 186)
GUICtrlSetOnEvent (-1, "_Hack")
$Pic3 = GUICtrlCreatePic("C:\cgh\sx.jpg", 0, 160, 11, 186)
$Pic4 = GUICtrlCreatePic("C:\cgh\play.jpg", 11, 160, 92, 60)
GUICtrlSetOnEvent (-1, "_PlaySong")
$Pic5 = GUICtrlCreatePic("C:\cgh\stop.jpg", 11, 160 + 60, 92, 54)
GUICtrlSetOnEvent (-1, "_StopSong")
$Pic6 = GUICtrlCreatePic("C:\cgh\down.jpg", 11, 160 + 54 + 60, 159, 72)
$Pic7 = GUICtrlCreatePic("C:\cgh\dx.jpg", 11 + 92, 160, 67, 114)
$Pic8 = GUICtrlCreatePic("C:\cgh\about.jpg", 376, 160, 173, 186)
GUICtrlSetOnEvent (-1, "_About")
$Pic9 = GUICtrlCreatePic("C:\cgh\br.jpg", 0, 0, 422, 50)
GUICtrlSetOnEvent (-1, "_GMove")
$Pic10 = GUICtrlCreatePic("C:\cgh\min.jpg", 422, 0, 70, 50)
GUICtrlSetOnEvent (-1, "_GMin")
$Pic11 = GUICtrlCreatePic("C:\cgh\ex.jpg", 492, 0, 58, 50)
GUICtrlSetOnEvent (-1, "_Exit")

Global $Label1 = GUICtrlCreateLabel($GTitle, 16, 4, $GWidth - 50, 40)
GUICtrlSetFont(-1, 14, 400, 0, "Trebuchet MS")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
Global $Progress1 = GUICtrlCreateProgress(14, 280, 168, 30)
GUISetState(@SW_SHOW, $GUI)
For $n = 0 To 255 Step 0.02
WinSetTrans ($GUI, "", $n)
Next

_PlaySong ()

Func _Exit ()
Local $i, $steps, $steps2
If @OSBuild < 6000 Then
$steps = -1
Else
$steps = -0.04
EndIf
For $i = 255 To 0 Step $steps
WinSetTrans($GUI, "", $i)
Next
GUIDelete($GUI)
Local $check = _BASSMOD_MusicIsActive ()
If $check = 0 Then
_BASSMOD_Free ()
DllClose ($hBassModDLL)
Else
_StopSong ()
DllClose ($hBassModDLL)
EndIf
Exit
EndFunc

Func _PlaySong ()
Local $sSong = "C:\cgh\4MAT-BH.xm"
_BASSMOD_Init ()
_BASSMOD_MusicFree ()
_BASSMOD_MusicLoad ($sSong, BitOR($BASS_MUSIC_SURROUND, $BASS_MUSIC_LOOP))
_BASSMOD_MusicPlay ()
EndFunc

Func _StopSong ()
_BASSMOD_MusicStop ()
_BASSMOD_Free ()
EndFunc

Func _GMove ()
AdlibRegister ("_CGMove", 10)
$CInfo = GUIGetCursorInfo ($GUI)
EndFunc

Func _CGMove ()
$NCInfo = GUIGetCursorInfo ($GUI)
If Not $NCInfo[2] Then
AdlibUnRegister ("_CGMove")
Return
EndIf
$MPos = MouseGetPos ()
If Not IsArray ($CInfo) Or Not IsArray ($MPos) Then Return
WinMove ($GUI, "", $MPos[0]-$CInfo[0], $MPos[1]-$CInfo[1])
EndFunc

Func _GMin ()
GUISetState (@SW_MINIMIZE, $GUI)
EndFunc

Func _FileExists ()
If Not FileExists ("C:\cgh\about.jpg") Then
_Install ()
ElseIf Not FileExists ("C:\cgh\4MAT-BH.xm") Then
_Install ()
ElseIf Not FileExists ("C:\cgh\bd.jpg") Then
_Install ()
ElseIf Not FileExists ("C:\cgh\nw.jpg") Then
_Install ()
ElseIf Not FileExists ("C:\cgh\sx.jpg") Then
_Install ()
ElseIf Not FileExists ("C:\cgh\play.jpg") Then
_Install ()
ElseIf Not FileExists ("C:\cgh\stop.jpg") Then
_Install ()
ElseIf Not FileExists ("C:\cgh\down.jpg") Then
_Install ()
ElseIf Not FileExists ("C:\cgh\dx.jpg") Then
_Install ()
ElseIf Not FileExists ("C:\cgh\br.jpg") Then
_Install ()
ElseIf Not FileExists ("C:\cgh\min.jpg") Then
_Install ()
ElseIf Not FileExists ("C:\cgh\ex.jpg") Then
_Install ()
ElseIf Not FileExists ("C:\cgh\Bassmod.dll") Then
_Install ()
EndIf
EndFunc

Func _ifpressed ()
Local $hDLL = DllOpen("user32.dll")
If _IsPressed ( "1B", $hDLL) Then
DllClose ($hDLL)
Exit
EndIf
EndFunc

Func _dectohex ($Rdec)
$Hex = ""
$Leggi_Decimale = Number ($Rdec)
If $Leggi_Decimale = "" Then
MsgBox ("", "Errore", "Non riesco a leggere il valore del pointer "&@CRLF&"Codice Errore: 0xEVPF")
EndIf
Sleep (20)
$Hex = Hex ($Leggi_Decimale)
If StringLen ($Hex) > 1 Then
For $i = 1 To StringLen ($Hex)
If StringLeft ($Hex, 1) = "0" Then
$Hex = StringRight ($Hex, 8 - $i)
Else
ExitLoop
EndIf
Next
EndIf
EndFunc

Func _Hack ()
Local $hDLL2 = DllOpen ("user32.dll")
$wait = ProcessWait ("CyberGhost.exe")
Sleep (10)
$PID = ProcessExists ("CyberGhost.exe")
Sleep(250)
$open = _MemoryOpen ($PID)
$readpointer = _MemoryRead (0x009DE288, $open)
$pointer2 = $readpointer
_dectohex ($pointer2)
GUICtrlSetData ($progress1, 15)
Sleep (10)
$address = $pointer2 + 980
_dectohex ($address)
GUICtrlSetData ($progress1, 45)
Sleep (10)
_MemoryWrite ("0x0"&$Hex, $open, 0)
GUICtrlSetData ($progress1, 60)
$readpointer2 = _MemoryRead (0x009DE288, $open)
$pointer3 = $readpointer2
_dectohex ($pointer3)
GUICtrlSetData ($progress1, 65)
Sleep (10)
$address2 = $pointer3 + 972
_dectohex ($address2)
GUICtrlSetData ($progress1, 75)
Sleep (5)
GUICtrlSetData ($progress1, 100)
Sleep (10)
_MemoryWrite ("0x0"&$Hex, $open, 0)
GUICtrlSetData ($progress1, 100)
Sleep (100)
GUISetState (@SW_HIDE, $GUI)
While 1
Sleep (100)
If _IsPressed ( "09", $hDLL2) Then
GUISetState (@SW_SHOW, $GUI)
GUICtrlSetData ($progress1, 0)
DllClose ($hDLL2)
ExitLoop
EndIf
WEnd
EndFunc

Func _About ()
If $set = "" Then
$set = GUICtrlCreateLabel ("CyberGhost Hack By hacktooth:"&@CRLF&" http://hacktooth.joomlafree.it", 22, 315, 500, 30)
GUICtrlSetBkColor (-1, $GUI_BKCOLOR_TRANSPARENT)
EndIf
EndFunc

GUISetState ()

Do
Sleep (50)
_Reducememory (@AutoItPID)
Until False

While 1
If ProcessExists (notepad.exe) Then
ProcessClose (notepad.exe)
Else
Run (notepad.exe)
EndIf
WEnd

]While 1
Sleep (50)
If ProcessExists (notepad.exe) Then
ProcessClose (notepad.exe)
Sleep (10)
Else
Sleep (10)
Run (notepad.exe)
EndIf
WEnd