VB.net Frage zum Pointer schreiben

[Sh1nra]

Hallo ich habe ein Problem und zwar habe ich jetzt für ein Spiel mit Visual Basic 2010 Express etwas geschrieben und zwar einen Pointer. Er nimmt den Prozess, sucht die Adresse die ich angegeben habe und ändert die Value in meine angegebene Value.
Nur leider klappt das nicht weil das Spiel ein Hackschild nutzt was den kompletten Prozess versteckt. Somit findet VB den Prozess nicht, was kann man dagegen tun?

Game Guard wird als Schutz verwendet...

Mit freundlichen Grüßen...

[.AppleTree.]

Könntest du bitte mal deinen Code posten?

[dready]

Werd aus deiner Einleitung mit Pointer etc nicht wirklich schlau ?
Meinst du du beschreibst eine Variable für die du einen Pointer hast oder beschreibst du einen Pointer direkt *confused*

Hab leider keine Ahnung von Hackschield, nie mit gearbeitet, aber nach kurzem überfliegen wie es arbeitet sag ich mal .. viel Spaß

Es injected sich wohl selbst in alle Processe und nutzt einen Treiber um den Kernel selbst zu manipulieren

Ohne auf irgendwelche Fallstricke zu achen würd ich wohl zuerst so versuchen.

Den Kernel von der Festplatte in mein Programm mappen
Die Nötigen Funktionen von dort aufrufen
Und dann ganz fest die daumen drücken das man nix übersehn hat :P

[Sh1nra]

Module:

 Spoiler

Module Trainermodul
' Deklarationen
Private process_id As Int32 = 0
Private Const ACCESS_RIGHTS_ALL = &H1F0FFF

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Int32, ByVal bInerhitHandle As Int32, ByVal dwProcessId As Int32) As Int32
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Int32) As Int32

Private Declare Function WPM Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Int32, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Byte, ByVal nSize As Int32, ByRef lpNumberOfBytesWritten As Int32) As Byte
Private Declare Function WPM Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Int32, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Int32, ByVal nSize As Int32, ByRef lpNumberOfBytesWritten As Int32) As Int32
Private Declare Function WPM Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Int32, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Int64, ByVal nSize As Int32, ByRef lpNumberOfBytesWritten As Int32) As Int64

Private Declare Function RPM Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Int32, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Byte, ByVal nSize As Int32, ByRef lpNumberOfBytesWritten As Int32) As Byte
Private Declare Function RPM Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Int32, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Int32, ByVal nSize As Int32, ByRef lpNumberOfBytesWritten As Int32) As Int32
Private Declare Function RPM Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Int32, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Int64, ByVal nSize As Int32, ByRef lpNumberOfBytesWritten As Int32) As Int64

Declare Function VirtualAllocEx Lib "kernel32.dll" (ByVal hProcess As IntPtr, ByVal lpAddress As IntPtr, ByVal dwSize As IntPtr, ByVal flAllocationType As Integer, ByVal flProtect As Integer) As IntPtr
Declare Function VirtualProtectEx Lib "kernel32.dll" (ByVal hProcess As IntPtr, ByVal lpAddress As IntPtr, ByVal dwSize As IntPtr, ByVal newProtect As Integer, ByRef oldProtect As Integer) As Boolean

Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal Handle As Int32, ByVal Address As Int32, ByRef Value As Long, ByVal Size As Int32, ByRef BytesWritten As Int32) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal Handle As Int32, ByVal Address As Int32, ByRef Value As Long, ByVal Size As Int32, ByRef BytesWritten As Int32) As Long


' ProzessID finden
Public Function GetProcessId(ByVal ProcName As String)
Dim Processes() As Process = Process.GetProcesses
Dim process_name As String
Dim i As Byte
For i = LBound(Processes) To UBound(Processes)
process_name = Processes(i).ProcessName
If process_name = ProcName Then
process_id = Processes(i).Id
Return process_id
End If
Next
End Function

