Source Metin2 Multi-Hack

[Sasuke16]

Jeszcze takie małe coś znalazłem może się wam przyda.

 

 

 

Form:

 

Public Class Form1
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Do While Processo.Length = 0
           Processo = Process.GetProcessesByName("metin2client.bin")
           MsgBox("Devi aprire metin prima ", MsgBoxStyle.Information)
           Me.Close()
           Exit Sub
       Loop
       processHandle = OpenProcess(&H1F0FFF, 0, Processo(0).Id)
       If processHandle = IntPtr.Zero Then
           MsgBox("Unable to open process memory", MsgBoxStyle.Critical, "Error")
       End If
       Timer1.Enabled = True
   End Sub
   Private Sub MovBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MovBtn.Click
       If MovMode = False Then
           MovBtn.BackColor = Color.Aqua
           MovMode = True
       Else
           MovBtn.BackColor = Color.FromKnownColor(KnownColor.Control)
           WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1462), 16256, 4, Nothing)
           MovMode = False
       End If
   End Sub
   Private Sub AtkBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AtkBtn.Click
       If AtkMode = False Then
           AtkBtn.BackColor = Color.Aqua
           AtkMode = True
       Else
           AtkBtn.BackColor = Color.FromKnownColor(KnownColor.Control)
           WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1466), 16256, 4, Nothing)
           AtkMode = False
       End If
   End Sub
   Private Sub rg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rg.Click
       If rgMode = False Then
           rg.BackColor = Color.Aqua
           rgMode = True
       Else
           rg.BackColor = Color.FromKnownColor(KnownColor.Control)
           WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1458), 16256, 4, Nothing)
           rgMode = False
       End If
   End Sub
   Private Sub WallBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WallBtn.Click
       If WallMode = False Then
           WallBtn.BackColor = Color.Aqua
           WallMode = True
           wallHack()
       Else
           WallBtn.BackColor = Color.FromKnownColor(KnownColor.Control)
           WallMode = False
       End If
   End Sub
   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       'velocità movimento
       If MovMode = True Then
           WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1462), Int(MovTxt.Text), 4, Nothing)
           WriteProcessMemory(processHandle, &H43C18E, 106, 2, Nothing)
       End If
       'invisibilità
       If InvMode = True Then
           WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1530), 1400, 8, Nothing)
       End If
       'velocità attacco
       If AtkMode = True Then
           WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1466), Int(AtkTxt.Text), 4, Nothing)
           WriteProcessMemory(processHandle, &H43C21D, 106, 2, Nothing)
       End If
       'range
       If rgMode = True Then
           WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1458), Int(AtkTxt.Text), 4, Nothing)
       End If
       'attack mode
       If ModeMode = True Then
           Select Case (ModeCBox.SelectedItem.ToString())
               Case "Pugni"
                   WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1088), 1, 4, Nothing)
               Case "Spada"
                   WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1088), 2, 4, Nothing)
               Case "Lancia"
                   WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1088), 3, 4, Nothing)
               Case "Arco"
                   WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1088), 5, 4, Nothing)
               Case "Pugnali"
                   WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1088), 393220, 4, Nothing)
               Case "Canna da pesca"
                   WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1088), 8, 4, Nothing)
               Case "Cavallo nabbo"
                   WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1088), 9, 4, Nothing)
               Case "Cavallo medio"
                   WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1088), 10, 4, Nothing)
               Case "Cavallo esperto"
                   WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1088), 11, 4, Nothing)
               Case "Camminata gay"
                   WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1088), 16, 4, Nothing)
           End Select
       End If
       'combo mode
       If ComboMode = True Then
           WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1332), 2, 4, Nothing)
       End If
       If ZoomMode = True Then
           WriteProcessMemory(processHandle, &H5FD0E1, 307163591, 4, Nothing)
           WriteProcessMemory(processHandle, &H5D5FA6, 19999, 4, Nothing)
       End If
       'hit mode
       If HitMode = True Then
           Select Case (HitCBox.SelectedItem.ToString())
               Case "1"
                   WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1300), 1, 4, Nothing)
               Case "2"
                   WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1300), 2, 4, Nothing)
               Case "3"
                   WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1300), 3, 4, Nothing)
               Case "4"
                   WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1300), 4, 4, Nothing)
           End Select
       End If
       'auto attakko
       If AutoAtkMode = True Then
           WriteProcessMemory(processHandle, &H6D354481, 128, 4, Nothing)
       End If
   End Sub
   Private Sub ModeCBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModeCBox.SelectedIndexChanged
       If ModeCBox.SelectedItem.ToString() <> "Off" Then
           ModeOK.BackColor = Color.Aqua
           ModeMode = True
       Else
           ModeOK.BackColor = Color.FromKnownColor(KnownColor.Control)
           ModeMode = False
       End If
   End Sub
   Private Sub ComboBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBtn.Click
       If ComboMode = False Then
           ComboBtn.BackColor = Color.Aqua
           ComboMode = True
       Else
           ComboBtn.BackColor = Color.FromKnownColor(KnownColor.Control)
           WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1332), 0, 4, Nothing)
           ComboMode = False
       End If
   End Sub
   Private Sub ZoomBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZoomBtn.Click
       If ZoomMode = False Then
           ZoomBtn.BackColor = Color.Aqua
           ZoomMode = True
       Else
           ZoomBtn.BackColor = Color.FromKnownColor(KnownColor.Control)
           WriteProcessMemory(processHandle, &H5D84E1, 4560384, 4, Nothing)
           WriteProcessMemory(processHandle, &H5D5FA6, 17692, 4, Nothing)
           ZoomMode = False
       End If
   End Sub
   Private Sub HitCBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HitCBox.SelectedIndexChanged
       If HitCBox.SelectedItem.ToString() <> "Off" Then
           HitON.BackColor = Color.Aqua
           HitMode = True
       Else
           HitON.BackColor = Color.FromKnownColor(KnownColor.Control)
           HitMode = False
       End If
   End Sub
   Private Sub InvBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InvBtn.Click
       If InvMode = False Then
           InvBtn.BackColor = Color.Aqua
           InvMode = True
       Else
           InvBtn.BackColor = Color.FromKnownColor(KnownColor.Control)
           WriteProcessMemory(processHandle, ReturnAddy("61c170", 4, 1530), 16256, 8, Nothing)
           InvMode = False
       End If
   End Sub
   Private Sub AutoAtkBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AutoAtkBtn.Click
       If AutoAtkMode = False Then
           AutoAtkBtn.BackColor = Color.Aqua
           AutoAtkMode = True
       Else
           AutoAtkBtn.BackColor = Color.FromKnownColor(KnownColor.Control)
           WriteProcessMemory(processHandle, &H6D354481, 0, 4, Nothing)
           AutoAtkMode = False
       End If
   End Sub
   Private Sub ON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MobBtn.Click
       If GetX() <> 0 And GetY() <> 0 Then
           If MobMode = False Then
               MobMode = True
               MobBtn.BackColor = Color.Aqua
               WriteSingle(processHandle, &H600144, GetX(), 4, Nothing)
               WriteSingle(processHandle, &H60014A, GetY(), 4, Nothing)
               WriteSingle(processHandle, &H600153, GetZ(), 4, Nothing)
               For i = 0 To XyzLock.Length - 1
                   WriteByte(processHandle, &H60015D + i, XyzLock(i), 1, Nothing)
               Next
               For i = 0 To XyzAtk.Length - 1
                   WriteByte(processHandle, &H4A3F76 + i, XyzAtk(i), 1, Nothing)
               Next
               MobMode = False
           End If
       End If
   End Sub
   Private Sub unlock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles unlock.Click
       Dim Xyz() As Byte = {&H89, &H86, &HA8, &H3, &H0, &H0}
       For i = 0 To Xyz.Length - 1
           WriteByte(processHandle, &H4A3F76 + i, Xyz(i), 1, Nothing)
       Next
       MobBtn.BackColor = Color.FromKnownColor(KnownColor.Control)
       MobMode = False
   End Sub
   Private Sub ExtBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExtBtn.Click
       Me.Close()
   End Sub
