Crysis Trainer +4 - Sourcecode

[07c0]

Hi,
ich habe mich diese Woche einwenig mit Gamehacking beschäftigt und einen kleinen Trainer in Autoit geschrieben. Den Sourcecode möchte ich euch nicht vorenthalten.

PHP-Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111

#cs Crysis v1.1.1687 by 07c0 Numeric keypad 1 key - freeze energy Numeric keypad 2 key - freeze shield Numeric keypad 3 key - freeze ammo Numeric keypad 4 key - freeze grenades Numeric keypad 5 key - unfreeze all Numeric keypad 6 key - exit trainer #ce #include <Misc.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $frmMain = GUICreate("Crysis v1.1.1687 Trainer", 300, 169, 192, 124) $Edit1 = GUICtrlCreateEdit("", 0, 0, 297, 168, BitOR($ES_CENTER, $ES_WANTRETURN)) GUICtrlSetState(-1, $GUI_DISABLE) GUICtrlSetData(-1, StringFormat("\r\nNumeric keypad 1 key - freeze energy\r\nNumeric keypad 2 key - freeze shield\r\nNumeric keypad 3 key - freeze ammo\r\nNumeric keypad 4 key - freeze grenades\r\nNumeric keypad 5 key - unfreeze all\r\nNumeric keypad 6 key - exit trainer")) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) While 1 Select Case _IsPressed("61", DllOpen("user32.dll")) energie() Case _IsPressed("62", DllOpen("user32.dll")) schild() Case _IsPressed("63", DllOpen("user32.dll")) munition() Case _IsPressed("64", DllOpen("user32.dll")) granaten() Case _IsPressed("65", DllOpen("user32.dll")) zurueck() Case _IsPressed("66", DllOpen("user32.dll")) Exit EndSelect $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func energie() Dim $hid = ProcessExists("Crysis.exe") Dim $hhid = memopen($hid) memwrite($hhid, 0x372540a7, "9090909090") EndFunc ;==>energie Func schild() Dim $hid = ProcessExists("Crysis.exe") Dim $hhid = memopen($hid) memwrite($hhid, 0x37270dd8, "9090909090") EndFunc ;==>schild Func munition() Dim $hid = ProcessExists("Crysis.exe") Dim $hhid = memopen($hid) memwrite($hhid, 0x10ADF, "BA63000000895014E9803C") memwrite($hhid, 0x10AEA, "3937") memwrite($hhid, 0x373A4767, "E973C3C6C8") EndFunc ;==>munition Func granaten() Dim $hid = ProcessExists("Crysis.exe") Dim $hhid = memopen($hid) memwrite($hhid, 0x10ABF, "BF0900000089385F5EC20800") memwrite($hhid, 0x10ACB, "FBD21637") memwrite($hhid, 0x3717DDC2, "E9F82CE9C8") EndFunc ;==>granaten Func zurueck() Dim $hid = ProcessExists("Crysis.exe") Dim $hhid = memopen($hid) memwrite($hhid, 0x3717DDC2, "89385F5EC3") ;granaten memwrite($hhid, 0x372540a7, "F30F114640") ;energie memwrite($hhid, 0x37270dd8, "F30F114634") ;schild memwrite($hhid, 0x373a4767, "895014") ;muni EndFunc ;==>zurueck Func memopen($ppid) Local $id = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1F0FFF, 'int', 1, 'int', $ppid) Return $id[0] EndFunc ;==>memopen Func memwrite($id, $adress, $hex) Local $struct = DllStructCreate('byte[' & BinaryLen('0x' & $hex) & ']') For $i = DllStructGetSize($struct) To 1 Step -1 DllStructSetData($struct, 1, BinaryMid('0x' & $hex, $i, 1), $i) Next Local $x = DllCall("kernel32.dll", 'int', 'VirtualProtectEx', 'int', $id, 'ptr', $adress, 'int', DllStructGetSize($struct), 'dword', 0x40, 'dword*', 0) DllCall("kernel32.dll", 'int', 'WriteProcessMemory', 'int', $id, 'int', $adress, 'ptr', DllStructGetPtr($struct), 'int', DllStructGetSize($struct), 'int', 0) DllCall("kernel32.dll", 'int', 'VirtualProtectEx', 'int', $id, 'ptr', $adress, 'int', DllStructGetSize($struct), 'dword', $x[5], 'dword*', 0) EndFunc ;==>memwrite

---