Anmeldungsdatum: Jan 2010
Beiträge: 4
|
Über den Prozess wäre ich auch dran gekommen, aber ich möchte ja ohne das mein Programm sich in das andere Programm injektet. In AutoIT ist z.B. hier ein Code zu, der ohne jeglicher Art von Injektion funktioniert.
TEXT Code: #NoTrayIcon ;// open and read the client in binary mode $file = FileOpen('Spiel.exe', 16) $content = FileRead($file, FileGetSize('Spiel.exe')) ;// filter the wanted stuff from the code $filter = StringRegExp($content, "558BEC6AFF68.{8}64A1000000005064892500000000518B4D.{2}53568B35(.{8})0FB786.{8}89018B8E(.{8})8B11578965.{2}C745.{2}00000000FF92.{8}8B45.{2}D955.{2}D9188B8E.{8}8B11FF92.{8}D955.{2}8B45.{2}D918B0.{2}8B4D.{2}64890D000000005F5E5B8BE55DC3", 1) FileClose($file) ;// if the regex filter worked, display the results in a simple gui If IsArray($filter) Then GUICreate('Offset Finder', 175, 55, Default, Default, 0x10C80000) GUICtrlCreateLabel('MainBaseAdress:', 10, 7, 85, 20) GUICtrlCreateInput('0x'&reverseHex($filter[0]), 95, 5, 70, 20, 0x801) GUICtrlCreateLabel('CharStructOffset:', 10, 32, 85, 20) GUICtrlCreateInput('0x'&reverseHex($filter[1]), 95, 30, 70, 20, 0x801) While GUIGetMsg()<>-3 WEnd Else MsgBox(16, 'Error', 'oooops looks like something went wrong :s') EndIf Func reverseHex($string) Local $return ;// if the string got a odd length, add a zero in front of it If Mod(StringLen($string),2)<>0 Then $string = '0'&$string ;// reverse the hex patterns For $i=1 To StringLen($string) Step 2 $return = StringMid($string, $i, 2)&$return Next ;// remove the left-hand zeros While StringLeft($return, 1)='0' $return = StringTrimLeft($return, 1) WEnd Return $return EndFunc
Credits lolkop
|