ledzepfan1 (02-10-2008),legolas5 (02-11-2008),marc5656 (02-11-2008),poisonpower (02-22-2008)
Ok...
First you need a WriteASM module:
Then make a button with this code:Code:Option Explicit Public Declare Function E073507F Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwID As Long) As Long Public Declare Function BFE4EA63 Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwID As Long) As Long Public Declare Function C92B60B8 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Public Declare Function E3CA2100 Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long Public Declare Function F79F1CC6 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long Public Declare Function EF17592B Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Public Declare Function E98B718D Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer 'WriteAByte Public Function WriteAByte(DDC50B45 As Long, F6109BFB As Byte) Dim B4AFE7C6 As Long Dim D8013DDD As Long Dim BBEB130B As Long B4AFE7C6= F79F1CC6(vbNullString, "WarRock") If (B4AFE7C6= 0) Then Exit Function End If E073507F B4AFE7C6,BBEB130B D8013DDD= BFE4EA63(&H1F0FFF, False,BBEB130B) If (D8013DDD= 0) Then Exit Function End If C92B60B8 D8013DDD,DDC50B45,F6109BFB,1, 0& E3CA2100 D8013DDD End Function 'WriteASM Public Function WriteASM(Address As Long, ASM As String) Dim i As Integer Dim i2 As Integer i2 = 1 While i < (Len(ASM) / 2) Call WriteAByte(Address + i, Val("&H" & Mid$(ASM, i2, 2))) i = i + 1 i2 = i2 + 2 Wend End Function
004A1F34 = The new boneshot address (Address by thimo... Thank him a lot!!!)Code:Call WriteASM(&H004A1F34, "31C0")
31C0 = The ASM code (XOR EAX,EAX)
That was it...
Last edited by atheist; 02-10-2008 at 02:26 PM.
ledzepfan1 (02-10-2008),legolas5 (02-11-2008),marc5656 (02-11-2008),poisonpower (02-22-2008)
-TM- (02-10-2008),fir3killa9 (02-11-2008),landerman007 (02-19-2008)
fir3killa9 (02-18-2008)
not to sound like a noob but never heard of a boneshot hack before. is it like an aimbot or something?
Headshot every time.
Lmao u dont need to do ASM -_- go damn nub just use WriteAbyte
Here
here is the module u need to use
Code:Public Const NOP = &H90 Public Const Terrordeath21 = &H1F0FFF Dim f1holder As Integer Dim timer_pos As Long 'API Declaration Public Declare Function Terrordeath1 Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hwnd As Long, lpdwProcessId As Long) As Long Public Declare Function Terrordeath2 Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Public Declare Function Terrordeath3 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Public Declare Function Terrordeath4 Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long Public Declare Function Terrordeath5 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long Public Declare Function Terrordeath6 Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer Public Declare Function Terrordeath7 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Public Function Terrordeath15(Terrordeath17 As String, Terrordeath18 As Long, Terrordeath19 As Byte) 'WriteAByte Dim Terrordeath8 As Long Dim Terrordeath9 As Long Dim Terrordeath10 As Long Terrordeath8 = Terrordeath5(vbNullString, Terrordeath17) If (Terrordeath8 = 0) Then End Exit Function End If Terrordeath1 Terrordeath8, Terrordeath9 Terrordeath10 = Terrordeath2(Terrordeath21, False, Terrordeath9) If (Terrordeath10 = 0) Then Exit Function End If Terrordeath3 Terrordeath10, Terrordeath18, Terrordeath19, 1, 0& Terrordeath4 Terrordeath22 End Function
now that u got ur module justgo in your timr and do this
and voila its not asmCode:Call Terrordeath15("WarRock", &H4A1F34, &H31) Call Terrordeath15("WarRock", &H4A1F35, &HC0)
AND its not Asm the offsets its 31 and C0
but it works...
and it IS asm although you use WriteAByte
I thought for the noobs its simplier to make the hack with WriteASM...
@K2_Warhacker: nice doublepost
Last edited by atheist; 02-11-2008 at 05:53 AM.
yes its work but after 5 min punkbuster kick you for 0 min
I'm Alen on Steam. RIP Skype Friday nights.
I'm Navi's lover 💖
Dave84311: God I've always wanted to eat crayons, with their vibrant colors. Only if they had taste.
Mr. Lonely: @Alen I like making you wet, it makes me hard.
yes...
but if you make codecaves you can prevent it
I'm Alen on Steam. RIP Skype Friday nights.
I'm Navi's lover 💖
Dave84311: God I've always wanted to eat crayons, with their vibrant colors. Only if they had taste.
Mr. Lonely: @Alen I like making you wet, it makes me hard.
Is the module undetected?
thats the question
"how to make a code cave ?"