Home of Gamehacking - Archiv
Writememory? - Druckversion

+- Home of Gamehacking - Archiv (http://archiv-homeofgamehacking.de)
+-- Forum: Coding (http://archiv-homeofgamehacking.de/forumdisplay.php?fid=15)
+--- Forum: Visual Basic 6, VB.NET (http://archiv-homeofgamehacking.de/forumdisplay.php?fid=19)
+--- Thema: Writememory? (/showthread.php?tid=58)

Seiten: 1 2 3 4

Writememory? - chesar - 21.08.2010

Erst mal muss ich Sagen das ich eure Seite echt cool finde Happy

Jetzt zu mein Problem Ich hab für Mw2 ein Host Hack geschrieben in den ich jetzt aber noch ein No Recoil Hack mit ein bauen will die Adressen hat mir ein guter freund aus ein anderen Forum gegeben.

Wie Schreibe ich die Adressen in VB2008?

No recoil:
0x004DDF77
orig bytes: 0xE8, 0x44, 0x97, 0x01, 0x00
patch: 0x90, 0x90, 0x90, 0x90, 0x90
OR
0x004F76C0
orig: 0x83, 0xEC, 0x0C
patch: 0xC3, 0x90, 0x90

RE: Writememory? - fr33k - 21.08.2010

Ich unterstütze normalerweise keine MP-Sachen, aber denke du solltest dir mal das Videotutorial von DNA anschauen, dann müsste deine frage beantwortet sein

RE: Writememory? - chesar - 24.08.2010

OK das Problem ist gelöst dank DNA

jetzt kommt das nächste Smiling

Ich möchte die Adressen

0x0050A510
0x0050A518
0x0050A52A

mit der Patchen

0x9090

das habe ich so gemacht

Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Public Class Form1
    Private Const ProcName = "iw4mp"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GetProcessId(ProcName)

        Dim addi = &H50A510
        Dim nopbytes() As Byte = {&H90, &H90}
        autopatcher(addi, nopbytes)

        Dim addi1 = &H50A518
        Dim nopbytes1() As Byte = {&H90, &H90}
        autopatcher(addi1, nopbytes1)

        Dim addi2 = &H50A52A
        Dim nopbytes2() As Byte = {&H90, &H90}
        autopatcher(addi2, nopbytes2)

    End Sub
End Class


geht aber leider nicht die exe bricht immer ein!
ist doch eigentlich richtig oder?

RE: Writememory? - fr33k - 25.08.2010

probier es mal hiermit:

Zitat:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
GetProcessId(ProcName)
Write_Byte(&H50A510, "9090")

bei VB6 ging das, ob das mit VB08 noch so geht weiss ich leider nicht, bin gerade am umsteigen

und schon wieder MP-Hkz^^

RE: Writememory? - chesar - 25.08.2010

Ne geht leider nicht ist muss die 3 Adresse mit jeweils 2 nops patchen
aber wie stellen ich das an?

vielleicht hat DNA ne idee

RE: Writememory? - fr33k - 25.08.2010

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
GetProcessId(ProcName)
Write_Byte(&H50A510, "9090")
Write_Byte(&H50A518, "9090")
Write_Byte(&H50A52A, "9090")

???
um welches game geht es? Call of Duty mw2 oder?
was willst du genau da machen? No Recoil sind andere Addis, und update gab es bestimmt zwischenzeitlich wieder.
Willst du nur für den SP was machen oder auch MP bereich?

RE: Writememory? - chesar - 25.08.2010

Ja MW2 MP ich weiß ihr unterstützt eigentlich nicht MP Cheats.

Das sind die Chopper ESP Adressen.

Ja genau so wie du habe ich es gemacht leider ohne erfolg.

RE: Writememory? - chesar - 02.09.2010

Ist das so richtige wenn ich die 3 Adressen mit jeweils 2 Nops Patchen muss?

Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
 
 GetProcessId(ProcName)

        Dim addi = &H50A510
        Dim nopbytes() As Byte = {&H90, &H90}
        autopatcher(addi, nopbytes)

        Dim addi1 = &H50A518
        Dim nopbytes1() As Byte = {&H90, &H90}
        autopatcher(addi1, nopbytes1)

        Dim addi2 = &H50A52A
        Dim nopbytes2() As Byte = {&H90, &H90}
        autopatcher(addi2, nopbytes2)



RE: Writememory? - fr33k - 02.09.2010

(02.09.2010, 14:08)chesar schrieb: Ist das so richtige wenn ich die 3 Adressen mit jeweils 2 Nops Patchen muss?

Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
 
 GetProcessId(ProcName)

        Dim addi = &H50A510
        Dim nopbytes() As Byte = {&H90, &H90}
        autopatcher(addi, nopbytes)

        Dim addi1 = &H50A518
        Dim nopbytes1() As Byte = {&H90, &H90}
        autopatcher(addi1, nopbytes1)

        Dim addi2 = &H50A52A
        Dim nopbytes2() As Byte = {&H90, &H90}
        autopatcher(addi2, nopbytes2)


müsste mit

Code:
1
2
3
4
5
6
7
8
 
Write_Long(&H50A510, &H90)
Write_Long(&H50A511, &H90)

Write_Long(&H50A518, &H90)
Write_Long(&H50A519, &H90)

Write_Long(&H50A52A, &H90)
Write_Long(&H50A52B, &H90)



auch gehen spast dir die declerationen von den addis

RE: Writememory? - DNA - 02.09.2010

(02.09.2010, 14:08)chesar schrieb: Ist das so richtige wenn ich die 3 Adressen mit jeweils 2 Nops Patchen muss?

Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
 
 GetProcessId(ProcName)

        Dim addi = &H50A510
        Dim nopbytes() As Byte = {&H90, &H90}
        autopatcher(addi, nopbytes)

        Dim addi1 = &H50A518
        Dim nopbytes1() As Byte = {&H90, &H90}
        autopatcher(addi1, nopbytes1)

        Dim addi2 = &H50A52A
        Dim nopbytes2() As Byte = {&H90, &H90}
        autopatcher(addi2, nopbytes2)


Ja, so wäre das richtig ...

@fr33k
So wird nicht ganz funktionieren, da du
Write_Long nimmst und das is für 4 Bytes

folgendes sollte auch funktionieren:



Code:
1
2
3
4
5
6
7
8
 
Write_Byte(&H50A510, &H90)
Write_Byte(&H50A511, &H90)

Write_Byte(&H50A518, &H90)
Write_Byte(&H50A519, &H90)

Write_Byte(&H50A52A, &H90)
Write_Byte(&H50A52B, &H90)