Thread: Cheat Table

Page 1 of 2 12 LastLast
Results 1 to 15 of 17
  1. #1
    H4ckBlood's Avatar
    Join Date
    Oct 2010
    Gender
    male
    Location
    The Neterlands
    Posts
    78
    Reputation
    10
    Thanks
    6

    Cheat Table

    Well i found out the method,
    now i only need the addresses,
    Could someone send me a working Cheat Table or could someone send/make a tut about how to find them, i could not find a tut on various forums, so im asking!

    Its true, im H4ckBlood and im back,
    Still not afraid, Just Google me!

  2. #2
    lolbie's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Location
    Netherlands
    Posts
    5,207
    Reputation
    288
    Thanks
    2,090
    My Mood
    Angelic
    omg use cheat engine
    see in barracks how many kills you have or something search it
    go in a game kill some and search for the new value =.

    and you can find it on google
    I love it when people keep their agreements /sarcasm ftw

  3. #3
    H4ckBlood's Avatar
    Join Date
    Oct 2010
    Gender
    male
    Location
    The Neterlands
    Posts
    78
    Reputation
    10
    Thanks
    6
    I knew i needed Cheat Engine, i was just asking the way how to!

    Its true, im H4ckBlood and im back,
    Still not afraid, Just Google me!

  4. #4
    H4ckBlood's Avatar
    Join Date
    Oct 2010
    Gender
    male
    Location
    The Neterlands
    Posts
    78
    Reputation
    10
    Thanks
    6
    I was searchin for rank so i found 2 addresses,
    0012E2AC
    0012E224

    These are the 2 good addresses, but if i set them in the memory hack.
    It wont work, also it wont work when i combine the who, and not when i let them search for those two codes and change, could someone help me out please!

    Its true, im H4ckBlood and im back,
    Still not afraid, Just Google me!

  5. #5
    lolbie's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Location
    Netherlands
    Posts
    5,207
    Reputation
    288
    Thanks
    2,090
    My Mood
    Angelic
    0012E2AC
    in vb
    &H012E2AC
    Last edited by lolbie; 02-28-2011 at 12:56 PM.
    I love it when people keep their agreements /sarcasm ftw

  6. #6
    H4ckBlood's Avatar
    Join Date
    Oct 2010
    Gender
    male
    Location
    The Neterlands
    Posts
    78
    Reputation
    10
    Thanks
    6
    Quote Originally Posted by lolbie View Post
    0012E2AC
    in vb
    &H012E2AC
    I use this method to enable the change:

    memoryh4x(&H12E2AC, TextBox1.Text, 4) 'Rank Level

    When i put in 012E2AC or 0012E2AC it auto change to 12E2AC
    What is wrong then?

    Its true, im H4ckBlood and im back,
    Still not afraid, Just Google me!

  7. #7
    lolbie's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Location
    Netherlands
    Posts
    5,207
    Reputation
    288
    Thanks
    2,090
    My Mood
    Angelic
    nah that's right
    wait let me test
    uhm you use textbox to fill in things and for what are those addresses ?
    I love it when people keep their agreements /sarcasm ftw

  8. #8
    H4ckBlood's Avatar
    Join Date
    Oct 2010
    Gender
    male
    Location
    The Neterlands
    Posts
    78
    Reputation
    10
    Thanks
    6
    Quote Originally Posted by lolbie View Post
    nah that's right
    wait let me test
    uhm you use textbox to fill in things and for what are those addresses ?
    Those are for rank, but i also found for wins and also not working

    This is for wins: 01B2B864

    Its true, im H4ckBlood and im back,
    Still not afraid, Just Google me!

  9. #9
    lolbie's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Location
    Netherlands
    Posts
    5,207
    Reputation
    288
    Thanks
    2,090
    My Mood
    Angelic
    hmm in cheat engine those works
    but i think your module doesn't inject into iw4mp.dat
    only .exe

    you have to put in the module
    iw4mp.dat
    not only
    iw4mp
    Last edited by lolbie; 02-28-2011 at 01:11 PM.
    I love it when people keep their agreements /sarcasm ftw

  10. #10
    H4ckBlood's Avatar
    Join Date
    Oct 2010
    Gender
    male
    Location
    The Neterlands
    Posts
    78
    Reputation
    10
    Thanks
    6

    Post

    double post 0.o
    Last edited by H4ckBlood; 02-28-2011 at 01:14 PM.

    Its true, im H4ckBlood and im back,
    Still not afraid, Just Google me!

  11. #11
    lolbie's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Location
    Netherlands
    Posts
    5,207
    Reputation
    288
    Thanks
    2,090
    My Mood
    Angelic
    hahaha it's not yours =.=

    Code:
    Module Injection
    
    #Region "Declarations"
    
    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 WriteFloatMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Private Declare Function ReadFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef buffer As Single, ByVal size As Int32, ByRef lpNumberOfBytesRead As Int32) As Boolean
    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
    
    Private string1 As Long
    Private string2 As Integer
    Private RBuff1 As Long
    Private RBuff2 As Single
    Private RBuff3 As Integer
    
    #End Region
    
    #Region "Check Process/ReadDll"
    
    Private Function readdll(ByVal modulename As String)
    Dim procmodule As ProcessModule
    Dim constant1 As Integer
    Dim constant2 As Long
    Dim constant3 As Process() = Process.GetProcessesByName("iw4mp")
    If constant3.Length = 0 Then
    Return 0
    End If
    For Each procmodule In constant3(0).Modules
    If modulename = procmodule.ModuleName Then
    constant1 = procmodule.BaseAddress
    End If
    Next
    constant2 = constant1
    Return constant2
    End Function
    
    Public Function IsProcessOpen(ByVal name As String) As Boolean
    
    For Each clsProcess As Process In Process.GetProcesses
    
    If clsProcess.ProcessName.Contains(name) Then
    
    
    Return True
    
    End If
    Next
    ' Do nothing 
    Return False
    End Function
    
    
    #End Region
    
    #Region "Hacks"
    
    'WriteMemory
    Private Function WriteMemory(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)
    Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp")
    If iw4mpLookUp.Length = 0 Then
    End
    End If
    Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)
    WriteProcessMemory(processHandle, Address, Value, Bytes, Nothing)
    CloseHandle(processHandle)
    
    Return Nothing
    End Function
    
    'WriteFloat
    Private Function WriteFloat(ByVal Address As Integer, ByVal Value As Single)
    Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp")
    If iw4mpLookUp.Length = 0 Then
    End
    End If
    Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)
    WriteFloatMemory(processHandle, Address, Value, 4, Nothing)
    CloseHandle(processHandle)
    
    Return Nothing
    End Function
    
    'NOP
    Private Function NOP(ByVal Address As Integer, ByVal value As Integer)
    Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp")
    If iw4mpLookUp.Length = 0 Then
    End
    End If
    Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)
    WriteProcessMemory(processHandle, Address, value, 1, Nothing)
    CloseHandle(processHandle)
    
    Return Nothing
    End Function
    
    #End Region
    
    #Region "Functions"
    
    Public Function memoryh4x(ByVal address As String, ByVal value As Long, ByVal bytes As Byte)
    If IsProcessOpen("iw4mp") Then
    
    string1 = readdll("cshell.dll")
    string2 = "&H" & Hex(string1 + address)
    WriteMemory(string2, value, bytes)
    End If
    Return Nothing
    End Function
    
    Public Function floath4x(ByVal address As String, ByVal value As Long)
    If IsProcessOpen("iw4mp") Then
    
    string1 = readdll("cshell.dll")
    string2 = "&H" & Hex(string1 + address)
    WriteFloat(string2, value)
    End If
    Return Nothing
    End Function
    
    Public Function noph4x(ByVal address As String, ByVal value As Long)
    If IsProcessOpen("iw4mp.dat") Then <<<<<<<<<<<<<<<<<<<<<<<<
    string1 = readdll("cshell.dll")
    string2 = "&H" & Hex(string1 + address)
    NOP(string2, value)
    
    
    End If
    Return Nothing
    End Function
    
    #End Region
    End Module
    and don't leech =.=
    it's not urs
    do this by everything

    If IsProcessOpen("iw4mp.dat") Then <<<<<<<<<<<<<<<<<<<<<<<<
    I love it when people keep their agreements /sarcasm ftw

  12. #12
    H4ckBlood's Avatar
    Join Date
    Oct 2010
    Gender
    male
    Location
    The Neterlands
    Posts
    78
    Reputation
    10
    Thanks
    6
    Quote Originally Posted by lolbie View Post
    hahaha it's not yours =.=
    Never said it was mine only that im using it -_-"
    Anyway i already changed it to that, but still not working 0.o

    Its true, im H4ckBlood and im back,
    Still not afraid, Just Google me!

  13. #13
    lolbie's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Location
    Netherlands
    Posts
    5,207
    Reputation
    288
    Thanks
    2,090
    My Mood
    Angelic
    u have to change them all =.=
    u have any knowledge about it?
    I love it when people keep their agreements /sarcasm ftw

  14. #14
    H4ckBlood's Avatar
    Join Date
    Oct 2010
    Gender
    male
    Location
    The Neterlands
    Posts
    78
    Reputation
    10
    Thanks
    6
    Quote Originally Posted by lolbie View Post
    u have to change them all =.=
    u have any knowledge about it?
    Yeah i have knowledge, -_-" ,
    I was Cookie™ on other forums, made many Injectors, own Intern OS system etc .and i already changed everything:

    Code:
    Module Injection
    
    #Region "Declarations"
    
            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 WriteFloatMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
            Private Declare Function ReadFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef buffer As Single, ByVal size As Int32, ByRef lpNumberOfBytesRead As Int32) As Boolean
            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
    
            Private string1 As Long
            Private string2 As Integer
            Private RBuff1 As Long
            Private RBuff2 As Single
            Private RBuff3 As Integer
    
    #End Region
    
    #Region "Check Process/ReadDll"
    
            Private Function readdll(ByVal modulename As String)
                Dim procmodule As ProcessModule
                Dim constant1 As Integer
                Dim constant2 As Long
            Dim constant3 As Process() = Process.GetProcessesByName("iw4mp.dat")
                If constant3.Length = 0 Then
                    Return 0
                End If
                For Each procmodule In constant3(0).Modules
                    If modulename = procmodule.ModuleName Then
                        constant1 = procmodule.BaseAddress
                    End If
                Next
                constant2 = constant1
                Return constant2
            End Function
    
            Public Function IsProcessOpen(ByVal name As String) As Boolean
    
                For Each clsProcess As Process In Process.GetProcesses
    
                    If clsProcess.ProcessName.Contains(name) Then
    
    
                        Return True
    
                    End If
                Next
                ' Do nothing 
                Return False
            End Function
    
    
    #End Region
    
    #Region "Hacks"
    
            'WriteMemory
            Private Function WriteMemory(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)
            Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp.dat")
                If iw4mpLookUp.Length = 0 Then
                    End
                End If
                Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)
                WriteProcessMemory(processHandle, Address, Value, Bytes, Nothing)
                CloseHandle(processHandle)
    
                Return Nothing
            End Function
    
            'WriteFloat
            Private Function WriteFloat(ByVal Address As Integer, ByVal Value As Single)
            Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp.dat")
                If iw4mpLookUp.Length = 0 Then
                    End
                End If
                Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)
                WriteFloatMemory(processHandle, Address, Value, 4, Nothing)
                CloseHandle(processHandle)
    
                Return Nothing
            End Function
    
            'NOP
            Private Function NOP(ByVal Address As Integer, ByVal value As Integer)
            Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp.dat")
                If iw4mpLookUp.Length = 0 Then
                    End
                End If
                Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)
                WriteProcessMemory(processHandle, Address, value, 1, Nothing)
                CloseHandle(processHandle)
    
                Return Nothing
            End Function
    
    #End Region
    
    #Region "Functions"
    
            Public Function memoryh4x(ByVal address As String, ByVal value As Long, ByVal bytes As Byte)
            If IsProcessOpen("iw4mp.dat") Then
    
                string1 = readdll("cshell.dll")
                string2 = "&H" & Hex(string1 + address)
                WriteMemory(string2, value, bytes)
            End If
                Return Nothing
            End Function
    
            Public Function floath4x(ByVal address As String, ByVal value As Long)
            If IsProcessOpen("iw4mp.dat") Then
    
                string1 = readdll("cshell.dll")
                string2 = "&H" & Hex(string1 + address)
                WriteFloat(string2, value)
            End If
                Return Nothing
            End Function
    
            Public Function noph4x(ByVal address As String, ByVal value As Long)
            If IsProcessOpen("iw4mp.dat") Then
                string1 = readdll("cshell.dll")
                string2 = "&H" & Hex(string1 + address)
                NOP(string2, value)
    
    
            End If
                Return Nothing
            End Function
    
    #End Region
        End Module
    Last edited by H4ckBlood; 02-28-2011 at 01:27 PM.

    Its true, im H4ckBlood and im back,
    Still not afraid, Just Google me!

  15. #15
    ♪~ ᕕ(ᐛ)ᕗ's Avatar
    Join Date
    Jun 2010
    Gender
    male
    Location
    Uterus
    Posts
    8,643
    Reputation
    748
    Thanks
    1,818
    My Mood
    Doh
    Quote Originally Posted by lolbie View Post
    hmm in cheat engine those works
    but i think your module doesn't inject into iw4mp.dat
    only .exe

    you have to put in the module
    iw4mp.dat
    not only
    iw4mp
    nope....
    Code:
    Dim p() As Process = Process.GetProcessByName("iw4mp")
    
    Public Sub Write()
           ........blalbalblablabllabla
           .... -> Dim id As Integer = p(1).Id
    End Sub
    Only what u have to change is the current index of the process.... Iw4mp.exe => 0
    Iw4mp.dat => 1
    Quote Originally Posted by KING View Post
    Stop FACKING SUMMONING ME TO THESE FUCKTARDS CONVOS.
    DAFUQ IS DIS FACKING SHYT.
    SHYT MAKES NO SENSE.

    On a side note. You fags are fucking hatting.
    You guys don't know shyt about spam.
    Danny would post on everysingle post every fucking hour, you couldnt tell which post was recent or anything. It was a fuck fest, he wouldnt have shyt to say....cares he posted like a fag he is.

    Josh made mutiple threads a day. And not just G, everywhere. That why everyone liked that dumb nikka.

    @Richard Nixon -Are you Endrat? @REAP @Digits2012 @Ghost -Son...I am dissapoint @Sjoerd -SMD @Canadian @FrosK -Dumb name is dumb @Nebulaa @That_Kid -Man Up @The XXX Devil -Oh look another joker avatar-how original and neat

    The rest who I didn't mention comment....Suck my left nut....but not to hard...it hurts.

Page 1 of 2 12 LastLast