[multi cheat] poke hack: inject
voila je viens de finir un cheat très sommaire qui a la particularité de fonction a l'aide de macro (je posterais la source plus tard mais le nombre incommensurable de assign empêche l'obfuscation du script donc vous êtes prévenu)
alors rapidement voila comment envoyer une commande au programme:
/w le_nom_de_votre_perso commande argument
liste des commande de macro disponible:
fly
argument: 1 pour activer et 0 pour désactiver
speed
argument: nouvelle vitesse
freezeZ
argument: 1 pour activer et 0 pour désactiver
clic2tp
argument: 1 pour activer et 0 pour désactiver
gocorps
argument: 1 pour y aller, tout le reste ne fait rien
getpos
argument: soit clip pour enregistrer votre position dans le presse papier, soit un nom de variable pour l'enregistrer dans une variable (si elle n'existe pas elle sera crée)
info supplémentaire: en plus tant que end n'est pas appelé votre position actuel sera affiché dans le chat
teleport
argument: soit clip pour récupérer la position dans le presse papier soit un nom de variable que vous avez rempli avec getpos soit une position XYZ de la forme X,Y,Z
wallclimb
argument: 1 pour activer et 0 pour désactiver
track
argument: l'id a traquer (si vous mettez 9999999 vous traquerez tout)
HDwow:
argument: 1 pour activer et 0 pour désactiver attention HDwow est réservé aux PC assez puissant les plus faible clamserons avant d'avoir le temps de dire ouf
exit:
argument: aucun cette commande fermera poke hack: inject
end:
argument: aucun les action s'effectue tant que end n'est pas rencontrer donc mettez le a la fin de chaque macro
master:
argument: nom du maitre n'utilisez pas cette fonction a la légère! master va donner le droit a un personnage de votre choix d'activer le cheat a distance en vous whispant les instruction (astuce: pour définir votre cible comme maître faite /w nom_de_votre_personnage master %t )
bouton in game:
j'ai défini seulement un bouton in game: quand vous cliquez sur le portrait de votre personnage les info du cheat s'affichent dans le chat
source code:
#include
#include
#include
#include
#include "Asm.au3"
#include
#include "_Distorm.au3"
Opt("MouseCoordMode", 0)
Global Const $STUB_DATA_SIZE = 4096
Global Const $DX_DEVICE = 0x00C5DF88
Global Const $DX_DEVICE_IDX = 0x397C
Global Const $ENDSCENE_IDX = 0xA8
Global Const $StaticClientConnection = 0x00C79CE0
Global Const $MgrOffset = 0x2ED0
Global Const $lua_dostring = 0x00819210
Global Const $lua_register = 0x00817F90
Global Const $lua_gettop = 0x0084DBD0
Global Const $lua_tostring = 0x0084E0E0
Global Const $StaticPlayer = 0x00CD87A8
Global Const $UnlockLUA = 0x005191D2
Global Const $Version = "3.3.5"
Global $wowhandle, $chat[60], $clic2tp, $mes, $oldr
Func IsEmptyCC($sig) ;extends comparator
$size = HookJump_GetSize(0)
If IsNumber($sig) And $sig == 0 Then
Return $size
EndIf
$cc_arr = StringSplit(Hex($sig), "CC", 1)
If $cc_arr[0] == $size + 1 Then
Return True;
Else
Return False
EndIf
EndFunc ;==>IsEmptyCC
Func IsHookJump($sig) ;extends comparator
If IsNumber($sig) And $sig == 0 Then
Return HookJump_GetSize($sig)
EndIf
return (Hex(BinaryMid($sig, 1, 1)) == "68" And _
Hex(BinaryMid($sig, 6, 1)) == "C3" And Hex(BinaryMid($sig, 7, 1)) == "90")
EndFunc ;==>IsHookJump
Func LuaRegister($wowprocess, $cb_name, $cb_func)
$t_data = "dword dwAddress;" & _ ; $lua_register
"char szAddressType[12];" & _ ; cdecl
"dword dwParamCount;" & _ ; 2
"dword dwParam1;" & _ ; offset $cb_name
"dword dwParam2;" & _ ; $cb_func
"char szParam1[64];" ; $cb_name
$data = DllStructCreate($t_data)
DllStructSetData($data, "dwFlag", 1)
DllStructSetData($data, "dwParamCount", 2)
DllStructSetData($data, "dwAddress", $lua_register)
DllStructSetData($data, "szAddressType", "cdecl")
DllStructSetData($data, "dwParam1", DllStructGetPtr($data, "szParam1"))
DllStructSetData($data, "dwParam2", $cb_func)
DllStructSetData($data, "szParam1", $cb_name)
Return EndScene_CallFunction($wowprocess, $data)
EndFunc ;==>LuaRegister
Func STUB_LuaRegisterCallback()
$Asm = AsmInit()
AsmReset($Asm)
Local Const $dwLuaState = "ebp + 20h + 8"
AsmAdd($Asm, "pushad")
AsmAdd($Asm, "push ebp")
AsmAdd($Asm, "mov ebp, esp")
AsmAdd($Asm, "push dword [" & $dwLuaState & "]") ; luastate*
AsmAdd($Asm, "mov eax, " & Hex($lua_gettop) & "h")
AsmAdd($Asm, "call eax")
AsmAdd($Asm, "add esp, 4")
AsmAdd($Asm, "or eax, eax")
AsmAdd($Asm, "jz $+35") ; exit
AsmAdd($Asm, "push 0")
AsmAdd($Asm, "push eax")
AsmAdd($Asm, "push dword [" & $dwLuaState & "]") ; luastate*
AsmAdd($Asm, "mov eax, " & Hex($lua_tostring) & "h")
AsmAdd($Asm, "call eax")
AsmAdd($Asm, "add esp, 0Ch")
AsmAdd($Asm, "or eax, eax")
AsmAdd($Asm, "jz $+17") ; exit
AsmAdd($Asm, "push 0")
AsmAdd($Asm, "push eax")
AsmAdd($Asm, "push eax")
AsmAdd($Asm, "mov eax, " & Hex($lua_dostring) & "h")
AsmAdd($Asm, "call eax")
AsmAdd($Asm, "add esp, 0Ch")
AsmAdd($Asm, "exit:")
AsmAdd($Asm, "mov esp, ebp")
AsmAdd($Asm, "pop ebp")
AsmAdd($Asm, "popad")
AsmAdd($Asm, "xor eax, eax")
AsmAdd($Asm, "ret")
Return $Asm
EndFunc ;==>STUB_LuaRegisterCallback
Func DoString($wowprocess, $cmd, $file = $cmd, $unk = 0)
$t_data = "dword dwAddress;" & _ ; $lua_dostring
"char szAddressType[12];" & _ ; cdecl
"dword dwParamCount;" & _ ; 3
"dword dwParam1;" & _ ; offset $cmd
"dword dwParam2;" & _ ; offset $file
"dword dwParam3;" & _ ; $unk
"char szParam1[512];" & _ ; $cmd
"char szParam2[512];" ; $file
$data = DllStructCreate($t_data)
DllStructSetData($data, "dwAddress", $lua_dostring)
DllStructSetData($data, "szAddressType", "cdecl")
DllStructSetData($data, "dwParamCount", 3)
DllStructSetData($data, "dwParam1", DllStructGetPtr($data, "szParam1"))
DllStructSetData($data, "dwParam2", DllStructGetPtr($data, "szParam2"))
DllStructSetData($data, "dwParam3", $unk)
DllStructSetData($data, "szParam1", $cmd)
DllStructSetData($data, "szParam2", $file)
Return EndScene_CallFunction($wowprocess, $data)
EndFunc ;==>DoString
Func AsmSize($Asm)
Return $Asm[2]
EndFunc ;==>AsmSize
Func EndScene_CallFunction($wowprocess, $data)
$pEndScene = EndScene_GetAddress($wowprocess)
$pEndSceneHook = HookJump_GetAddress($wowprocess, $pEndScene)
If $pEndSceneHook == 0 Then
$stubEndSceneHook = STUB_EndSceneHook()
$pEndSceneHook = Function_Inject($wowprocess, $stubEndSceneHook)
Function_Hook($wowprocess, $pEndScene, $pEndSceneHook, AsmSize($stubEndSceneHook))
EndIf
$data_area = $pEndSceneHook + EndScene_GetHookSize($wowprocess, $pEndSceneHook)
$t_cmd = "dword dwRetVal;" & _ ; function return value
"dword dwFlag;" ; 1=call function 0=ready to call
$cmd = DllStructCreate($t_cmd)
$cmd_size = DllStructGetSize($cmd)
$p_data = DllStructGetPtr($data)
$param_count = DllStructGetData($data, "dwParamCount")
For $i = 1 To $param_count
$dwParamX = DllStructGetData($data, "dwParam" & $i)
$j = 4 + $param_count
Do
$pParamX = DllStructGetPtr($data, $j)
If @error == 0 And Hex($dwParamX) == Hex($pParamX) Then
DllStructSetData($data, "dwParam" & $i, $pParamX - $p_data + $data_area + $cmd_size)
EndIf
$j = $j + 1;
Until $pParamX == 0
Next
DllStructSetData($cmd, "dwFlag", 1)
DllCall($wowprocess[0], 'int', 'WriteProcessMemory', 'int', $wowprocess[1], 'int', $data_area + $cmd_size, 'ptr', $p_data, 'int', DllStructGetSize($data), 'int', '')
DllCall($wowprocess[0], 'int', 'WriteProcessMemory', 'int', $wowprocess[1], 'int', $data_area, 'ptr', DllStructGetPtr($cmd), 'int', $cmd_size, 'int', '')
Do
$sig = _MemoryRead($data_area, $wowprocess, "byte[8]")
$dwRetVal = DllStructSetData($cmd, "dwRetVal", "0x" & Hex(BinaryMid($sig, 1, 4)))
$dwFlag = DllStructSetData($cmd, "dwFlag", "0x" & Hex(BinaryMid($sig, 5, 4)))
Until $dwFlag == 0
Return $dwRetVal
EndFunc ;==>EndScene_CallFunction
Func EndScene_GetHookSize($wowprocess, $pEndSceneHook)
$pAddress = Function_Find($wowprocess, $pEndSceneHook, "IsHookJump")
If $pAddress <> 0 Then
return ($pAddress - $pEndSceneHook) + HookJump_GetSize($pAddress)
Else
Return 0
EndIf
EndFunc ;==>EndScene_GetHookSize
Func EndScene_GetAddress($wowprocess)
$pDevice = _MemoryRead("0x" & Hex($DX_DEVICE), $wowprocess, "dword")
$p1 = _MemoryRead($pDevice + $DX_DEVICE_IDX, $wowprocess, "dword")
$p2 = _MemoryRead($p1, $wowprocess, "dword")
$pEndScene = _MemoryRead($p2 + $ENDSCENE_IDX, $wowprocess, "dword")
Return $pEndScene
EndFunc ;==>EndScene_GetAddress
Func STUB_EndSceneHook()
$Asm = AsmInit()
AsmReset($Asm)
Local Const $dwRetVal = "ebp"
Local Const $dwFlag = "ebp + 04h"
Local Const $dwAddress = "ebp + 08h"
Local Const $szAddressType = "ebp + 0Ch"
Local Const $dwParamCount = "ebp + 18h"
Local Const $dwAddrTypeCdecl = 0x63656463 ; 'cdec'
Local Const $dwAddrTypeStdcall = 0x63647473 ; 'stdc'
Local Const $dwAddrTypeThiscall = 0x73696874 ; 'this'
AsmAdd($Asm, "pushad")
AsmAdd($Asm, "pushfd")
AsmAdd($Asm, "call $+5")
AsmAdd($Asm, "pop ebp")
AsmAdd($Asm, "add ebp, 0ACh") ; data area
AsmAdd($Asm, "cmp dword [" & $dwFlag & "], 1")
AsmAdd($Asm, "jnz $+8B") ;exit
AsmAdd($Asm, "xor eax, eax")
AsmAdd($Asm, "mov dword [" & $dwFlag & "], eax")
AsmAdd($Asm, "mov eax, fs:[2Ch]")
AsmAdd($Asm, "mov eax, [eax]")
AsmAdd($Asm, "add eax, 0x10")
AsmAdd($Asm, "mov edx, [" & Hex($StaticClientConnection) & "h]")
AsmAdd($Asm, "mov edx, [edx + " & Hex($MgrOffset) & "h]")
AsmAdd($Asm, "mov [eax], edx")
AsmAdd($Asm, "mov edx, [" & $dwParamCount & "]") ; parameter count
AsmAdd($Asm, "or edx, edx")
AsmAdd($Asm, "jz $+22") ; callf [ __stdcall/__cdecl type func( void ) ]
AsmAdd($Asm, "std")
AsmAdd($Asm, "lea esi, [edx * 4 +" & $dwParamCount & "]")
AsmAdd($Asm, "mov eax, [" & $szAddressType & "]")
AsmAdd($Asm, "cmp eax, " & Hex($dwAddrTypeThiscall) & "h")
AsmAdd($Asm, "jnz $+7") ; cycle
AsmAdd($Asm, "lodsd")
AsmAdd($Asm, "xchg eax, ecx") ; __thiscall
AsmAdd($Asm, "dec edx")
AsmAdd($Asm, "jz $+8") ; callf [ __thiscall type func( void ) ]
AsmAdd($Asm, "cycle:")
AsmAdd($Asm, "lodsd")
AsmAdd($Asm, "push eax") ; push cycle
AsmAdd($Asm, "dec edx")
AsmAdd($Asm, "jnz @cycle")
AsmAdd($Asm, "callf:")
AsmAdd($Asm, "cld") ; very important
AsmAdd($Asm, "call dword [" & $dwAddress & "]") ; call function
AsmAdd($Asm, "mov ebx, [" & $szAddressType & "]")
AsmAdd($Asm, "cmp ebx, " & Hex($dwAddrTypeCdecl) & "h")
AsmAdd($Asm, "jnz $+13") ; save_ret
AsmAdd($Asm, "mov ebx, [" & $dwParamCount & "]")
AsmAdd($Asm, "shl ebx, 2")
AsmAdd($Asm, "add esp, ebx")
AsmAdd($Asm, "save_ret:")
AsmAdd($Asm, "mov [" & $dwRetVal & "], eax")
AsmAdd($Asm, "xor eax, eax")
AsmAdd($Asm, "mov ecx, " & Hex($STUB_DATA_SIZE) & "h")
AsmAdd($Asm, "lea edi, [" & $dwFlag & "]")
AsmAdd($Asm, "rep stosb")
AsmAdd($Asm, "exit:")
AsmAdd($Asm, "popfd")
AsmAdd($Asm, "popad")
Return $Asm
EndFunc ;==>STUB_EndSceneHook
Func HookJump_Create($pAddress)
$jmp = AsmInit()
AsmAdd($jmp, "push " & Hex($pAddress) & "h")
AsmAdd($jmp, "ret")
AsmAdd($jmp, "nop")
Return $jmp
EndFunc ;==>HookJump_Create
Func HookJump_GetAddress($wowprocess, $pAddress)
$sig = _MemoryRead($pAddress, $wowprocess, "byte[8]")
If IsHookJump($sig) Then
$pHook = BitShift("0x" & Hex(BinaryMid($sig, 2, 1)), -00) + _
BitShift("0x" & Hex(BinaryMid($sig, 3, 1)), -08) + _
BitShift("0x" & Hex(BinaryMid($sig, 4, 1)), -16) + _
BitShift("0x" & Hex(BinaryMid($sig, 5, 1)), -24)
Return $pHook
EndIf
Return 0
EndFunc ;==>HookJump_GetAddress
Func HookJump_GetSize($jmp)
If IsArray($jmp) Then
Return AsmSize($jmp)
Else
Return AsmSize( HookJump_Create($jmp))
EndIf
EndFunc ;==>HookJump_GetSize
Func HookJump_Write($wowprocess, $pAdress, $jmp)
_MemoryWrite($pAdress, $wowprocess, AsmGetBinary($jmp), "byte[" & AsmSize($jmp) & "]")
EndFunc ;==>HookJump_Write
Func Function_Find($wowprocess, $f_start, $f_comp)
Local Const $MAX_FIND_RANGE = 4096
$comp_buf_size = Call($f_comp, 0)
If @error = 0xDEAD And @extended = 0xBEEF Then
Return 0
EndIf
$mem = _MemoryRead($f_start, $wowprocess, "byte[" & $MAX_FIND_RANGE & "]")
For $i = 1 To $MAX_FIND_RANGE - $comp_buf_size
$sig = BinaryMid($mem, $i, $comp_buf_size)
If Call($f_comp, $sig) == True Then
Return $f_start + ($i - 1)
EndIf
Next
Return 0
EndFunc ;==>Function_Find
Func Function_Inject($wowprocess, $stub)
$stub_size = AsmSize($stub)
$stub_mem = _MemVirtualAllocEx($wowprocess[1], 0, $stub_size + $STUB_DATA_SIZE, $MEM_COMMIT, $PAGE_EXECUTE_READWRITE)
_MemoryWrite($stub_mem, $wowprocess, AsmGetBinary($stub), "byte[" & $stub_size & "]")
Return $stub_mem
EndFunc ;==>Function_Inject
Func Function_Hook($wowprocess, $pFunc, $pHook, $dwHookSize)
Local Const $ORIG_ISTR_SIZE = 64
$orig = _MemoryRead($pFunc, $wowprocess, "byte[" & $ORIG_ISTR_SIZE & "]")
If IsHookJump($orig) Then
Return -1
EndIf
_MemoryWrite($pHook + $dwHookSize, $wowprocess, $orig, "byte[" & $ORIG_ISTR_SIZE & "]")
$orig_ptr = DllStructCreate("byte[" & $ORIG_ISTR_SIZE & "]")
DllStructSetData($orig_ptr, 1, $orig)
$jmpto = HookJump_Create($pHook)
$DecodeArray = DllStructCreate("byte[" & $sizeofDecodedInst * $ORIG_ISTR_SIZE & "]")
$ret = distorm_decode(0, DllStructGetPtr($orig_ptr), $ORIG_ISTR_SIZE, $Decode32Bits, DllStructGetPtr($DecodeArray), $ORIG_ISTR_SIZE)
$sumsize = 0
If $ret[0] == $DECRES_SUCCESS Then
For $i = 0 To $ret[1] ; number of decoded instructions
$instr = DllStructCreate($tagDecodedInst, DllStructGetPtr($DecodeArray) + ($i * $sizeofDecodedInst))
$sumsize += DllStructGetData($instr, "size")
If $sumsize >= HookJump_GetSize($jmpto) Then
$jmpback = HookJump_Create($pFunc + $sumsize)
HookJump_Write($wowprocess, $pHook + $dwHookSize + $sumsize, $jmpback)
ExitLoop
EndIf
Next
EndIf
HookJump_Write($wowprocess, $pFunc, $jmpto)
Return 0
EndFunc ;==>Function_Hook
Func readoff($cheat)
Switch $cheat
Case "fly"
Return 1999
Case "pb"
Return "13469608;52;36"
Case "wall"
Return 2136
Case "gravity"
Return 2112
Case "speed"
Return "2076;2092;2084;2068"
Case "CTMx"
Return 13242972
Case "CTMy"
Return 13242972 + 4
Case "CTMz"
Return 13242972 + 8
Case "posx"
Return 1944
Case "posy"
Return 1944 + 4
Case "posz"
Return 1944 + 8
Case "posr"
Return 1960
Case "track"
Return 10576
Case "Cx"
Return 12388944
Case "Cy"
Return 12388944 + 4
Case "Cz"
Return 12388944 + 8
Case "size"
Return 156
EndSwitch
EndFunc ;==>readoff
Func frozenattach()
_memoryclose($wowhandle)
$ptr = StringSplit(readoff("pb"), ";", 1)
Global $wowhandle = _memoryopen(ProcessExists("wow.exe"))
$pt1 = _memoryread($ptr[1], $wowhandle)
$pt2 = _memoryread($ptr[2] + $pt1, $wowhandle)
Global $pb = _memoryread($ptr[3] + $pt2, $wowhandle)
Global $wowprocess = $wowhandle
EndFunc ;==>frozenattach
;~ func frozenattach()
;~ If $ID_WOW <> "" Then
;~ $pb = returnPB()
;~ EndIf
;~ EndFunc
Func fly($offset, $action = True)
If $action = 1 Then
_memorywrite($pb + $offset, $wowhandle, 131, "int")
Else
_memorywrite($pb + $offset, $wowhandle, 128, "int")
EndIf
EndFunc ;==>fly
Func OnWater($offset, $action = True)
If $action Then
_memorywrite($pb + $offset, $wowhandle, 52, "int")
Else
_memorywrite($pb + $offset, $wowhandle, 128, "int")
EndIf
EndFunc ;==>OnWater
Func Chute_Lente($action = True)
If $action Then
_memorywrite($pb + readoff("fly"), $wowhandle, 48, "int")
Else
_memorywrite($pb + readoff("fly"), $wowhandle, 128, "int")
EndIf
EndFunc ;==>Chute_Lente
Func NoFallDomage($action = True)
If $action Then
_memorywrite($pb + readoff("fly"), $wowhandle, 56466, "int")
Else
_memorywrite($pb + readoff("fly"), $wowhandle, 128, "int")
EndIf
EndFunc ;==>NoFallDomage
#cs
func JumpJump()
if _IsPressed("20") Then
frozenZ()
frozenZ(false)
controlSend("World of Warcraft","",""," ")
EndIf
EndFunc
#ce
Func multij($action = True)
If $action Then
AdlibRegister("j", 1)
Else
AdlibUnRegister("j")
EndIf
EndFunc ;==>multij
Func j()
$grav = _memoryread($pb + readoff("gravity"), $wowhandle, "float")
While _IsPressed("20")
$grav = $grav - 1.5
_memorywrite($pb + readoff("gravity"), $wowhandle, $grav, "float")
WEnd
EndFunc ;==>j
Func speed($offset, $speed = 7)
$s = StringSplit($offset, ";", 1)
If $s[0] <> 1 Then
_memorywrite($pb + $s[1], $wowhandle, $speed, "float")
_memorywrite($pb + $s[2], $wowhandle, $speed, "float")
_memorywrite($pb + $s[3], $wowhandle, $speed, "float")
_memorywrite($pb + $s[4], $wowhandle, $speed, "float")
Return $speed
Else
Return 0
EndIf
EndFunc ;==>speed
Func clic2tp($run = True)
If $run Then
$oldCTMx = _memoryread(readoff("CTMX"), $wowhandle, "float")
$oldCTMy = _memoryread(readoff("CTMY"), $wowhandle, "float")
$oldCTMz = _memoryread(readoff("CTMZ"), $wowhandle, "float")
AdlibRegister("frozenclic2tp")
Else
AdlibUnRegister("frozenclic2tp")
EndIf
EndFunc ;==>clic2tp
Func frozenclic2tp()
$CTMx = _memoryread(readoff("CTMX"), $wowhandle, "float")
$CTMy = _memoryread(readoff("CTMY"), $wowhandle, "float")
$CTMz = _memoryread(readoff("CTMZ"), $wowhandle, "float")
If $CTMx <> $oldCTMx Or $CTMy <> $oldCTMy Or $CTMz <> $oldCTMz Then
$oldCTMx = $CTMx
$oldCTMy = $CTMy
$oldCTMz = $CTMz
Send("{DOWN 5}")
If $CTMx <> 0 And $CTMy <> 0 And $CTMz <> 0 Then
_memorywrite($pb + readoff("posX"), $wowhandle, $CTMx, "float")
_memorywrite($pb + readoff("posY"), $wowhandle, $CTMy, "float")
_memorywrite($pb + readoff("posZ"), $wowhandle, $CTMz + 2, "float")
EndIf
EndIf
EndFunc ;==>frozenclic2tp
Func undermap($run = True)
If $run Then
_memorywrite($pb + readoff("posZ"), $wowhandle, _memoryread($pb + readoff("posZ"), $wowhandle, "float") - 20, "float")
frozenZ()
Else
_memorywrite($pb + readoff("posZ"), $wowhandle, _memoryread($pb + readoff("posZ"), $wowhandle, "float") + 40, "float")
frozenZ(False)
EndIf
EndFunc ;==>undermap
Func frozenZ($action = True)
If $action Then
_memorywrite($pb + readoff("fly") - 2, $wowhandle, 4, "int")
Else
_memorywrite($pb + readoff("fly") - 2, $wowhandle, 0, "int")
EndIf
EndFunc ;==>frozenZ
Func gotocorp()
$x = _memoryread(readoff("CX"), $wowhandle, "float")
$y = _memoryread(readoff("CY"), $wowhandle, "float")
$z = _memoryread(readoff("CZ"), $wowhandle, "float")
If $x <> 0 And $y <> 0 And $z <> 0 Then
_memorywrite($pb + readoff("posX"), $wowhandle, $x, "float")
_memorywrite($pb + readoff("posY"), $wowhandle, $y, "float")
_memorywrite($pb + readoff("posZ"), $wowhandle, $z, "float")
EndIf
EndFunc ;==>gotocorp
Func getpos()
Local $pos[3]
$pos[0] = _memoryread($pb + readoff("posX"), $wowhandle, "float")
$pos[1] = _memoryread($pb + readoff("posY"), $wowhandle, "float")
$pos[2] = _memoryread($pb + readoff("posZ"), $wowhandle, "float")
Return $pos
EndFunc ;==>getpos
Func tp($x, $y, $z)
_memorywrite($pb + readoff("posX"), $wowhandle, $x, "float")
_memorywrite($pb + readoff("posY"), $wowhandle, $y, "float")
_memorywrite($pb + readoff("posZ"), $wowhandle, $z, "float")
EndFunc ;==>tp
Func faction($factID)
_memorywrite($pb + readoff("faction"), $wowhandle, $factID, "int")
EndFunc ;==>faction
Func FACTION_CHANGE($VALEUR)
;~ "Creature|Blood Elf|Bloodsail Buccaneers|Demon|Draenei|Dwarf|Gnome|Human|Night Elf|Orc|Tauren|Troll|Undead"
If $VALEUR = "Creature" Then faction(7)
If $VALEUR = "Blood Elf" Then faction(914)
If $VALEUR = "Bloodsail Buccaneers" Then faction(573)
If $VALEUR = "Demon" Then faction(928)
If $VALEUR = "Draenei" Then faction(927)
If $VALEUR = "Dwarf" Then faction(3)
If $VALEUR = "Gnome" Then faction(8)
If $VALEUR = "Human" Then faction(1)
If $VALEUR = "Orc" Then faction(2)
If $VALEUR = "Tauren" Then faction(6)
If $VALEUR = "Troll" Then faction(9)
If $VALEUR = "Undead" Then faction(5)
EndFunc ;==>FACTION_CHANGE
Func wall($run = True)
If $run Then
_memorywrite($pb + readoff("wall"), $wowhandle, 180, "float")
Else
_memorywrite($pb + readoff("wall"), $wowhandle, 1, "float")
EndIf
EndFunc ;==>wall
;requiert Global $r,$oldr,$rx,$ry
Func NoClipAction($dist = 20) ;TRANSFER
Local $x
Local $y
$r = _memoryread($pb + readoff("posR"), $wowhandle, "float")
$rx = Cos($r) * $dist
$ry = Sin($r) * $dist
$x = _memoryread($pb + readoff("posX"), $wowhandle, "float")
$y = _memoryread($pb + readoff("posY"), $wowhandle, "float")
_memorywrite($pb + readoff("posX"), $wowhandle, $x + $rx, "float")
_memorywrite($pb + readoff("posY"), $wowhandle, $y + $ry, "float")
EndFunc ;==>NoClipAction
Func gravity($arg)
If _IsPressed("20") Then
_memorywrite($pb + readoff("gravity"), $wowhandle, -1 * $arg, "float")
EndIf
EndFunc ;==>gravity
Func track($id)
_memorywrite(readoff("track") + $pb, $wowhandle, $id, "int64")
EndFunc ;==>track
Func HDwow($action = True)
Global $CAM_ZOOMPROTECTION = 6292210
Global $CAM_ZOOMPROTECTIONPATCH = "0xD996E8010000"
Global $Gen_ViewDist = 13465416
Global $Gen_ViewDistProtection = 7594984
Global $Gen_FogColor = 13863820
Global $Gen_FogNearclip = $Gen_FogColor + 0x4
Global $Gen_FogFarclip = $Gen_FogColor + 0x8
Global $Gen_FogDensity = $Gen_FogColor + 0xc
Global $hauteur_colision = 2132
Global $largeur_colision = $hauteur_colision - 4
$Gen_FogDensity = $Gen_FogColor + 12
If $action Then
_MEMORYWRITE($CAM_ZOOMPROTECTION, $wowhandle, "0x909090909090", "byte[6]")
_MEMORYWRITE($Gen_ViewDist, $wowhandle, 1500, "float")
AdlibRegister("nofog", 10000)
Else
_MEMORYWRITE($CAM_ZOOMPROTECTION, $wowhandle, $CAM_ZOOMPROTECTIONPATCH, "byte[6]")
_MEMORYWRITE($Gen_FogDensity, $wowhandle, 1.5, "float")
_MEMORYWRITE($Gen_ViewDist, $wowhandle, 900, "float")
EndIf
EndFunc ;==>HDwow
Func nofog()
_MEMORYWRITE($Gen_FogDensity, $wowhandle, 0, "float")
EndFunc ;==>nofog
Func modscale()
If $ssgd Then
_MEMORYWRITE(readoff("size") + $pb, $wowhandle, 1, "float")
Else
_MEMORYWRITE(readoff("size") + $pb, $wowhandle, GUICtrlRead($SLIDE_TAILE), "float")
EndIf
EndFunc ;==>modscale
Func setbutton($gui, $x, $y, $x2, $y2, $func, $param = "NULL", $param2 = "NULL")
$mouse = MouseGetPos()
If $mouse[0] > $x And $mouse[0] < $x2 And $mouse[1] > $y And $mouse[1] < $y2 And _IsPressed("01") And WinActive($gui) And $func = "sendmessage" Then DoString($wowprocess, 'DEFAULT_CHAT_FRAME:AddMessage("' & $param & '", 0, 1, 0);')
If $mouse[0] > $x And $mouse[0] < $x2 And $mouse[1] > $y And $mouse[1] < $y2 And _IsPressed("01") And WinActive($gui) And $param <> "NULL" And $param2 <> "NULL" Then Call($func, $param, $param2)
If $mouse[0] > $x And $mouse[0] < $x2 And $mouse[1] > $y And $mouse[1] < $y2 And _IsPressed("01") And WinActive($gui) And $param <> "NULL" And $param2 = "NULL" Then Call($func, $param)
If $mouse[0] > $x And $mouse[0] < $x2 And $mouse[1] > $y And $mouse[1] < $y2 And _IsPressed("01") And WinActive($gui) And $param = "NULL" And $param2 = "NULL" Then Call($func)
EndFunc ;==>setbutton
Func getlastsay($master = "NULLCHAR")
Local $lastmess[60], $count = 0, $index = 0
For $i = 0x0B75A60 + 0x3C To 0x0B75A60 + 0x3C + (59 * 0x17C0) Step 0x17C0
$lastmess[$count] = _MemoryRead($i, $wowprocess, "char[1000]")
$chan = _StringBetween($lastmess[$count], "Type: [", "],")
$send = _StringBetween($lastmess[$count], "Sender GUID: [", "],")
$p = _StringBetween($lastmess[$count], "Active player: [", "],")
$pseudo = _StringBetween($lastmess[$count], "Name: [", "],")
If $chat[$count] <> $lastmess[$count] And $chan[0] = "7" and ($send[0] = $p[0] Or $pseudo[0] = $master) Then
$mes = $lastmess[$count]
$index = $count
EndIf
$count += 1
Next
$chat = $lastmess
$ret = _StringBetween($mes, "Text: [", "]")
Local $return[2] = [$ret[0], $index]
Return $return
EndFunc ;==>getlastsay
Func chatbeetween($balise, $balise2, $master = "NULLCHAR")
Local $lastmess[60], $count = 0, $index1 = -1, $index2 = -1, $bool = False, $cmdmesline[60], $count2 = 0
For $i = 0x0B75A60 + 0x3C To 0x0B75A60 + 0x3C + (59 * 0x17C0) Step 0x17C0
$mes = _MemoryRead($i, $wowprocess, "char[1000]")
$chan = _StringBetween($mes, "Type: [", "],")
$send = _StringBetween($mes, "Sender GUID: [", "],")
$p = _StringBetween($mes, "Active player: [", "],")
$pseudo = _StringBetween($mes, "Name: [", "],")
If $mes <> "" Then
If $chan[0] = "7" and ($send[0] = $p[0] Or $pseudo[0] = $master) Then
$temp = _StringBetween($mes, "Text: [", "]")
$lastmess[$count] = $temp[0]
$count += 1
EndIf
EndIf
Next
$count = 0
For $i = _ArraySearch($lastmess, $balise, 0, 0, 0, 0, 0, -1) + 1 To 61 Step 1
If $i = _ArraySearch($lastmess, $balise2, 0, 0, 0, 0, 0, -1) Then ExitLoop
If $i = 59 Then $i = 0
$cmdmesline[$count] = $lastmess[$i]
$count += 1
Next
Return $cmdmesline
EndFunc ;==>chatbeetween
Local $maitre = "NULLCHAR", $fly = 0, $multijump = 0, $speed = 7, $clic2tp = 0, $freezeZ = 0, $gocorps = 0, $getpos = 0, $teleport = "", $wallclimb = 0, $transfere = 0, $gravity = 0, $track = 0, $HDwow = 0, $lfly = 0, $lfreezez = 0
While 1
setbutton("World of Warcraft", 33, 50, 91, 109, "sendmessage", "[poke hack: inject] information: " & "vol: " & $fly & " vitesse: " & $speed & " clic2tp: " & $clic2tp & " track: " & $track)
frozenattach()
$say = getlastsay($maitre)
If $say[0] = "end" Then
$gocorps = 0
$teleport = ""
$getpos = ""
$transfere = 0
$gravity = 0
$HDwow = 0
$lfly = 0
EndIf
If $say = "exit" Then Exit
$var = StringSplit($say[0], " ")
If IsDeclared($var[1]) Then Assign($var[1], $var[2])
If 1000 < TimerDiff($lfly) Then
fly(readoff("fly"), $fly)
$lfly = TimerInit()
EndIf
;~ multij($multijump)
speed(readoff("speed"), $speed)
clic2tp($clic2tp)
If 1000 < $lfreezez Then
frozenZ($freezeZ)
$lfreezez = TimerInit()
EndIf
If $gocorps Then gotocorp()
If $getpos <> "" Then
$pos = getpos()
DoString($wowprocess, 'DEFAULT_CHAT_FRAME:AddMessage("[poke hack: inject] position actuel:' & _ArrayToString($pos, " ") & '", 0, 1, 0);')
If $getpos = "clip" Then
ClipPut(_ArrayToString($pos, " "))
Else
Assign($getpos, _ArrayToString($pos, " "))
EndIf
EndIf
If $teleport <> "" Then
Switch $teleport
Case "clip"
$tp = StringSplit(ClipGet(), " ")
tp($tp[1], $tp[2], $tp[3])
Case Else
If IsDeclared($teleport) Then
$tp = StringSplit(Eval($teleport), " ")
Else
$tp = StringSplit($teleport, ",")
EndIf
tp($tp[1], $tp[2], $tp[3])
EndSwitch
EndIf
wall($wallclimb)
If $transfere <> 0 Then noclipaction($transfere)
If $gravity <> 0 Then gravity($gravity)
track($track)
HDwow($HDwow)
WEnd
voila sachez que le fait d'en piquer un bout empêche obfuscator de fonctionner a cause des fonction de manipulation du script (assign,call et eval pour les intimes)
lien de l'executable: Filebeam - Beam up that File Scottie!
quelques exemple de macro (lightmare est le nom de mon personnage mettez le votre pas le mien on est bien d'accord hein ? ):
/w lightmare fly 1 /w lightmare speed 50 /w lightmare end
cette macro active le fly mode et passe la vitesse a 50
/w lightmare master %t /w lightmare end /w %t je viens de te définir comme maitre
cette macro défini la cible comme maitre et lui annonce en MP
/w lightmare getpos hurlevent /w lightmare teleport hurlevent /w lightmare end
cette commande enregistre la position actuel et lui donne le nom d'hurlevent puis s'y téléporte
/w lightmare getpos clip /w lightmare end
cette commande enregistre votre position dans le presse papier, utile pour la communiquer a quelqu'un
/w %t je veux bien te téléporter a hurlevent mais j'ai besoin des droit de maitre /w %t teleport hurlevent /w %t end
cette commande demande les droit de maitre a votre cible et la téléporte a hurlevent
voila déjà de quoi faire
edit avant qu'on me pose la question:
vous ne devez pas enchainer les autowhisp a toute vitesse car il y a un coldown de quelques dizaines de ms entre chaque whisp (ça ne représente guère plus de quelque centième de seconde mais bon) en gros essayez de caler 7 ou 8 /65efdsjgjfgogfueqsh entre chaque action pour freezer wow les quelques ms nécessaire a l'exécution
rapport de bug:
ne marche pas au lancement j'ai un message d'erreur:
pour corriger ce problème faites /w nom_de_votre_perso run avant de lancer le cheat
Sujet: [multi cheat] poke hack: inject
Date: 21/07/2014
Par: wcpcqt064
Sujet:
The sensex opened marginally lower but lost steam through the session to dip to an intra day low at 19,221 and closed just a tad off the low, down 1., [url=https://www.cheaplongchampsaleonline.com/][b]Longchamp Outlet Store[/b][/url], While the arrival of one global giant alone would not lift the spirits of the industry, it arrives at a time when Indias wine consumption, estimated at tiny 1., [url=https://www.cheaplongchampsaleonline.com/longchamp-veau-foulonne-handbag-cognac-women-2104021504-p-227.html][b]longchamp Veau Foulonne Handbag Cognac Women 2104021504[/b][/url], 3 an hour on a gradient., [url=https://www.homestaytoursnewzealand.com/michael-kors-shoulder-bags-womens-michael-kors-medium-billy-shoulder-bag-nice-fabric-p-44.html][b]Michael Kors Shoulder Bags Womens Michael Kors Medium Billy Shoulder Bag nice fabric[/b][/url], [url=https://www.cheaplongchampsaleonline.com/longchamp-top-handles-women-c-7.html][b]Longchamp Top handles Women[/b][/url], [url=https://www.cheaplongchampsaleonline.com/longchamp-surf-expandable-travel-bag-black-1870289001-p-1356.html][b]longchamp Surf Expandable travel bag Black 1870289001[/b][/url], Red arrogantly put the words: reward of 30 million yuan, personally apprehended Bautzen., [url=https://www.homestaytoursnewzealand.com/michael-kors-pouchs-c-1_7.html][b]Michael Kors Pouchs[/b][/url], [url=https://www.homestaytoursnewzealand.com/michael-kors-crossbody-bags-c-1_4.html][b]Michael Kors Crossbody Bags[/b][/url], Godrej Appliances targets Rs 2,700 crore business in FY15Soaring temperature! Time to buy air conditioning companiesPure PoliticsModi signals a strategic shift in approach to J current usage ignores significant swathes of the states population, especially those displaced and dispossessed by the separatist violence., [url=https://www.cheaplongchampsaleonline.com/longchamp-travel-luggage-menwomen-c-14.html][b]Longchamp Travel Luggage Men/Women[/b][/url], [url=https://www.cheaplongchampsaleonline.com/longchamp-baxinyl-backpack-cederblack-women-1554688580-p-789.html][b]longchamp Baxinyl Backpack Ceder/Black Women 1554688580[/b][/url], The top five players in terms of the overall strength of the current from no apparent weak, and as such, in the case of singing, stage presence, popularity, etc., [url=https://www.homestaytoursnewzealand.com/michael-kors-crossbody-bags-womens-michael-kors-large-fulton-pebbled-crossbody-bag-website-p-17.html][b]Michael Kors Crossbody Bags Womens Michael Kors Large Fulton Pebbled Crossbody Bag website[/b][/url], [url=https://www.cheaplongchampsaleonline.com/longchamp-le-pliage-handbag-s-lilac-women-1621089619-p-435.html][b]longchamp Le Pliage Handbag S Lilac Women 1621089619[/b][/url], In view of the body is being extremely tired, so will eat the porridge-like, you do not say, always eat normally a form of instant noodles, instant porridge suddenly supplement or eat a distinctive flavor, and you can follow individual porridge-like taste of vegetables and other ingredients appropriate to add seven, instant noodles Bibimbap, [url=https://www.jakesonthebypass.com/][b] Barbour Mens Waterproof Jackets [/b][/url], [url=https://www.jakesonthebypass.com/barbour-mens-international-jackets-c-1_18.html]https://www.jakesonthebypass.com/barbour-mens-international-jackets-c-1_18.html[/url], [url=https://www.jakesonthebypass.com/barbour-waxed-jackets-mens-barbour-stockman-waxed-coat-sale-london-p-144.html][b]Barbour Waxed Jackets Mens Barbour Stockman Waxed Coat sale london[/b][/url], [url=https://www.homestaytoursnewzealand.com/][b]Michael Kors Mens Bags[/b][/url], Song insisted on this court on that point., Some said that the duke had loved his wife so deeply, that in his grief ho had excluded from his court every thing suggestive of his past happiness., In construction, there exist 12 construction units lend qualification or illegal subcontracting, subcontracting engineering problems, involving an amount of 482 million yuan a total length of 190., This girl knew there fell in love with the young man in love with her boy home, put vegetables into the hands of his mother, telling her it belonged girl, the mother is also satisfied if the future daughter, you will use these a bowl of noodles cooked vegetables to eat her son, the son of luck in order to Evergreen, all wishes come true.
———
Date: 20/07/2014
Par: gdcndx624
Sujet:
If you know you are a foreign visitor, the old lady will be eager to tell a river festival dumplings wrapped in the story of Qu Yuan., [url=https://www.cheaplongchampsaleonline.com/][b]Longchamp Outlet Store[/b][/url], 04 milligrams per kilogram of body weight per day, released from polystyrene packaging materials harmful doses of styrene is impossible to achieve this, completely safe to use., [url=https://www.cheaplongchampsaleonline.com/longchamp-le-pliage-cuir-handbag-fuchsia-women-1515737832-p-502.html][b]longchamp Le Pliage Cuir Handbag Fuchsia Women 1515737832[/b][/url], Filling of lean meat can be more water, how much fat, add water, while adding little by little soy sauce (with broth plus the best broth), while drops while stirring, stir into a paste, mix food to eat that available., [url=https://www.homestaytoursnewzealand.com/michael-kors-clutchs-womens-michael-kors-large-harlow-zip-clutch-online-usa-p-6.html][b]Michael Kors Clutchs Womens Michael Kors Large Harlow Zip Clutch online usa[/b][/url], [url=https://www.cheaplongchampsaleonline.com/longchamp-hobo-bags-women-c-9.html]https://www.cheaplongchampsaleonline.com/longchamp-hobo-bags-women-c-9.html[/url], [url=https://www.cheaplongchampsaleonline.com/longchamp-roseau-croco-tote-bag-black-women-1686158001-p-418.html][b]longchamp Roseau Croco Tote bag Black Women 1686158001[/b][/url], The regrouping proposals put forward by the various committees were studied in great detail to ensure that a unification could be achieved with the least disturbance and dislocation., [url=https://www.homestaytoursnewzealand.com/michael-kors-totes-c-1_10.html][b]Michael Kors Totes[/b][/url], [url=https://www.homestaytoursnewzealand.com/michael-kors-mens-bags-c-12.html][b]Michael Kors Mens Bags[/b][/url], Is the insolvency administrator, Yiyang City SAC recognized as beneficial hemp affordable housing development and construction projects the winning bidder of this project will soon be transferred to the original Ma Yi Li Canmin hands of workers on-line connected to a single contractor is 480 yuan / square meter, pumping 30 yuan / square meters of water (commission), and we are doing 450 yuan / square meter job., [url=https://www.cheaplongchampsaleonline.com/longchamp-wallet-menwomen-c-13.html][b]Longchamp Wallet Men/Women[/b][/url], [url=https://www.cheaplongchampsaleonline.com/longchamp-veau-foulonne-all-in-one-vermilion-3046021608-p-1100.html][b]longchamp Veau Foulonne All in One Vermilion 3046021608[/b][/url], Martin This is usually a series of presently four books along with the very first e book A Sport of Thrones was published in 1996., [url=https://www.homestaytoursnewzealand.com/michael-kors-pouchs-womens-michael-kors-jet-set-travel-calfhair-pouch-cheap-2014-p-29.html][b]Michael Kors Pouchs Womens Michael Kors Jet Set Travel Calf-Hair Pouch cheap 2014[/b][/url], [url=https://www.cheaplongchampsaleonline.com/longchamp-new-legende-hobo-bag-black-women-2840782001-p-677.html][b]longchamp New Legende Hobo bag Black Women 2840782001[/b][/url], The idea was to sell the metal and book some profits., [url=https://www.jakesonthebypass.com/][b]Barbour Mens International Jackets [/b][/url], [url=https://www.jakesonthebypass.com/barbour-womens-wool-coats-c-10_15.html][b]Barbour Womens Wool Coats[/b][/url], [url=https://www.jakesonthebypass.com/barbour-quilted-jackets-mens-barbour-imperial-quilted-jacket-buy-online-p-106.html][b]Barbour Quilted Jackets Mens Barbour Imperial Quilted Jacket buy online[/b][/url], [url=https://www.homestaytoursnewzealand.com/][b]Michael Kors Totes[/b][/url], November 29, 2011 at 3:00 pm about 30 points, Puyang County Hachiko small town of Harvard nursery a license plate number Henan J57022 Jinbei van 90% of severe overcrowding at 106 State Road slippery road due to the rain and snow and a truck collision, a direct result of the accident 10 people were injured., Yesterday morning, the reporter will be pre-understanding of the situation informed the Municipal Quality Supervision Bureau, the Municipal Bureau of Quality Supervision Inspection department arrived quickly dispatched Baishun law enforcement officers to check the inspection, several workers told reporters that the workshop production Fulla is not in the package Inside the plant, but in a rental house nearby after more than an hour to check, law enforcement officers did not find evidence here., And explicitly asked: Must the socialist core value system into the national education and spiritual civilization construction and party building in the whole process, through the reform and opening up and socialist modernization in all areas, reflecting the spread of cultural creation and production of all aspects of the product, stick with Leading the socialist core value system of social thought, social unity in the Party guidelines and common ideals and beliefs, a strong spiritual force, the basic code of ethics form., Wash out hair and beard for 26 years for the first time three packets of detergent shampoo runs out Sept.
———
Date: 17/06/2014
Par: vnkrhtjapcklai
Sujet: 関西限定 https://www.dixwellchurch.org/フェンディ-バッグ-c-982_985.html
———
Date: 17/06/2014
Par: jxhwmosngkdcrj
Sujet: 2003年に立ち上げ https://www.dixwellchurch.org/財布小物-エルメス-c-28_999_1000.html
———
Date: 17/06/2014
Par: hlzeidoxlupxnf
Sujet: 人に任せると楽だけど https://www.dixwellchurch.org/バッグ-ハンドバッグ-c-767_868_893.html
———
Date: 17/06/2014
Par: edrkvqfkhbmznv
Sujet: 内側コットン https://www.dixwellchurch.org/コインケースカードケース-その他-c-767_876_890.html
———
Date: 16/06/2014
Par: towcxoozqfljcu
Sujet: ほとんど不可能である https://www.dixwellchurch.org/トリーバーチ-財布小物-c-953_954.html
———
Date: 16/06/2014
Par: iugdtxxvyhdtqi
Sujet: 授業の教科書 https://www.dixwellchurch.org/財布小物-エルメス-c-28_999_1000.html
———
Date: 16/06/2014
Par: lxfkulgscycwuh
Sujet: 荷物を極力減らして https://www.dixwellchurch.org/キーリングストラップ-キーリング-c-28_31_32.html
———
Date: 16/06/2014
Par: pumzamfemjxyww
Sujet: 素晴らしい〜 https://www.dixwellchurch.org/ポーチ-エルメス-c-28_1007_1012.html