[VB.NET] Simples Gamehacking via Memoryediting

[Яonix]

SUper Tut gleich mal ausprobieren

[KennyJumpen]

Super Tutorial
Ich finds ehrlich gesagt gut, dass dort Fehler drin sind.
Ich mein.. GRUNDLAGEN SOLLTE MAN SCHON BEHERRSCHEN BEVOR MAN SICH MIT MEMORY EDITING BEFASST!

Win7 64 Bit klappt hervorragend!

[Ajax1337]

nice tut

[.Scare™]

hey @ all,

gerade für den Anfang, sry für das aufwühlen von dem Alten post!!

echt ein supi tut, nur aus irgent einem grund geht es bei mir nicht. ich bekomme keinen Fehler aber z.b. ich mache es zum testen mit Solitaire und da werden die punkte nicht angenommen.


mein fehler, ich habe nur die adresse ausgelesen, nicht den Base Pointer.

was mich aber interesieren würde, gibt es ein gutes tut dafür? den den basepointer zu finden ist nicht so leicht, da ich bei Solitär 3 pointer habe die zur gleichen addrese gehen und auch gleich oft, immer wen sich der punktestand ändert.

mfg

[mördan1337]

Originally Posted by LemoniscooL

Hi!

@Shishidump mach es so:

Dim BaseAdress As Integer = &H105F1A58
Dim Offset As Integer = &HFC46C
Label2.Text = ReadLongPointer(Prozess1, BaseAdress, Offset, 255)

so funktionierts bei mir..

greetz

Hallo,

ich versuche gerade den Geldstand eines Spiels mit Mi4uric3s Tutorial zu ändern (Windows 7, 32bit).
Nachdem ich das Spiel gestartet hatte, las ich die Adresse mit Cheat Engine aus und alles funktionierte einwandfrei.

Da sich die Adresse beim Spielneustart ändert, wollte ich im nächsten Schritt Pointer verwenden.
Ich erhielt:

"RPG_RT.exe"+0009DBE8 -> 066EC900
066EC900 + 1C = 066EC91C

Dabei ist "066EC91C" meine endgültige, temporäre aber dynamische Adresse und "1C" der Offset.
Wenn ich es richtig verstanden habe, ist die Baseadress "066EC900", die jedoch auch dynamisch ist. Das liegt daran, dass die Adresse von "RPG_RT.exe" bei jedem Spielstart anders ist.

Meine Frage lautet nun im Bezug zum Tutorial:
Statt "ReadLong" benutze ich "ReadLongPointer" und statt "Writememory" "WriteLongPointer". Meine Schwierigkeit besteht nun darin, ein Argument für "BaseAdress" zu übergeben, da dieses, wie beschrieben, dynamisch ist.
Wie kann ich bei Benutzung dieses Programmes die Adresse des "RPG_RT.exe"-Prozesses auslesen, damit ich diese in Form der Baseadress korrekt übergeben kann?

[Mi4uric3]

Das Tutorial ist total behindert ich muss das dringend überarbeiten.
2009 hatte ich halt noch nicht wirklich viel Verständnis davon..

€dit: So habs mal überarbeitet, bitte gebt mir mal Rückmeldung dazu.

[-Soni©-]

TuT ist echt Super! Komme nach einigen malen durchlesen recht gut mit klar, doch habe ich i.wie ein Problem mit der Anwendung, bzw. werd ich nicht ganz draus schlau, was ich in die Anwendung schreiben soll.. Die NativeMethods hab ich fertig, alles so wie auf dem Screenshot, aber nett wäre vlt gewesen wenn du noch n Screen zu der Anwendung machst :/

Könnte das mal jemand übernehmen, also nen Screenshot von der(/dem) Anwendung(s-Code) machen ? Fänd ich sehr hilfreich :P

Sry fürs Pushen aber des würde mich sehr Interessieren

[ramijafary1]

Nice
but can anyone make a English tutorial Q,Q"

[L!ghtning]

gutes tutorial aber warum nicht einfach in C++ in ner .dll
wäre:

1. leichter
2. du kannst directx benutzen (etc.)
3. Du kannst wenn das game einen hackschutz besitzt einen hook coden der deinen hack undetected macht
4. du kannst einen bypass schreiben
5. alle funktionen sind schon vorhanden wie writeprocessmemory, openprocess (etc.)

[davydavekk]

Good tutorial

But how do we do if we have to deal with multi-level pointers ?

[-Soni©-]

Originally Posted by L!ghtning

gutes tutorial aber warum nicht einfach in C++ in ner .dll
wäre:

