Results 1 to 11 of 11
  1. #1
    Geometrical's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Location
    In the middle of nowhere.
    Posts
    1,036
    Reputation
    331
    Thanks
    10,028
    My Mood
    Chatty

    Lightbulb VB.Net Name Faker Class re-written by Geometrical

    I've re-written @Jorndel 's C# Nake Faker Class in VB.Net, for those of you didn't understand it.

    Add this class to your project.

    Code:
        'OpenProcess to get a handle to our target process and open it with the rights we require.
        Private Declare Function OpenProcess Lib "Kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
    
        'ReadProcessMemory to read the target process address space.
        Private Declare Function WriteProcessMemory Lib "Kernel" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <[In](), Out()> ByVal buffer As Byte(), ByVal size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32
    
        'WriteProcessMemory to write to the target process address space.
        Private Declare Function ReadProcessMemory Lib "Kernel32" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <[In](), Out()> ByVal buffer As Byte(), ByVal size As UInt32, ByRef lpNumberOfBytesRead As IntPtr) As Int32
    
        Private ProcessName As String = "IW5MP"
        Private R As IntPtr
    
        Private Function TargetProcess() As IntPtr
            If System.Diagnostics.Process.GetProcessesByName(ProcessName).Length = 1 Then
                Return System.Diagnostics.Process.GetProcessesByName(ProcessName)(0).Handle
            End If
            Return New IntPtr(0)
        End Function
    
        Private Function ReadInteger(ByVal Address As Integer) As Integer
            Dim Buffer As Byte() = New Byte(3) {}
            ReadProcessMemory(TargetProcess(), New IntPtr(Address), New Byte(3) {}, CUInt(4), R)
            Return BitConverter.ToInt32(buffer, 0)
        End Function
    
        Private Function ReadString(ByVal Address As Integer, ByVal Length As Integer) As String
            Dim Buffer As Byte() = New Byte(Length - 1) {}
            ReadProcessMemory(TargetProcess(), New IntPtr(Address), buffer, CUInt(buffer.Length), R)
            Return New System.Text.ASCIIEncoding().GetString(buffer, 0, Length)
        End Function
    
        Private Function BaseAddress(ByVal ModuleName As String) As UInteger
            If Process.GetProcessesByName(ProcessName).Length <> 0 Then
                For Each MainModule As ProcessModule In Process.GetProcessesByName(ProcessName)(0).Modules
                    If MainModule.ModuleName = ModuleName Then
                        Return CUInt(MainModule.BaseAddress.ToInt32())
                    End If
                Next
                Return 0
            Else
                Return 0
            End If
        End Function
    
        Public Sub FakeName(ByVal Name As String)
            Dim Base As UInteger = BaseAddress("Steam_api.dll") + &H
            Dim Runner As UInteger = ReadInteger(Base) + &H
            Runner = ReadInteger(Runner) + &H
            Runner = ReadInteger(Runner) + &H
            WriteString(CInt(Runner), Name)
        End Sub
    End Class
    If your wondering how to use it.

    Code:
    FakeName("Geometrical")
    Feel free to use it
    Last edited by Geometrical; 12-21-2012 at 07:52 AM.

  2. #2
    Coper's Avatar
    Join Date
    Nov 2012
    Gender
    male
    Location
    BlackOps3.exe
    Posts
    449
    Reputation
    17
    Thanks
    3,346
    My Mood
    In Love
    Thx geometricallllllll

  3. #3
    Geometrical's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Location
    In the middle of nowhere.
    Posts
    1,036
    Reputation
    331
    Thanks
    10,028
    My Mood
    Chatty
    Quote Originally Posted by Coper View Post
    Thx geometricallllllll
    Forgot to add the WriteString function, you can add that yourself.

  4. #4
    Coper's Avatar
    Join Date
    Nov 2012
    Gender
    male
    Location
    BlackOps3.exe
    Posts
    449
    Reputation
    17
    Thanks
    3,346
    My Mood
    In Love
    no prob!

  5. #5
    TheTrust3343's Avatar
    Join Date
    Aug 2012
    Gender
    male
    Posts
    11
    Reputation
    10
    Thanks
    4
    How to find the BaseAdresses?

  6. #6
    Kenshin13's Avatar
    Join Date
    May 2011
    Gender
    male
    Location
    Cloud 9
    Posts
    3,473
    Reputation
    564
    Thanks
    5,876
    My Mood
    Psychedelic
    Quote Originally Posted by TheTrust3343 View Post
    How to find the BaseAdresses?
    By searching for strings under CE most likely.

  7. The Following User Says Thank You to Kenshin13 For This Useful Post:

    Geometrical (12-26-2012)

  8. #7
    TheTrust3343's Avatar
    Join Date
    Aug 2012
    Gender
    male
    Posts
    11
    Reputation
    10
    Thanks
    4
    so i have to search for my name in MW3 ?
    and then i let cheat engine check all pointers?

  9. #8
    Jorndel's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Location
    Norway
    Posts
    8,674
    Reputation
    905
    Thanks
    18,537
    My Mood
    Angelic
    Quote Originally Posted by TheTrust3343 View Post
    so i have to search for my name in MW3 ?
    and then i let cheat engine check all pointers?
    Correct, and keep in mind you should re-search for pointers once you re-start the game

     
    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

  10. #9
    ViPeR124's Avatar
    Join Date
    Dec 2012
    Gender
    male
    Posts
    41
    Reputation
    10
    Thanks
    1,046
    My Mood
    Cool
    When i´m searching for pointers via cheat engine. It finds more than 1 million oO

  11. #10
    Kenshin13's Avatar
    Join Date
    May 2011
    Gender
    male
    Location
    Cloud 9
    Posts
    3,473
    Reputation
    564
    Thanks
    5,876
    My Mood
    Psychedelic
    Quote Originally Posted by ViPeR124 View Post
    When i´m searching for pointers via cheat engine. It finds more than 1 million oO
    Which is why Jorndel said you need to rescan them once you restart the game. Do it 2-3x to be sure. Then pick one!

  12. #11
    TheTrust3343's Avatar
    Join Date
    Aug 2012
    Gender
    male
    Posts
    11
    Reputation
    10
    Thanks
    4
    Quote Originally Posted by ViPeR124 View Post
    When i´m searching for pointers via cheat engine. It finds more than 1 million oO
    same here :P

    Quote Originally Posted by Kenshin13 View Post
    Which is why Jorndel said you need to rescan them once you restart the game. Do it 2-3x to be sure. Then pick one!
    Ok i will try it

Similar Threads

  1. [Source Code] MW3 Name Faker Class (+Dragon Tool)
    By Jorndel in forum Call of Duty Modern Warfare 3 Coding, Programming & Source Code
    Replies: 31
    Last Post: 06-15-2015, 03:35 AM
  2. [Patched] MPGH Name Faker v4.0 [Updated]
    By Jorndel in forum Call of Duty - Modern Warfare 3 (MW3) Hacks & Cheats
    Replies: 53
    Last Post: 05-31-2012, 02:05 PM
  3. [Patched] MPGH Name Faker v4.0
    By Jorndel in forum Call of Duty - Modern Warfare 3 (MW3) Hacks & Cheats
    Replies: 25
    Last Post: 04-17-2012, 09:16 PM
  4. [Patched] MPGH Name Faker V2
    By Coridus in forum Call of Duty - Modern Warfare 3 (MW3) Hacks & Cheats
    Replies: 20
    Last Post: 04-01-2012, 01:38 PM
  5. [Patched] MPGH Name Faker
    By Jorndel in forum Call of Duty - Modern Warfare 3 (MW3) Hacks & Cheats
    Replies: 38
    Last Post: 03-16-2012, 11:41 AM