|
You last visited: Today at 18:39
Advertisement
[Metin2] Pointer
Discussion on [Metin2] Pointer within the General Coding forum part of the Coders Den category.
01/04/2011, 17:25
|
#1
|
elite*gold: 1
Join Date: Jun 2009
Posts: 235
Received Thanks: 31
|
[Metin2] Pointer
Hallo ich habe denn von TrickGamer gedownloadet also das man damit ein eigenden bot schreiben kann
Jetzt habe ich ein problem ich habe Pointer adressen gefunden wenn das welche sind:  und sind das überhaupt pointer adressen und wie bearbeitet man diese ? also das man diese z.b. bei movespeed schneller ist
|
|
|
01/04/2011, 17:34
|
#2
|
elite*gold: 0
Join Date: Jan 2010
Posts: 1,385
Received Thanks: 1,006
|
hey, ich hab mal meinen Source von meinem speedhakc released, ich such ma eben auf meiner fp.Ich weiß nicht welche Sprache du meinst, ich habs damals in autoit gemacht
€dit:
Ein wenig umständlich der code, habs mir damals ziemlich umständlich gemacht.
Aber hat funktioniert:
PHP Code:
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Pointer.au3>
#include<File.au3>
#RequireAdmin
If ProcessExists("immortal2.bin") = False then
MsgBox(0,"Nicht gefunden","Du musst Immortal2 schon starten und eingeloggt sein!Sosnt funktioniert der Hack nicht -.- ... diese Meldung wird nur ausgegeben wenn Immortal2 nicht gestartet ist, also starte es :D")
EndIf
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Metin2 Speed und Schlaghack by Yannik © 2010 :D", 602, 346, 192, 124)
$Button9 = GUICtrlCreateButton("On", 304, 184, 44, 25, $WS_GROUP)
$Button10 = GUICtrlCreateButton("Info", 392, 80, 80, 73, $WS_GROUP)
$Button55 = GUICtrlCreateButton("Source", 480, 80, 80, 73, $WS_GROUP)
$Button22 = GUICtrlCreateButton("Off", 304, 216, 44, 25, $WS_GROUP)
$Button64 = GUICtrlCreateButton("On", 304, 272, 44, 25, $WS_GROUP)
$Button48 = GUICtrlCreateButton("Off", 304, 304, 44, 25, $WS_GROUP)
$Immortal25 = GUICtrlCreateInput("Immortal2", 160, 97, 121, 21)
GUICtrlCreateInput("noch nicht verfügbar", 160, 200, 121, 21)
GUICtrlCreateInput("noch nicht verfügbar", 152, 296, 121, 21)
$pic = GUICtrlCreatePic("hack_bg.jpg",1, 1, 600,400)
$picd2 = GUICtrlCreatePic("awesome.png",50,72,165,73)
$Label1 = GUICtrlCreateLabel("M2 Schlag- und Speedhack © Yannik", 32, 16, 557, 36, -1)
GUICtrlSetFont(-1, 20, 800, 2, "Verdana")
GUICtrlSetBkColor(13, $GUI_BKCOLOR_TRANSPARENT)
$Label2 = GUICtrlCreateLabel("Prozess", 40, 96, 112, 19)
GUICtrlSetFont(-1, 10, 400, 0, "Fixedsys")
GUICtrlSetBkColor(14, $GUI_BKCOLOR_TRANSPARENT)
$Group1 = GUICtrlCreateGroup("Prozess", 32, 72, 265, 73)
GUICtrlSetFont(-1, 8, 400, 0, "Fixedsys")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label3 = GUICtrlCreateLabel("Speedhack", 40, 200, 76, 19)
GUICtrlSetFont(-1, 10, 400, 0, "Fixedsys")
GUICtrlSetBkColor(17, $GUI_BKCOLOR_TRANSPARENT)
$Group2 = GUICtrlCreateGroup("Speed", 32, 176, 265, 65)
GUICtrlSetFont(-1, 8, 400, 0, "Fixedsys")
GUICtrlCreateGroup("2", -99, -99, 1, 1)
$Label4 = GUICtrlCreateLabel("Schlagen", 40, 296, 68, 19)
GUICtrlSetFont(-1, 10, 400, 0, "Fixedsys")
GUICtrlSetBkColor(20, $GUI_BKCOLOR_TRANSPARENT)
$Group3 = GUICtrlCreateGroup("Schlagen", 32, 264, 265, 65)
GUICtrlSetFont(-1, 8, 400, 0, "Fixedsys")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("On", 304, 184, 44, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Info", 392, 80, 80, 73, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Source", 480, 80, 80,73, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Off", 304, 216, 44, 25, $WS_GROUP)
$Button5 = GUICtrlCreateButton("On", 304, 272, 44, 25, $WS_GROUP)
$Button6 = GUICtrlCreateButton("Off", 304, 304, 44, 25, $WS_GROUP)
$Immortal2 = GUICtrlCreateInput("Immortal2", 160, 97, 121, 21)
GUICtrlCreateInput("noch nicht verfügbar", 160, 200, 121, 21)
GUICtrlCreateInput("noch nicht verfügbar", 152, 296, 121, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Dim $AOffset[3] = [0, 0x128, 0x5B6]
Dim $BOffset[3] = [0, 0x4E0, 0x5BA]
SetPrivilege("SeDebugPrivilege", 1)
$openmem = _MemoryOpen(WinGetProcess("METIN2"))
$baseadress = _MemoryModuleGetBaseAddress(WinGetProcess("METIN2"), "immortal2.bin")
$source = FileRead("source.txt")
Dim $zustand
Dim $schlagen
while 1=1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button9
$zustand = True
Case $Button22
$zustand = False
Case $Button3
MsgBox(0,"SourceCode","folgt")
Case $Button64
$schlagen = True
Case $Button48
$schlagen = False
Case $Button10
Msgbox(0,"Info","Jo, da ist der Hack wohl fertig ;D... Version 1.0 :) ... es sind leider nur so wenige funktionen, da ich für Moblock noch den richtigen Pointer + Offset finden muss.. und ich im moment keine ahnung habe wie ich nach der memoryadresse für moblock suchen soll.Naja wie auch immer , also da ist version 1.0! Die Inputboxen, also diese Eingabefelder wo steht 'noch nicht verfügbar' werden in Version 2.0 schon noch eine Funktion bekommen. Schlaghack ist nicht so schnell, da es sonst zu Kicks seitens des Clients kommt. Das liegt ganz einfach daran dass man für jeden Schlag sogenannte Packete vom CLient (Ordner) an den Server schickt. Wenn ich jetzt zuschnell schlage, und somit auch sehr viele packete versende, schafft es der client einfahc nicht mehr und sagt 'Byebye'. Und joa... das sollte es eigtl gewesen sein. Danke an Max für das hintergrund Bild, ich konnte leider nicht alle Design vorstellung realisieren, da meine nerven schon blank liegen. Bei der nächsten version werden auch grafische Neuheiten dazukommen.. lasst euch überraschen. Ich werde den hack auch noch für mehrere Server erweitern, bei Version 2.0 werdet ihr dann bei Prozess eine liste von Servern sehen, wo ich euch dann einen aussuchen könnt. Also viel spaß , euer Yannik ;D;D;D;D")
Case $Button55
MsgBox(0,"Source","Guck dir die Source.txt an")
EndSwitch
If $zustand Then
$Awert =_MemoryPointerRead($baseadress+0x21C4A4, $openmem, $AOffset, "short")
_MemoryPointerWrite($baseadress + 0x21C4A4, $openmem, $AOffset, "16656", "dword")
Else
$Awert =_MemoryPointerRead($baseadress+0x21C4A4, $openmem, $AOffset, "short")
_MemoryPointerWrite($baseadress + 0x21C4A4, $openmem, $AOffset, "16256", "dword")
EndIf
If $schlagen Then
$Bwert =_MemoryPointerRead($baseadress+0x021E9B8, $openmem, $BOffset, "short")
_MemoryPointerWrite($baseadress + 0x021E9B8, $openmem, $BOffset, "16390", "dword")
Else
$Bwert =_MemoryPointerRead($baseadress+0x021E9B8, $openmem, $BOffset, "short")
_MemoryPointerWrite($baseadress + 0x021E9B8, $openmem, $BOffset, "16256", "dword")
EndIf
Wend
|
|
|
01/04/2011, 17:39
|
#3
|
elite*gold: 1
Join Date: Jun 2009
Posts: 235
Received Thanks: 31
|
das hier meinte ich
|
|
|
01/04/2011, 19:12
|
#4
|
elite*gold: 1
Join Date: Jun 2009
Posts: 235
Received Thanks: 31
|
#push
|
|
|
01/04/2011, 22:59
|
#5
|
elite*gold: 42
Join Date: Jun 2008
Posts: 5,425
Received Thanks: 1,888
|
Du hast keine ahnung, also lass es.
|
|
|
All times are GMT +2. The time now is 18:39.
|
|