Page 1 of 2 12 LastLast
Results 1 to 15 of 24
  1. #1
    gauthier08's Avatar
    Join Date
    Aug 2012
    Gender
    male
    Posts
    146
    Reputation
    10
    Thanks
    10

    Mw3 hack, how to update...

    hey all so i'm working on my first hack (steam version)
    its a trainer for first i just include prestige hack. visual basic 2010
    but there is a problem. i followd the tutorial of @jordel and i have done everything right. but in the tutorial its version 1.7.413
    here is my source code (from jordel)
    its my class.vb
    Code:
    Imports System.Runtime.InteropServices
    Imports System.Text
    
    Public Class trainner
    #Region "Basic Stuff"
        <DllImport("kernel32.dll")> _
        Private Shared Function ReadProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <[In](), Out()> ByVal buffer As Byte(), ByVal size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32
        End Function
        <DllImport("kernel32.dll")> _
        Private Shared Function WriteProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <[In](), Out()> ByVal buffer As Byte(), ByVal size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32
        End Function
        <DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
        Public Shared Function GetKeyState(ByVal virtualKeyCode As Keys) As Short
        End Function
        Private pHandel As IntPtr
        Public Function Process_Handle(ByVal ProcessName As String) As Boolean
            Try
                Dim ProcList As Process() = Process.GetProcessesByName(ProcessName)
                If ProcList.Length = 0 Then
                    Return False
                Else
                    pHandel = ProcList(0).Handle
                    Return True
                End If
            Catch ex As Exception
                Console.Beep()
                Console.WriteLine("Process_Handle - " + ex.Message)
                Return False
            End Try
        End Function
        Private Function Read(ByVal Address As Integer, ByVal Length As Integer) As Byte()
            Dim Buffer As Byte() = New Byte(Length - 1) {}
            Dim Zero As IntPtr = IntPtr.Zero
            ReadProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
            Return Buffer
        End Function
        Private Sub Write(ByVal Address As Integer, ByVal Value As Integer)
            Dim Buffer As Byte() = BitConverter.GetBytes(Value)
            Dim Zero As IntPtr = IntPtr.Zero
            WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
        End Sub
    #End Region
    
        'This is the part you want to edit
    #Region "Write Functions (Integer & String)"
        Public Sub WriteInteger(ByVal Address As Integer, ByVal Value As Integer)
            Write(Address, Value)
        End Sub
        Public Sub WriteString(ByVal Address As Integer, ByVal Text As String)
            Dim Buffer As Byte() = New ASCIIEncoding().GetBytes(Text)
            Dim Zero As IntPtr = IntPtr.Zero
            WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
        End Sub
        Public Sub WriteBytes(ByVal Address As Integer, ByVal Bytes As Byte())
            Dim Zero As IntPtr = IntPtr.Zero
            WriteProcessMemory(pHandel, New IntPtr(Address), Bytes, CUInt(Bytes.Length), Zero)
        End Sub
        Public Sub WriteNOP(ByVal Address As Integer)
            Dim Buffer As Byte() = New Byte() {&H90, &H90, &H90, &H90, &H90}
            Dim Zero As IntPtr = IntPtr.Zero
            WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
        End Sub
    
    
    #End Region
    #Region "Read Functions (Integer & String)"
        Public Function ReadInteger(ByVal Address As Integer, Optional ByVal Length As Integer = 4) As Integer
            Return BitConverter.ToInt32(Read(Address, Length), 0)
        End Function
        Public Function ReadString(ByVal Address As Integer, Optional ByVal Length As Integer = 4) As String
            Return New ASCIIEncoding().GetString(Read(Address, Length))
        End Function
        Public Function ReadBytes(ByVal Address As Integer, ByVal Length As Integer) As Byte()
            Return Read(Address, Length)
        End Function
    #End Region
    #Region "Extra"
        Public Function HotKey(ByVal Key As Keys) As Boolean
            Return Convert.ToBoolean(GetKeyState(Key))
        End Function
        Private Check_res As Boolean = True
        Public Function Check_Value(ByVal Value As String) As Integer
            For Each a As Char In Value
                If Char.IsNumber(a, 0) Then
                    Check_res = True
                Else
                    Check_res = False
                    Return 0
                    Exit For
                End If
            Next
            Return Convert.ToInt32(Value)
        End Function
    #End Region
    End Class
    and here is my code from "i dont know how its called"
    Code:
    Imports System.Text
    Imports System.Runtime.InteropServices
    
    Public Class Trainer
    
        Dim MW3 As New my_class
        Dim ProPerks_Offset As Integer = &H1DBAED2
        Dim ProPerks_Bytes As Byte() = {7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7}
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Try
                If MW3.Process_Handle("iw5mp") Then
                    MessageBox.Show("MW3 found")
                    MW3.WriteInteger(&H1DBA148, TextBox1.Text)
                    WriteBytes(ProPerks_Offset, ProPerks_Bytes)
                Else
                    MsgBox("MW3 is not found")
                End If
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try     
        End Sub
    
    #Region "Basic Stuff"
        <DllImport("kernel32.dll")> _
        Private Shared Function ReadProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <[In](), Out()> ByVal buffer As Byte(), ByVal size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32
        End Function
        <DllImport("kernel32.dll")> _
        Private Shared Function WriteProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <[In](), Out()> ByVal buffer As Byte(), ByVal size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32
        End Function
        <DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
        Public Shared Function GetKeyState(ByVal virtualKeyCode As Keys) As Short
        End Function
        Private pHandel As IntPtr
        Public Function Process_Handle(ByVal ProcessName As String) As Boolean
            Try
                Dim ProcList As Process() = Process.GetProcessesByName(ProcessName)
                If ProcList.Length = 0 Then
                    Return False
                Else
                    pHandel = ProcList(0).Handle
                    Return True
                End If
            Catch ex As Exception
                Console.Beep()
                Console.WriteLine("Process_Handle - " + ex.Message)
                Return False
            End Try
        End Function
        Private Function Read(ByVal Address As Integer, ByVal Length As Integer) As Byte()
            Dim Buffer As Byte() = New Byte(Length - 1) {}
            Dim Zero As IntPtr = IntPtr.Zero
            ReadProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
            Return Buffer
        End Function
        Private Sub Write(ByVal Address As Integer, ByVal Value As Integer)
            Dim Buffer As Byte() = BitConverter.GetBytes(Value)
            Dim Zero As IntPtr = IntPtr.Zero
            WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
        End Sub
    #End Region
    
        'This is the part you want to edit
    #Region "Write Functions (Integer & String)"
        Public Sub WriteInteger(ByVal Address As Integer, ByVal Value As Integer)
            Write(Address, Value)
        End Sub
        Public Sub WriteString(ByVal Address As Integer, ByVal Text As String)
            Dim Buffer As Byte() = New ASCIIEncoding().GetBytes(Text)
            Dim Zero As IntPtr = IntPtr.Zero
            WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
        End Sub
        Public Sub WriteBytes(ByVal Address As Integer, ByVal Bytes As Byte())
            Dim Zero As IntPtr = IntPtr.Zero
            WriteProcessMemory(pHandel, New IntPtr(Address), Bytes, CUInt(Bytes.Length), Zero)
        End Sub
        Public Sub WriteNOP(ByVal Address As Integer)
            Dim Buffer As Byte() = New Byte() {&H90, &H90, &H90, &H90, &H90}
            Dim Zero As IntPtr = IntPtr.Zero
            WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
        End Sub
    
    
    #End Region
    #Region "Read Functions (Integer & String)"
        Public Function ReadInteger(ByVal Address As Integer, Optional ByVal Length As Integer = 4) As Integer
            Return BitConverter.ToInt32(Read(Address, Length), 0)
        End Function
        Public Function ReadString(ByVal Address As Integer, Optional ByVal Length As Integer = 4) As String
            Return New ASCIIEncoding().GetString(Read(Address, Length))
        End Function
        Public Function ReadBytes(ByVal Address As Integer, ByVal Length As Integer) As Byte()
            Return Read(Address, Length)
        End Function
    #End Region
    #Region "Extra"
        Public Function HotKey(ByVal Key As Keys) As Boolean
            Return Convert.ToBoolean(GetKeyState(Key))
        End Function
        Private Check_res As Boolean = True
        Public Function Check_Value(ByVal Value As String) As Integer
            For Each a As Char In Value
                If Char.IsNumber(a, 0) Then
                    Check_res = True
                Else
                    Check_res = False
                    Return 0
                    Exit For
                End If
            Next
            Return Convert.ToInt32(Value)
        End Function
    #End Region
    
    End Class

    My question is: how can i bring this hack to 1.4.382 steam or rev28/rev25 from fourdeltaone IW5M?

  2. #2
    Jorndel's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Location
    Norway
    Posts
    8,674
    Reputation
    905
    Thanks
    18,541
    My Mood
    Angelic
    Take a look here: http://www.mpgh.net/forum/586-call-d...addresses.html
    Also, I think you're talking about me no?

    Jorndel *

     
    Contributor 01.27.2012 - N/A
    Donator 07-17-2012 - Current
    Editor/Manager 12-16-12 - N/A
    Minion 01-10-2013 - 07.17.13
    Former Staff 09-20-2012 - 01-10-2013 / 07-17-2013 - Current
    Cocksucker 20-04-2013 - N/A

  3. #3
    gauthier08's Avatar
    Join Date
    Aug 2012
    Gender
    male
    Posts
    146
    Reputation
    10
    Thanks
    10
    Lolz, srry XD
    thanks gonna try out!

  4. #4
    mwxplayer's Avatar
    Join Date
    Aug 2012
    Gender
    male
    Location
    hax
    Posts
    584
    Reputation
    10
    Thanks
    2,665
    My Mood
    Doh
    Code:
    MW3.WriteInteger(&H1DBA148, TextBox1.Text)
    Seriously? converting int into string? also no 0x Prefix?

  5. #5
    gauthier08's Avatar
    Join Date
    Aug 2012
    Gender
    male
    Posts
    146
    Reputation
    10
    Thanks
    10
    srry but thats imposible for me...
    i'm 12 years old not even english....
    so is there a way to yust give me the source code of the update so i can include it.
    dont care if what thing u use i'm possible to play IW5M 4delta1 r28/r25
    steam 1.4.382.
    please help XD

    ---------- Post added at 11:06 AM ---------- Previous post was at 10:58 AM ----------

    isent that correct?

  6. #6
    [NooB] Mentor's Avatar
    Join Date
    Oct 2012
    Gender
    male
    Location
    Erevan
    Posts
    72
    Reputation
    10
    Thanks
    451
    My Mood
    Busy
    its wrong
    Dim ProPerks Bytes As Byte() = {7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7}
    you need something like this Dim ProPerks Bytes As Byte() = {&h7, &h7, &h7, ......}
    use Jorndel's program ( im not remember how it calles )

    Update . its too easy . just change the address of feature . you can find all adresses in this thread
    http://www.mpgh.net/forum/604-call-d...ss-thread.html

    but you can update your adresses with another way . with hex value .

    mw3.writeint(&Haddress + &Hhex , any value)
    Dim hex as ...........
    hex=textbox1.text
    textbox1.text="0"

    Sry for my bad english .

  7. #7
    gauthier08's Avatar
    Join Date
    Aug 2012
    Gender
    male
    Posts
    146
    Reputation
    10
    Thanks
    10
    yea i see.
    nice treath i got: replace text tool. is that it i just copy the code: 1DBAED2 for ProPerks
    put in the replace tool and get: that code above 777 777 77 7 7 XD
    i'm normally tommorow getting iw5mp.exe: 1.9.446 that the code for PROPERKS is: 1DBA148
    so the code 1DBA148 do i need to put it where &H1DBAED2 is and then put it in the editor and the whered code do i need to pasted after : Dim ProPerks_Bytes As Byte() = ??

  8. #8
    gauthier08's Avatar
    Join Date
    Aug 2012
    Gender
    male
    Posts
    146
    Reputation
    10
    Thanks
    10
    Is that all correct?
    Thx for all

  9. #9
    Kenshin13's Avatar
    Join Date
    May 2011
    Gender
    male
    Location
    Cloud 9
    Posts
    3,473
    Reputation
    564
    Thanks
    5,882
    My Mood
    Psychedelic
    Quote Originally Posted by gauthier08 View Post
    Is that all correct?
    Thx for all
    It'd be better if you learn the programming language before you try to do this...

  10. #10
          ( ° ͜ʖ͡°)╭∩╮
    Former Staff
    MarkHC's Avatar
    Join Date
    Nov 2011
    Gender
    male
    Location
    127.0.0.1
    Posts
    2,751
    Reputation
    66
    Thanks
    14,310
    My Mood
    Angelic
    Quick note, @[NooB] Mentor, this:
    Code:
    Dim ProPerks_Bytes As Byte() = {7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7}
    IS the same as this:
    Code:
    Dim ProPerks_Bytes As Byte() = {&H7,&H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, 7}
    The &H things explicit that the number is a hexadecimal, but for number < than 10, hexadecimal and decimal are the same thing.
    Code:
    Hex: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,  A,   B,  C,   D,  E,  F
    Dec: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15
    You need the &H just for numbers greater then 10


    CoD Minion from 09/19/2012 to 01/10/2013

  11. The Following User Says Thank You to MarkHC For This Useful Post:

    [NooB] Mentor (01-08-2013)

  12. #11
    [NooB] Mentor's Avatar
    Join Date
    Oct 2012
    Gender
    male
    Location
    Erevan
    Posts
    72
    Reputation
    10
    Thanks
    451
    My Mood
    Busy
    Quote Originally Posted by -InSaNe- View Post
    Quick note, @[NooB] Mentor, this:
    Code:
    Dim ProPerks_Bytes As Byte() = {7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7}
    IS the same as this:
    Code:
    Dim ProPerks_Bytes As Byte() = {&H7,&H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, 7}
    The &H things explicit that the number is a hexadecimal, but for number < than 10, hexadecimal and decimal are the same thing.
    Code:
    Hex: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,  A,   B,  C,   D,  E,  F
    Dec: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15
    You need the &H just for numbers greater then 10
    ooops , you right . forgot that

  13. #12
    gauthier08's Avatar
    Join Date
    Aug 2012
    Gender
    male
    Posts
    146
    Reputation
    10
    Thanks
    10
    Oh thanks, so im getting in 1 hour iw5mp 1.9.446,
    Than i can try if it works.
    And @Kenshin13. I know, but if i do this correct. I can do it on the next time on my own.

    ---------- Post added at 10:28 AM ---------- Previous post was at 09:47 AM ----------

    Quote Originally Posted by Jorndel View Post
    Take a look here: http://www.mpgh.net/forum/586-call-d...addresses.html
    Also, I think you're talking about me no?

    Jorndel *
    no really i cant update mw3 for now. can you post or give the adresses for steam iw5mp 1.4.382?
    or how can i change my game, i mean. if the above is not possible how can i change from iw5mp to iw5m four delta one?
    just: If MW3.Process_Handle("iw5mp") Then
    MessageBox.Show("MW3 found")

    to If MW3.Process_Handle("iw5m") Then
    MessageBox.Show("MW3 found") ?
    if not i can downgrade my iw5m rev28 to rev25 or something and then i can run my iw5mp and than the hack will work. one thing what is your version if your running rev25?

  14. #13
    Kenshin13's Avatar
    Join Date
    May 2011
    Gender
    male
    Location
    Cloud 9
    Posts
    3,473
    Reputation
    564
    Thanks
    5,882
    My Mood
    Psychedelic
    Quote Originally Posted by gauthier08 View Post
    Oh thanks, so im getting in 1 hour iw5mp 1.9.446,
    Than i can try if it works.
    And @Kenshin13. I know, but if i do this correct. I can do it on the next time on my own.

    ---------- Post added at 10:28 AM ---------- Previous post was at 09:47 AM ----------



    no really i cant update mw3 for now. can you post or give the adresses for steam iw5mp 1.4.382?
    or how can i change my game, i mean. if the above is not possible how can i change from iw5mp to iw5m four delta one?
    just: If MW3.Process_Handle("iw5mp") Then
    MessageBox.Show("MW3 found")

    to If MW3.Process_Handle("iw5m") Then
    MessageBox.Show("MW3 found") ?
    if not i can downgrade my iw5m rev28 to rev25 or something and then i can run my iw5mp and than the hack will work. one thing what is your version if your running rev25?
    Try:
    Code:
    If MW3.Process_Handle("iw5m.dat) Then
        MessageBox.Show("IW5M Was Found")
    Also, revisions doesn't change the process name. If you run LaunchIW5M.exe then the game process is always iw5m.dat
    Only if you run iw5mp.exe directly (You can just rename iw5m.dat to iw5mp.exe) then the process name is iw5mp.exe
    Common sense or at least basic knowledge of a PC is vital in programming, even if you do it the first time as you stated, you'll need to learn more for each program you make that is different. Never try to program without at least a basic understanding of the language.
    Last edited by Kenshin13; 01-08-2013 at 10:49 AM.

  15. #14
    gauthier08's Avatar
    Join Date
    Aug 2012
    Gender
    male
    Posts
    146
    Reputation
    10
    Thanks
    10
    Quote Originally Posted by Kenshin13 View Post
    Try:
    Code:
    MW3.ProcessHandle("iw5m.dat)
    ok thanks @Kenshin13 !
    but what version is rev28?

  16. #15
    Kenshin13's Avatar
    Join Date
    May 2011
    Gender
    male
    Location
    Cloud 9
    Posts
    3,473
    Reputation
    564
    Thanks
    5,882
    My Mood
    Psychedelic
    Quote Originally Posted by gauthier08 View Post
    ok thanks @Kenshin13 !
    but what version is rev28?
    The latest version of IW5M...I use revision 25 because some stuff was patched in revision 28...I think...but it's still easier for me as I know how to bypass the cheat system on rev25

Page 1 of 2 12 LastLast

Similar Threads

  1. [Solved] How i update my HACK !!!
    By 9030110 in forum CrossFire Help
    Replies: 7
    Last Post: 06-11-2011, 02:19 PM
  2. [Tutorial] How to post a Hack/File correctly UPDATED
    By TheUser in forum Call of Duty 4 - Modern Warfare (MW) Hacks
    Replies: 8
    Last Post: 07-14-2010, 12:48 PM
  3. how to update chams hack/
    By TheCamels8 in forum WarRock Help
    Replies: 14
    Last Post: 07-02-2010, 08:30 AM
  4. [Release] How to hack Crossfire after Update[Xp Users]
    By DeathHunter in forum CrossFire Hacks & Cheats
    Replies: 150
    Last Post: 02-24-2010, 12:45 PM
  5. Replies: 0
    Last Post: 10-14-2007, 10:45 PM