[VB.NET] Simples Gamehacking via Memoryediting

[Mi4uric3]

Originally Posted by Sergeant Wasabi

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

Völliger Unsinn, hab ich direkt mal korrigiert, muss beim Umwandeln von Code in ein Tutorial passiert sein.
Danke fürs Aufzeigen!

[Sergeant Wasabi]

Danke.

[DieterPolen]

Wollte mal was für GTA5 ausprobieren, gibt mir aber immer nur 0 als Wert zurück -.-
warum ist das so?

Base Adresse ist ja immer anders aber in diesem Fall war die Richtige: 13ffe0000
und die statische addy: 1A94D08
"GTA5.exe+1A94D08" CE lässt grüßen
-> zeigt im SinglePlayer Munition an


da die Base von GTA5 in dem Fall 13ffe0000 ist/war gehe ich davon aus das es ein 64bit Prozess ist weils ja 9 Hex Zahlen sind, nicht?

 Spoiler

If NativeMethods.OpenProcess(Process.GetProcessesByNa me("GTA5")(0).Id) = True Then '
Label1.Text = "GTA5 läuft"
Else
Label1.Text = "GTA5 läuft nicht"
End If
NativeMethods.CloseHandle()
Dim MyFloat As Single = 0
Dim PointerValue As Integer = 0
NativeMethods.ReadInteger(&H13FFE0000, PointerValue)
If PointerValue > 0 Then NativeMethods.ReadInteger(PointerValue + &H1A94D08, PointerValue)
If PointerValue > 0 Then NativeMethods.ReadSingle(PointerValue, MyFloat)

MsgBox(MyFloat)

kann mir bitte wer helfen?

[Mi4uric3]

Originally Posted by DieterPolen

ReadInteger

Hab mich länger nicht mehr damit beschäftigt, aber was mir aufgefallen ist, ist dass ReadInteger ist hier schonmal völlig falsch angebracht ist. Integer Werte können nämlich maximal 4 Bytes enthalten, 64 bit Pointer aber 8.

[warfley]

Originally Posted by DieterPolen

Wollte mal was für GTA5 ausprobieren, gibt mir aber immer nur 0 als Wert zurück -.-
warum ist das so?

Base Adresse ist ja immer anders aber in diesem Fall war die Richtige: 13ffe0000
und die statische addy: 1A94D08
"GTA5.exe+1A94D08" CE lässt grüßen
-> zeigt im SinglePlayer Munition an


da die Base von GTA5 in dem Fall 13ffe0000 ist/war gehe ich davon aus das es ein 64bit Prozess ist weils ja 9 Hex Zahlen sind, nicht?

 Spoiler

If NativeMethods.OpenProcess(Process.GetProcessesByNa me("GTA5")(0).Id) = True Then '
Label1.Text = "GTA5 läuft"
Else
Label1.Text = "GTA5 läuft nicht"
End If
NativeMethods.CloseHandle()
Dim MyFloat As Single = 0
Dim PointerValue As Integer = 0
NativeMethods.ReadInteger(&H13FFE0000, PointerValue)
If PointerValue > 0 Then NativeMethods.ReadInteger(PointerValue + &H1A94D08, PointerValue)
If PointerValue > 0 Then NativeMethods.ReadSingle(PointerValue, MyFloat)

MsgBox(MyFloat)

kann mir bitte wer helfen?

Im Hexadecimal System bilden 1 Buchstabe 4 Bit ab. Ist der Adressraum nun durch 32 Bit begrenzt ist die Adresse zwischen 0 und 32/4 = 8 Zeichen im Hexadezimal System lang, bei 64 bit können die Adressen bis zu 16 Zeichen lang werden, da mehr als 1,8x10^19 Bytes Adressiert werden können. Nun kann Integer (32 Bit Ganzzahlen) nicht diese Werte Annehmen, das heißt aus z.b. 0x13ffe0000 wird 0x3ffe0000 eine schlappe Verschiebung um 16^9.

Nutze für Operationen auf Speicheradressen den Typen IntPtr, das ist ein Integer von der Größe eines Pointers (also 8, 16, 32, 64 bit je nach system)