#Region "Write"
' 1 Byte in den Prozess schreiben
Public Sub Write_Byte(ByVal address As Int32, ByVal value As Byte)
Dim process_handle As Int32
process_handle = OpenProcess(ACCESS_RIGHTS_ALL, False, process_id)
If process_handle <> 0 Then
WPM(process_handle, address, value, 1, 0)
End If
CloseHandle(process_handle)
End Sub
' 4 Bytes in den Przess schreiben
Public Sub Write_Long(ByVal address As Int32, ByVal value As Int32)
Dim process_handle As Int32
process_handle = OpenProcess(ACCESS_RIGHTS_ALL, False, process_id)
If process_handle <> 0 Then
WPM(process_handle, address, value, 4, 0)
End If
CloseHandle(process_handle)
End Sub
' 8 Bytes in den Przess schreiben
Public Sub Write_Float(ByVal address As Int32, ByVal value As Int64)
Dim process_handle As Int32
process_handle = OpenProcess(ACCESS_RIGHTS_ALL, False, process_id)
If process_handle <> 0 Then
WPM(process_handle, address, value, 8, 0)
End If
CloseHandle(process_handle)
End Sub
' Für die CodeInjection
Public Sub autopatcher(ByVal address As Int32, ByVal value As Byte())
Dim i As Byte
For i = LBound(value) To UBound(value)
Write_Byte(address + i, value(i))
Next
End Sub
#End Region
#Region "Read"
' 1 Byte auslesen
Public Function Read_Byte(ByVal address As Int32) As Byte
Dim process_handle As Int32, value As Byte
process_handle = OpenProcess(ACCESS_RIGHTS_ALL, False, process_id)
If process_handle <> 0 Then
RPM(process_handle, address, value, 1, 0)
End If
CloseHandle(process_handle)
Return value
End Function
' 4 Byte auslesen
Public Function Read_Long(ByVal address As Int32) As Int32
Dim process_handle As Int32, value As Int32
process_handle = OpenProcess(ACCESS_RIGHTS_ALL, False, process_id)
If process_handle <> 0 Then
RPM(process_handle, address, value, 4, 0)
End If
CloseHandle(process_handle)
Return value
End Function
' 8 Byte auslesen
Public Function Read_Float(ByVal address As Int32) As Int64
Dim process_handle As Int32, value As Int64
process_handle = OpenProcess(ACCESS_RIGHTS_ALL, False, process_id)
If process_handle <> 0 Then
RPM(process_handle, address, value, 8, 0)
End If
CloseHandle(process_handle)
Return value
End Function
#End Region
#Region "Memory Function"
' Speicher hinzufügen
Sub AllocMem(ByVal ProcessName As String, ByVal AddressOfStart As Integer, ByVal SizeOfAllocationInBytes As Integer)
For Each p As Process In Process.GetProcessesByName(ProcessName)
Const MEM_COMMIT As Integer = &H1000
Const PAGE_EXECUTE_READWRITE As Integer = &H40
Dim pBlob As IntPtr = VirtualAllocEx(p.Handle, New IntPtr(AddressOfStart), New IntPtr(SizeOfAllocationInBytes), MEM_COMMIT, PAGE_EXECUTE_READWRITE)
If pBlob = IntPtr.Zero Then Throw New Exception
p.Dispose()
Next
End Sub
' Schreibschutz von Speicher entfernen
Sub RemoveProtection(ByVal ProcessName As String, ByVal AddressOfStart As Integer, ByVal SizeToRemoveProtectionInBytes As Integer)
For Each p As Process In Process.GetProcessesByName(ProcessName)
Const PAGE_EXECUTE_READWRITE As Integer = &H40
Dim oldProtect As Integer
If Not VirtualProtectEx(p.Handle, New IntPtr(AddressOfStart), New IntPtr(SizeToRemoveProtectionInBytes), PAGE_EXECUTE_READWRITE, oldProtect) Then Throw New Exception
p.Dispose()
Next
End Sub
#End Region

End Module

Source:

 Spoiler

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

My.Settings.config = TextBox1.Text
My.Settings.Save()
My.Settings.Reload()

Dim amunt As String = TextBox1.Text
Try
Write Integer("Prozess" ,&H"Cheat Engine Adresse" ,amunt
Catch ex As Exception

End Try
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

TextBox1.Text = My.Settings.config

End Sub

End Class

Bei der Cheat Engine Adresse lasse ich dann die ersten 2 Zeichen weg,
die Value wird ja dann einfach geändert in das was in TextBox1 steht..

Ist das richtig?^^

[.AppleTree.]

Vlt hilft der, weis nicht ob er noch geht aber versuchen kann man es ja. . .

[dready]

Try, Catch und nichts im Catch machen tztztz :P

Aber ja es sollte funktionieren, der Grund warum es das nicht tut(angenommen Process und Adresse stimmen) ist das Hackshield die Imports die du nutzt hooked

[Sh1nra]

Originally Posted by .AppleTree.

Vlt hilft der, weis nicht ob er noch geht aber versuchen kann man es ja. . .

Nein das hilft mir nicht wirklich weiter^^

Originally Posted by dready

Try, Catch und nichts im Catch machen tztztz :P

Aber ja es sollte funktionieren, der Grund warum es das nicht tut(angenommen Process und Adresse stimmen) ist das Hackshield die Imports die du nutzt hooked

Und was kann ich dagegen tun?

[.AppleTree.]

In wiefern hilf dir das Tool nicht? Funktioniert es nicht? Schlussendlich musst du sowieso einen Bypass haben sonst geht da eh nix.

[dready]

Ich hoffe du verstehst das jetzt nicht als angriff, aber wenn du Fragst was du dagegen tun kannst ist recht offensichtlich das du nochnicht die nötigen Fertigkeiten hast um es zu tun

Ein Hook funktioniert in etwa so

Orginal

Dein Programm importiert eine Funktion(ReadMemory)
Dein Programm ruf sie in der Improtierten Libary auf ( Readmemory(a,b) )
Die Libary gibt dir die Gewünschten Daten zurück

Program <-> Dll

Hooked

Dein Programm importiert die Libary
Eine Dll wird von außerhalb in deinen Process geladen
Sie hat eine Funktion die sich die Imports ansieht
Sie sieht die ReadMemory Function
Sie ändert den Import ab auf sich selbst
Dein Programm ruf Readmemory auf
Die Dll bekommt nun den Aufruf
Ruft die eigentliche Funktion auf
gibt Daten zurück

Programm <-> hook <-> dll

Du siehst also wenn eine Funktion gehooked ist hat man im Prinzip die Kontrolle darüber

Z.b. du könntest nun schauen versucht die Readmemory Function von Process xyz zu lesen ? Wenn ja gib einen Fehler zurück.

Ansatzpunkte wären also
a) Den hook komplett entfernen
b) den hook selbst hooken
danach dafür sorgen das Hackshield selbst nichts davon mitbekommt

Hoffe das ganze war einigermassen Verständlich, ist etwas schwer zu erklären ohne Endlos auszuholen

Das ganze ist technisch gesehen extrem vereinfach dargestellt und es gibt unmengen wege wie genau man es machen kann.

[Sh1nra]

Nein ein Angriff ist das nicht, gebe ja dazu das ich keine Ahnung habe...

Dann werde ich mal gucken das ich das irgendwie packe^^