1. leichter
2. du kannst directx benutzen (etc.)
3. Du kannst wenn das game einen hackschutz besitzt einen hook coden der deinen hack undetected macht
4. du kannst einen bypass schreiben
5. alle funktionen sind schon vorhanden wie writeprocessmemory, openprocess (etc.)

Du könntest ja mal ein TuT machen, wo diese Punkte ausführlich erklärt werden

[Mi4uric3]

Originally Posted by L!ghtning

gutes tutorial aber warum nicht einfach in C++ in ner .dll
wäre:

1. leichter
2. du kannst directx benutzen (etc.)
3. Du kannst wenn das game einen hackschutz besitzt einen hook coden der deinen hack undetected macht
4. du kannst einen bypass schreiben
5. alle funktionen sind schon vorhanden wie writeprocessmemory, openprocess (etc.)

Wo ist der Sinn? Das hier ist ein VB.Net Tutorial, kein C++ Tutorial.

Originally Posted by davydavekk

Good tutorial

But how do we do if we have to deal with multi-level pointers ?

I made an example for that in the 1st post:

PHP Code:

Dim MyFloat As Single = 0
Dim PointerValue As Integer = 0
NativeMethods.ReadInteger(&H401234, PointerValue)
If PointerValue > 0 Then NativeMethods.ReadInteger(PointerValue + &H1234, PointerValue)
If PointerValue > 0 Then NativeMethods.ReadSingle(PointerValue, MyFloat) 


[Sergeant Wasabi]

Huhu,

Ich weiß das Tutorial ist ein wenig älter, ich habe aber ein Problem mit dem Code.
Ich kriege bei dieser Zeile immer einen StackOverflow

PHP Code:

NativeMethods.ProcessHandle = NativeMethods.OpenProcess(NativeMethods.OpenProcess(&H1F0FFF, False, pid)) 


Mein gesamter Code

PHP Code:

Imports System.Runtime.InteropServices

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If NativeMethods.OpenProcess(Process.GetProcessesByName("csgo")(0).Id) = True Then ' .exe weglassen, falls der (Spiele-)Prozess auf .exe endet. ' 
            Label2.ForeColor = Color.Green
            Label2.Text = "Injected"

            Dim MyFloat As Single = 0
            Dim PointerValue As Integer = 0
            NativeMethods.ReadInteger(&H401234, PointerValue)
            If PointerValue > 0 Then NativeMethods.ReadInteger(PointerValue + &H1234, PointerValue)
            If PointerValue > 0 Then NativeMethods.ReadSingle(PointerValue, MyFloat)

            Label4.Text = MyFloat
        Else
            Label2.ForeColor = Color.Red
            Label2.Text = "Fail!"
        End If
    End Sub
End Class