End Class

 

 

Module:

 

Module Module1
   Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Long, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
   Public Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
   Public Declare Function ReadSingle Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Boolean
   Public Declare Function WriteSingle Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Boolean
   Public Declare Function WriteByte Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Byte, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
   Public Processo As Process() = Process.GetProcessesByName("metin2client.bin")
   Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
   Public XMax As Integer
   Public processHandle As IntPtr
   Public value As String
   Public MovMode As Boolean = False
   Public AtkMode As Boolean = False
   Public rgMode As Boolean = False
   Public ModeMode As Boolean = False
   Public ComboMode As Boolean = False
   Public ZoomMode As Boolean = False
   Public HitMode As Boolean = False
   Public InvMode As Boolean = False
   Public AutoAtkMode As Boolean = False
   Public MobMode As Boolean = False
   Public AutoPicMode As Boolean = False
   Public WallMode As Boolean = False
   Public XyzLock() As Byte = {&HA1, &H44, &H1, &H60, &H0, &H89, &H86, &HA8, &H3, &H0, &H0, &H8B, &HD, &H4A, &H1, &H60, &H0, &H89, &H8E, &HAC, &H3, &H0, &H0, &H8B, &H15, &H53, &H1, &H60, &H0, &H89, &H96, &HB0, &H3, &H0, &H0, &H5F, &HE9, &H9, &H3E, &HEA, &HFF, &H90}
   Public XyzAtk() As Byte = {&HE9, &HE2, &HC1, &H15, &H0, &H90}
   Public Function ReturnAddy(ByVal Addybase As String, ByVal Off1 As Integer, ByVal Off2 As Integer) As String
       Dim addy As String
       ReadProcessMemory(processHandle, "&H" & Addybase, value, 4, Nothing)
       addy = "&H" & Conversion.Hex(value + Off1)
       ReadProcessMemory(processHandle, addy, value, 4, Nothing)
       addy = "&H" & Conversion.Hex(value + Off2)
       Return addy
   End Function
   Public Function GetX() As String
       ReadSingle(processHandle, ReturnAddy("61c170", 4, 1412), value, 4, Nothing)
       Return value
   End Function
   Public Function GetY() As String
       ReadSingle(processHandle, ReturnAddy("61c170", 4, 1416), value, 4, Nothing)
       Return value
   End Function
   Public Function GetZ() As String
       ReadSingle(processHandle, ReturnAddy("61c170", 4, 1420), value, 4, Nothing)
       Return value
   End Function
   Public Function wallHack()
       Dim tmpString As String
       tmpString = "90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90"
       Dim NOPs1 = Split(tmpString, " ")
       For i = 0 To UBound(NOPs1)
           Dim tmpAddress = 4840928 + i
           WriteProcessMemory(processHandle, tmpAddress, CByte("&H" & NOPs1(i)), 1, 0)
       Next
       tmpString = "90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90"
       Dim NOPs2 = Split(tmpString, " ")
       For i = 0 To UBound(NOPs2)
           Dim tmpAddress = 4843585 + i
           WriteProcessMemory(processHandle, tmpAddress, CByte("&H" & NOPs2(i)), 1, 0)
       Next
       tmpString = "90 90"
       Dim NOPs3 = Split(tmpString, " ")
       For i = 0 To UBound(NOPs3)
           Dim tmpAddress = 4854360 + i
           WriteProcessMemory(processHandle, tmpAddress, CByte("&H" & NOPs3(i)), 1, 0)
       Next
       Return True
   End Function
