Writememory?

[chesar]

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

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

[fr33k]

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

[chesar]

OK das Problem ist gelöst dank DNA

jetzt kommt das nächste

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?

[fr33k]

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^^

[chesar]

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

[fr33k]

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?

[chesar]

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.

[chesar]

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)

---

[fr33k]

(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

[DNA]

(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)

---