Public Class NativeMethods

    <DllImport("kernel32.dll", SetLastError:=True)> _
    Public Shared Function OpenProcess(ByVal DesiredAccess As Integer, ByVal InheritHandle As Boolean, ByVal ProcessID As Integer) As IntPtr
    End Function
    <DllImport("kernel32.dll", SetLastError:=True)> _
    Private Shared Function CloseHandle(ByVal Handle As IntPtr) As Boolean
    End Function
    <DllImport("kernel32.dll", SetLastError:=True)> _
    Private Shared Function ReadProcessMemory(ByVal ProcessHandle As IntPtr, ByVal Address As IntPtr, ByRef Buffer As Byte(), ByVal Size As Integer, ByRef NumberOfBytesRead As Integer) As Boolean
    End Function
    <DllImport("kernel32.dll", SetLastError:=True)> _
    Private Shared Function WriteProcessMemory(ByVal ProcessHandle As IntPtr, ByVal Address As IntPtr, ByVal Buffer As Byte(), ByVal Size As Integer, ByRef NumberOfBytesWritten As Integer) As Boolean
    End Function

    Private Shared ProcessHandle As IntPtr = IntPtr.Zero

    Friend Shared Function OpenProcess(ByVal pid As Integer) As Boolean
        NativeMethods.ProcessHandle = NativeMethods.OpenProcess(NativeMethods.OpenProcess(&H1F0FFF, False, pid))
        Return IIf(NativeMethods.ProcessHandle = IntPtr.Zero, False, True)
    End Function

    Friend Shared Function CloseHandle()
        If NativeMethods.ProcessHandle = IntPtr.Zero Then Return False
        Return NativeMethods.CloseHandle(NativeMethods.ProcessHandle)
    End Function

    Friend Shared Function ReadArray(ByVal Address As IntPtr, ByRef Buffer As Byte(), ByVal Size As Integer) As Boolean ' CE: Array of Bytes ' 
        If ProcessHandle = IntPtr.Zero Then Return False
        Return NativeMethods.ReadProcessMemory(ProcessHandle, Address, Buffer, Size, 0)
    End Function

    Friend Shared Function ReadByte(ByVal Address As IntPtr, ByRef Buffer As Byte) As Boolean ' CE: 1 Byte ' 
        If ProcessHandle = IntPtr.Zero Then Return False
        Dim tBuffer As Byte() = {0}
        Dim ret As Boolean = NativeMethods.ReadProcessMemory(ProcessHandle, Address, tBuffer, 1, 0)
        If ret = True Then Buffer = tBuffer(0)
        Return ret
    End Function

    Friend Shared Function ReadShort(ByVal Address As IntPtr, ByRef Buffer As Short) As Boolean ' CE: 2 Bytes ' 
        If ProcessHandle = IntPtr.Zero Then Return False
        Dim tBuffer As Byte() = {0, 0}
        Dim ret As Boolean = NativeMethods.ReadProcessMemory(ProcessHandle, Address, tBuffer, 2, 0)
        If ret = True Then Buffer = BitConverter.ToInt16(tBuffer, 0)
        Return ret
    End Function

    Friend Shared Function ReadInteger(ByVal Address As IntPtr, ByRef Buffer As Integer) As Boolean ' CE: 4 Bytes ' 
        If ProcessHandle = IntPtr.Zero Then Return False
        Dim tBuffer As Byte() = {0, 0, 0, 0}
        Dim ret As Boolean = NativeMethods.ReadProcessMemory(ProcessHandle, Address, tBuffer, 4, 0)
        If ret = True Then Buffer = BitConverter.ToInt32(tBuffer, 0)
        Return ret
    End Function

    Friend Shared Function ReadLong(ByVal Address As IntPtr, ByRef Buffer As Long) As Boolean ' CE: 8 Bytes ' 
        If ProcessHandle = IntPtr.Zero Then Return False
        Dim tBuffer As Byte() = {0, 0, 0, 0, 0, 0, 0, 0}
        Dim ret As Boolean = NativeMethods.ReadProcessMemory(ProcessHandle, Address, tBuffer, 8, 0)
        If ret = True Then Buffer = BitConverter.ToInt64(tBuffer, 0)
        Return ret
    End Function

    Friend Shared Function ReadSingle(ByVal Address As IntPtr, ByRef Buffer As Single) As Boolean ' CE: Float ' 
        If ProcessHandle = IntPtr.Zero Then Return False
        Dim tBuffer As Byte() = {0, 0, 0, 0}
        Dim ret As Boolean = NativeMethods.ReadProcessMemory(ProcessHandle, Address, tBuffer, 8, 0)
        If ret = True Then Buffer = BitConverter.ToSingle(tBuffer, 0)
        Return ret
    End Function

    Friend Shared Function ReadDouble(ByVal Address As IntPtr, ByRef Buffer As Double) As Boolean ' CE: Double ' 
        If ProcessHandle = IntPtr.Zero Then Return False
        Dim tBuffer As Byte() = {0, 0, 0, 0, 0, 0, 0, 0}
        Dim ret As Boolean = NativeMethods.ReadProcessMemory(ProcessHandle, Address, tBuffer, 8, 0)
        If ret = True Then Buffer = BitConverter.ToDouble(tBuffer, 0)
        Return ret
    End Function

    Friend Shared Function ReadString(ByVal Address As IntPtr, ByRef Buffer As String, ByVal Length As Integer) As Boolean ' String mit bekannter Länge, schnell ' 
        If ProcessHandle = IntPtr.Zero Then Return False
        Dim tBuffer As Byte() = {}
        Dim ret As Boolean = NativeMethods.ReadProcessMemory(ProcessHandle, Address, tBuffer, Length, 0)
        If ret = True Then Buffer = BitConverter.ToString(tBuffer, 0)
        Return ret
    End Function

    Friend Shared Function ReadString(ByVal Address As IntPtr, ByRef Buffer As String) As Boolean ' String mit unbekannter Länge, braucht länger ' 
        If ProcessHandle = IntPtr.Zero Then Return False
        Dim tBuffer As Byte() = {}
        Dim ret As Boolean = False
        Do
            ret = NativeMethods.ReadProcessMemory(ProcessHandle, Address, tBuffer, 1, 0)
            If ret = True Then If tBuffer(0) <> 0 Then Buffer &= BitConverter.ToString(tBuffer, 0)
        Loop While tBuffer(0) <> 0
        Return ret
    End Function

    Friend Shared Sub WriteArray(ByVal Address As IntPtr, ByVal Buffer As Byte()) ' CE: Array of Bytes ' 
        If ProcessHandle = IntPtr.Zero Then Exit Sub
        WriteProcessMemory(ProcessHandle, Address, Buffer, Buffer.Length, 0)
    End Sub

    Friend Shared Sub WriteByte(ByVal Address As IntPtr, ByVal Buffer As Byte) ' CE: 1 Byte ' 
        If ProcessHandle = IntPtr.Zero Then Exit Sub
        Dim tBuffer As Byte() = BitConverter.GetBytes(Buffer)
        WriteProcessMemory(ProcessHandle, Address, tBuffer, 1, 0)
    End Sub

    Friend Shared Sub WriteShort(ByVal Address As IntPtr, ByVal Buffer As Short) ' CE: 2 Bytes ' 
        If ProcessHandle = IntPtr.Zero Then Exit Sub
        Dim tBuffer As Byte() = BitConverter.GetBytes(Buffer)
        WriteProcessMemory(ProcessHandle, Address, tBuffer, 2, 0)
    End Sub

    Friend Shared Sub WriteInteger(ByVal Address As IntPtr, ByVal Buffer As Integer) ' CE: 4 Bytes ' 
        If ProcessHandle = IntPtr.Zero Then Exit Sub
        Dim tBuffer As Byte() = BitConverter.GetBytes(Buffer)
        WriteProcessMemory(ProcessHandle, Address, tBuffer, 4, 0)
    End Sub

    Friend Shared Sub WriteLong(ByVal Address As IntPtr, ByVal Buffer As Long) ' CE: 8 Bytes ' 
        If ProcessHandle = IntPtr.Zero Then Exit Sub
        Dim tBuffer As Byte() = BitConverter.GetBytes(Buffer)
        WriteProcessMemory(ProcessHandle, Address, tBuffer, 8, 0)
    End Sub

    Friend Shared Sub WriteSingle(ByVal Address As IntPtr, ByVal Buffer As Single) ' CE: Float ' 
        If ProcessHandle = IntPtr.Zero Then Exit Sub
        Dim tBuffer As Byte() = BitConverter.GetBytes(Buffer)
        WriteProcessMemory(ProcessHandle, Address, tBuffer, 4, 0)
    End Sub

    Friend Shared Sub WriteDouble(ByVal Address As IntPtr, ByVal Buffer As Double) ' CE: Double ' 
        If ProcessHandle = IntPtr.Zero Then Exit Sub
        Dim tBuffer As Byte() = BitConverter.GetBytes(Buffer)
        WriteProcessMemory(ProcessHandle, Address, tBuffer, 8, 0)
    End Sub

    Friend Shared Sub WriteString(ByVal Address As IntPtr, ByVal Buffer As String) ' CE: String ' 
        If ProcessHandle = IntPtr.Zero Then Exit Sub
        Dim tBuffer As Byte() = System.Text.Encoding.ASCII.GetBytes(Buffer)
        WriteProcessMemory(ProcessHandle, Address, tBuffer, Buffer.Length, 0)
    End Sub

    Friend Shared Sub WriteUnicodeString(ByVal Address As IntPtr, ByVal Buffer As String) ' CE: Unicode String ' 
        If ProcessHandle = IntPtr.Zero Then Exit Sub
        Dim tBuffer As Byte() = System.Text.Encoding.Unicode.GetBytes(Buffer)
        WriteProcessMemory(ProcessHandle, Address, tBuffer, Buffer.Length * 2, 0)
    End Sub

End Class 


[Mi4uric3]

Originally Posted by Sergeant Wasabi

Huhu,

Ich weiß das Tutorial ist ein wenig älter, ich habe aber ein Problem mit dem Code.
Ich kriege bei dieser Zeile immer einen StackOverflow

PHP Code:

NativeMethods.ProcessHandle = NativeMethods.OpenProcess(NativeMethods.OpenProcess(&H1F0FFF, False, pid)) 


Das ist ja auch völliger Unfug was du da tust.
Zuerst rufst du die Funktion

PHP Code:

Friend Shared Function OpenProcess(ByVal pid As Integer) As Boolean 


mit deinem Code:

If NativeMethods.OpenProcess(Process.GetProcessesByName("csgo")(0).Id) = True Then

auf.
Diese ruft intern sich selbst auf

PHP Code:

NativeMethods.OpenProcess(RichtigeOpenProcessFunktion(DesiredAccess, InheritHandle, ProcessId) 


Da sie sich immer und immer wieder selbst aufruft kommt es dann natürlich zu einem Stack Overflow.

[Sergeant Wasabi]

Na ja, so stands halt im Tutorial. Da ging ich von aus das das so stimmt. Wie mach ichs richtig?