End Module

 

 

 

Fix dla speed attack:

 

For i = 0 To 1
  WriteByte(processHandle, &H43C21D + i, Speed_MovBp(i), 1, Nothing)
Next

 

 

Fix dla speed move:

 

For i = 0 To 1
  WriteByte(processHandle, &H43C18E + i, Speed_MovBp(i), 1, Nothing)
Next

[ziomek11304]

może być ciekawe

 

PS.Malowałeś to w paincie??? xD

[Sasuke16]

wklejałem to painta i usuwałem tło ;p

[Misiekantos253]

Ciekawy source, a ssy okna sie robi alt+printscreen

[Fepesz]

skad vb.net sciagnac ?

[Misiekantos253]

Poszukaj na google.pl, albo na stronie microsoftu...

[Fepesz]

szukalem na google i nie znalazlem podalby ktos link .?;/

[budrys]

Ktoś już sprawdził czy offsety są aktualne?

[iMrOMGWTF]

@up

 

bardziej pointery potem offsety....

[TurboCheat2]

DZIAŁA WAM TO ?

[rally]

Jak Widzicie Ta Ikonke Na Okienku Z Lewej Stronu Kolo Napisu Form1 to Taka Wiadomos Taka Ikonke Ma Perfect KeyLogger Pozdrowienia

[Prime_Bull]

Jak Widzicie Ta Ikonke Na Okienku Z Lewej Stronu Kolo Napisu Form1 to Taka Wiadomos Taka Ikonke Ma Perfect KeyLogger Pozdrowienia

Jak się nie znasz to się nie odzywaj taka ikonka jest przy tworzeniu programu (domyślnie) to, że jakiś program ma taką samą ikonę jak keylogger to nie oznacza, że jest to syf...

 

EDIT:

No ta widać, dlaczego taka bezsensowna odpowiedź (dzisiejsza rejestracja i pierwszy post ;/).