Hack Trainer Tutorial
I haven't seen a tutorial that explains how to do this before so I thought I might share... If it had been done, a minion or mod can remove...
With this tutorial, you can do no recoil, no flash and other stuff like that..
This will be pretty messy, but I will fix it up after I have posted it
Here we go...
Add a module and add this code to it.
Code:
Private Declare Function OpenProcess Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Private Declare Function WriteProcessMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Integer) As Integer
Dim MW2 As Process() = Process.GetProcessesByName("iw4mp")
Public Function WriteMemory(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)
If MW2.Length = 0 Then
MsgBox("Modern Warfare 2 was not found!", MsgBoxStyle.Information, "Modern Warfare 2 Hacks - Error")
End
End If
Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, MW2(0).Id)
WriteProcessMemory(processHandle, Address, Value, Bytes, Nothing)
CloseHandle(processHandle)
End Function
Public Function NOP(ByVal Address As Integer, ByVal value As Integer)
If MW2.Length = 0 Then
MsgBox("Modern Warfare 2 was not found!", MsgBoxStyle.Information, "Modern Warfare 2 Hacks - Error")
End
End If
Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, MW2(0).Id)
WriteProcessMemory(processHandle, Address, value, 1, Nothing)
CloseHandle(processHandle)
End Function
Now we make the GUI... For this I have just made a REALLY basic GUI...
We will add no flash/partial stun [By Hell]
Here is what we have to do...
Code:
The address...
--> &H457310 <--
What we are writing to the address...
--> 0xB8, 0x00, 0x00, 0x00, 0x00, 0xC3, 0x90 <--
C++/C uses 0x where VB uses &H, so we need to change it...
--> &HB8, &H00, &H00, &H00, &H00, &HC3, &H90 <--
Now we add this code to the button...
Code:
'EXAMPLE -->
'NOP(&HADDRESS, What we write, ONE PER LINE)
'NOP(&HADDRESS, What we write + 1, ONE PER LINE)
'END EXAMPLE
NOP(&H457310, &HB8)
NOP(&H457310 + 1, &H0)
NOP(&H457310 + 2, &H0)
NOP(&H457310 + 3, &H0)
NOP(&H457310 + 4, &H0)
NOP(&H457310 + 5, &HC3)
NOP(&H457310 + 6, &HC90)
Thanks and I hope you could understand =D
I have uploaded my source code if you want it.
Yes it does work.
VirusTotal
Jotti