[VB.NET] Simples Gamehacking via Memoryediting

[HardCore.1337]

Write steht für schreiben
Wenn du was lesen willst gibt es Read

[Bruno1212]

Ich muss ja erst die memory schreiben bevor ich sie auslesen kann!


Mfg Bruo1212

[Shishidump]

Hey,

Wie mach ich das mit dem Pointer?

Habe das jetzt so versucht, aber es geht nicht, da mein Offsetkein Short ist..
Aber ich weis nicht wie ich es anders hinbekomm.

Label2.Text = ReadLongPointer(Prozess1, &H105F1A58, &HFC46C, 4)

[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

[Elite-1337]

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, [COLOR="Red"]255[/COLOR])

so funktionierts bei mir..

greetz

wieso 255? sind doch i.d.R 4 Byte die man lesen will?

P.S.: das Ganze wird auf 64Bit ohne Änderungen wahrscheinlich nicht mehr funktionieren, da die Speicherverwaltung anders ist

[Rapante]

Da ich noch neu bin im bereich der Coder habe ich mal eine frage: wie finde ich die Adresse der Leben in Cheat Engine raus?

Mfg Rapante

[KnifeHunter]

Originally Posted by Rapante

Da ich noch neu bin im bereich der Coder habe ich mal eine frage: wie finde ich die Adresse der Leben in Cheat Engine raus?

Mfg Rapante

hi,

ich habe gerade erst mit dem memory editing angefangen.
das tutorial ist etwas unübersichtlich aber mit etwas vorkenntnissen durchaus verständlich.

was cheatengine angeht bin ich nicht besonders begeistert.
ich hingegen empfehle ArtMoney (Download: )
dazu wählt man in der prozessliste das game und sucht nach dem entsprechenden wert.
dann filtert man so lange bis man nur noch einen speicherwert übrig hat.
diesen benutzt man dann.

für eine genaue beschreibung bitte PN an mich

ansonsten ein großes THX für das TUT

KnifeHunter

[.Spongebob]

wirkich nice tutorial

[germanhacker]

Hab das hier probiert:

Public Class Form1
    Dim ExeName As String = "Tutorial"
    Dim Prozess1 As Process
    Dim pList() As System.Diagnostics.Process = System.Diagnostics.Process.GetProcesses
    Dim MyLives As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LabelActive.Text = "Game not found!"
        LabelActive.ForeColor = Color.Red
        TimerActualize.Enabled = True
        TimerActualize.Start()
    End Sub

    Private Sub TextBoxLives_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxLives.TextChanged
        TimerActualize.Stop()
        TimerActualize.Enabled = False
    End Sub
    Private Sub TextBoxLives_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxLives.TextChanged
        MyLives = TextBoxLives.Text
        TimerActualize.Start()
        TimerActualize.Enabled = True
    End Sub

    Private Sub TimerActualize_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerActualize.Tick
        pList = System.Diagnostics.Process.GetProcesses
        For Each proc As System.Diagnostics.Process In pList
            If proc.ProcessName = ExeName Then
                Prozess1 = proc
                LabelActive.ForeColor = Color.Green
                LabelActive.Text = "Game found!"
                TextBoxLives.Text = ReadLong(Prozess1, &HCD22720) 'Lebenszahl
                Exit Sub
            End If
            LabelActive.ForeColor = Color.Red
            LabelActive.Text = "Game not found!"
            TextBoxLives.Text = Nothing
        Next
    End Sub
    Private Sub SetLives()
        Writememory(Prozess1, &HCD22720, MyLives, "4")
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        pList = System.Diagnostics.Process.GetProcesses
        For Each proc As System.Diagnostics.Process In pList
            If proc.ProcessName = ExeName Then
                Prozess1 = proc
                LabelActive.ForeColor = Color.Green
                LabelActive.Text = "Game found!"
                If TextBoxLives.Text = Nothing Then
                    TextBoxLives.Text = "0"
                End If
                Call SetLives()
                Exit Sub
            Else
                LabelActive.ForeColor = Color.Red
                LabelActive.Text = "Game not found!"
            End If
        Next
    End Sub
End Class

Aber hat sich leider nichts getan...
Tutorial.exe konnte er finden, aber als ich in die Textbox "2" geschrieben habe und den Button betätigte, tat sich nichts >.<

[Nepumug]

Klappt bei mir (Win7 64 bit) auch nicht

[Saberrider]

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LabelActive.Text = "Game not found!"
LabelActive.ForeColor = Color.Red
TimerActualize.Enabled = True
TimerActualize.Start()

Dim ExeName As String = Nksp
Dim Prozess1 As Process
Dim pList() As System.Diagnostics.Process = System.Diagnostics.Process.GetProcesses
Dim MyLives As String
End Sub
End Class




Fehler 1 Der Name "Nksp" wurde nicht deklariert.



was mach ich denn jetzt schon falsch?

[Mi4uric3]

Du musst nksp in Anführungsstriche setzen.. :Facepalm:
Befass dich erstmal mit den VB.NET Grundlagen bevor du sowas hier probierst...

[Nepumug]

Kannste bitte mal die Quelle für den Memory Editing Code posten?

[Mi4uric3]

Quelle: Google.

[monstaaa22]

Private Sub SetLives()
Writememory(Prozess1, &HCD22720, MyLives, "4")
End Sub

statt die 4 die 8 nehmen für 64 bit..