Expiseasy V2 Source

[Sasuke16]

Gdy patrzyłem sobie tematy na UG natknąłem się na kod source od ExpIsEasy może da się jakoś wykorzystać w celu zrobienia hacka

 

 

Module:

 

 

Module Module1

'/**************************************************************

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 WriteProcessMemory Lib "kernel32" (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 WriteAsm Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Byte, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer

Public Declare Function ReadText Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Char, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer

Public Declare Function ReadFloat 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 Integer

Public Const PROCESS_ALL_ACCESS = &H1F0FFF

Public Declare Function WriteText Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Char, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer

'/**************************************************************

Dim Pointer = &H626230

Public myProcesses As Process() = Process.GetProcessesByName("Metin2client.bin")

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 processHandle As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, myProcesses(0).Id)

Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer

'/**************************************************************

Public Declare Function CreateRemoteThread Lib "kernel32" ( _

ByVal hProcess As Integer, _

ByVal lpThreadAttributes As Integer, _

ByVal dwStackSize As Integer, _

ByVal lpStartAddress As Integer, _

ByVal lpParameter As Integer, _

ByVal dwCreationFlags As Integer, _

ByRef lpThreadId As Integer) As Integer

Public Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" ( _

ByVal hObject As Long _

) As Long

'|**********************************************************************

' Rubate da Wufe <img src="images/smilies1/biggrin.gif" style="vertical-align: middle;" border="0" alt="Big Grin" title="Big Grin" />

Public Function Execute(ByVal address As Long)

Dim threadHandle As Long

threadHandle = CreateRemoteThread(processHandle, 0&, 0&, address, 0, 0, myProcesses(0).Id)

Return True

End Function

Public Function writeUpgrade()

Dim tmpString As String

tmpString = "60 8B 0D E8 60 62 00 6A 04 6A 00 E8 10 7C E1 FF E8 5B F6 F1 FF 61 C3"

Dim str1 = Split(tmpString, " ")

For i = 0 To UBound(str1)

Dim tmpAddress = &H600000 + i

WriteProcessMemory(processHandle, tmpAddress, CByte("&H" & str1(i)), 1, 0)

Next

Return True

End Function

Public Function CodeCave(ByVal address As Integer, ByVal arrayByte As String)

Dim str1 = Split(arrayByte, " ")

For i = 0 To UBound(str1)

Dim tmpAddress = address + i

WriteProcessMemory(processHandle, tmpAddress, CByte("&H" & str1(i)), 1, 0)

Next

Return True

End Function

Public Function ReadPointer(ByVal address, ByVal off1, ByVal off2)

Dim buffer

Dim buffer1

Dim value

ReadProcessMemory(processHandle, address, buffer, 4, Nothing)

buffer += off1

ReadProcessMemory(processHandle, buffer, buffer1, 4, Nothing)

buffer1 += off2

ReadProcessMemory(processHandle, buffer1, value, 4, Nothing)

Return value

End Function

Public Function Read(ByVal address, ByVal off1)

Dim buffer

Dim buffer1

Dim value

ReadProcessMemory(processHandle, address, buffer, 4, Nothing)

buffer += off1

ReadProcessMemory(processHandle, buffer, value, 4, Nothing)

Return value

End Function

Public Sub WriteAddress(ByVal address, ByVal off1, ByVal off2, ByVal value)

Dim buffer

Dim buffer1

Dim buffer2

ReadProcessMemory(processHandle, address, buffer, 4, Nothing)

buffer += off1

ReadProcessMemory(processHandle, buffer, buffer1, 4, Nothing)

buffer1 += off2

WriteProcessMemory(processHandle, buffer1, value, 4, Nothing)

End Sub

Public Declare Function ReadByte Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Byte, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer

Function Read_Text(ByVal str_len)

Dim buffer As Integer

Dim buffer1 As Integer

ReadProcessMemory(processHandle, &H626518, buffer, 4, Nothing)

buffer += &H0

ReadProcessMemory(processHandle, buffer, buffer1, 4, Nothing)

buffer1 += &H14

Dim value As String

Dim test As String

For i = 0 To str_len + 1

ReadText(processHandle, buffer1 + i, value, 1, Nothing)

test = test & value

Next

Split(test, Chr(0))

Return test

End Function

Function ReadHp(ByVal address, ByVal str_len)

Dim value As String

Dim test As String = ""

For i = 0 To str_len + 1

ReadByte(processHandle, address + i, value, 1, Nothing)

test = test & Chr(value.Replace("0x", "&H"))

Next

Dim a = Split(test, Chr(0))

Return a

End Function

Function ReadMap(ByVal address, ByVal str_len)

Dim value As String

Dim test As String = ""

For i = 0 To str_len + 1

ReadByte(processHandle, address + i, value, 1, Nothing)

test = test & Chr(value.Replace("0x", "&H"))

Next

Dim a = Split(test, Chr(0))

Return a

End Function

Public Function ReadCoord(ByVal address, ByVal off1, ByVal off2)

Dim buffer

Dim buffer1

Dim value

ReadProcessMemory(processHandle, address, buffer, 4, Nothing)

buffer += off1

ReadProcessMemory(processHandle, buffer, buffer1, 4, Nothing)

buffer1 += off2

ReadFloat(processHandle, buffer1, value, 4, Nothing)

Return value

End Function

Public Function Mobber(ByVal valore)

WriteProcessMemory(processHandle, &H100C55B6, valore, 4, Nothing)

CodeCave(&H60006D, "8b 0d e8 60 62 00 ff 35 84 00 00 06 6a 00 e8 90 8d e1 ff 61 c3")

Execute(&H60006D)

End Function

Public Function Read(ByVal off)

Dim buffer

Dim buffer1

ReadProcessMemory(processHandle, &H626518, buffer, 4, Nothing)

buffer += off

ReadProcessMemory(processHandle, buffer, buffer1, 4, Nothing)

End Function

Public Function ReadNuvola()

Dim buffer

ReadProcessMemory(processHandle, &H600080, buffer, 4, Nothing)

Return buffer

End Function

Public Function ReadMobX(ByVal off)

Dim buffer

Dim buffer1

Dim value As Single

ReadProcessMemory(processHandle, &H626518, buffer, 4, Nothing)

buffer += &H4 * off

ReadProcessMemory(processHandle, buffer, buffer1, 4, Nothing)

buffer1 += &H584

ReadFloat(processHandle, buffer1, value, 4, Nothing)

Return value

End Function

Public Function ReadMobY(ByVal off)

Dim buffer

Dim buffer1

Dim value

ReadProcessMemory(processHandle, &H626518, buffer, 4, Nothing)

buffer += off

ReadProcessMemory(processHandle, buffer, buffer1, 4, Nothing)

buffer1 += &H588

ReadFloat(processHandle, buffer, value, 4, Nothing)

Return value / -100

End Function

End Module

 

 

 

Form:

 

 

Public Class Form

Public off1 = 0

Public inventario = &H623A38

Public address = &H626518

Public nuvola = 1

Public valore_label As Integer

Public off As Integer

Dim Pointer = &H626230

Public Pasta = 27800

Public Vermi = 27801

Public Pescepiccolo = 27802

Public rossap = 27001

Public rossam = 27002

Public rossag = 27003

Public blup = 27004

Public blum = 27005

Public blug = 27006

Public array

Public f1code = "60 8b 0d 3c 3a 62 00 6a 04 e8 34 a5 e3 ff e8 8f f6 f1 ff 61 c3"

Public f2code = "60 8b 0d 3c 3a 62 00 6a 05 e8 34 a5 e3 ff e8 8f f6 f1 ff 61 c3"

Public f3code = "60 8b 0d 3c 3a 62 00 6a 06 e8 34 a5 e3 ff e8 8f f6 f1 ff 61 c3"

Public f4code = "60 8b 0d 3c 3a 62 00 6a 07 e8 34 a5 e3 ff e8 8f f6 f1 ff 61 c3"

Public Structure Mob

Public id

Public x As Integer, y As Integer

Public typeId

Public type As String

Public color As Brush

Public distance

Public Sub New(ByVal id, ByVal typeId, ByVal x, ByVal y)

Me.id = id

Me.x = x

Me.y = y

Me.distance = 0

Me.typeId = typeId

type = "Mob"

color = Brushes.Red

If typeId >= 8001 AndAlso typeId <= 8027 Then

type = "Metin"

color = Brushes.Black

ElseIf typeId >= 0 AndAlso typeId <= 7 Then

type = "PG"

color = Brushes.Yellow

End If

If typeId >= 9001 AndAlso typeId <= 20095 Then

type = "NCP"

color = Brushes.Green

End If

End Sub

End Structure

Public mobs As New List(Of Mob)

Public Nearest

Public Function DrawFlag(ByVal x, ByVal y, ByVal color)

Dim g As Graphics

g = maps.CreateGraphics

g.FillRectangle(color, x, y, 4, 4)

End Function

Public Function PgX()

Dim x = ReadCoord(Pointer, &H4, &H584)

Dim value As Integer = x / 100

Return value

End Function

Public Function Pgy()

Dim y = ReadCoord(Pointer, &H4, &H588)

Dim value As Integer = y / -100

Return value

End Function

Private Function IsDecimal(ByVal clngNumber As Single) As Boolean

If InStr(1, CStr(clngNumber), "-", vbTextCompare) Then

IsDecimal = True

End If

End Function

Private Function IsPlus(ByVal clngNumber As Single) As Boolean

If InStr(1, CStr(clngNumber), "+", vbTextCompare) Then

IsPlus = True

End If

End Function

Public Sub Canna()

Execute(&H600375)

End Sub

Public Sub Use()

Execute(&H60033C)

End Sub

Public Sub Drop()

Execute(&H600355)

End Sub

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

'Addy = 0060033C = Canna

'Addy = 00600355 = UseItem

'Addy = 00600375 = DropItem

CodeCave(&H408918, "e9 e3 7a 1f 00")

CodeCave(&H600400, "A3 56 04 60 00 60 A1 56 04 60 00 8B 00 A3 5A 04 60 00 80 3D 5A 04 60 00 48 75 0A A1 56 04 60 00 A3 5E 04 60 00 80 3D 5A 04 60 00 45 75 0A A1 56 04 60 00 A3 62 04 60 00 80 3D 5A 04 60 00 4D 75 0A A1 56 04 60 00 A3 66 04 60 00 61 31 C0 F3 A6 5F e9 c7 84 e0 ff 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90")

' CodeCave(&H6000B1, "60 8b 0d e8 60 62 00 ff 35 e0 04 60 00 6a 00 e8 4b 8d e1 ff 61 c3")

CodeCave(&H43C58E, "6a 00")

CodeCave(&H600019, "60 8b 0d 3c 3a 62 00 e8 0b d2 e3 ff 61 c3")

CodeCave(&H600029, "60 A3 00 01 60 00 61 29 F1 51 50 8D 4C E4 10 e9 a3 a6 e1 ff")

CodeCave(&H41A6D8, "E9 4c 59 1E 00 90 90 90")

CodeCave(&H4A7E74, "e9 e7 81 15 00")

CodeCave(&H600300, "60 8b 0d e8 60 62 00 6a 00 e8 b2 6a e1 ff 61 c3")

CodeCave(&H60033C, "60 8b 0d e8 60 62 00 ff 35 7b 23 40 00 e8 62 ed e1 ff e8 1d f3 f1 ff 61 c3 60 8b 0d e8 60 62 00 68 00 02 00 00 6a 00 ff 35 6f 24 40 00 e8 f2 de e1 ff e8 fd f2 f1 ff 61 c3 60 8b 0d e8 60 62 00 6a 00 e8 ed 77 e1 ff 61 c3")

CodeCave(&H600060, "60 B8 30 62 62 00 8B 00 8B 40 0C 05 DC 01 00 00 39 F0 75 06 FF 05 80 00 60 00 61 E9 79 7E EA FF")

CodeCave(&H5FFEF9, "60 8b 0d 3c 3a 62 00 6a 04 e8 34 a5 e3 ff e8 8f f6 f1 ff 61 c3") 'f1

CodeCave(&H5FFD7A, "60 8b 0d e8 60 62 00 6a 00 68 f1 77 5c 00 e8 23 ab e1 ff e8 de f8 f1 ff 61 c3")

End Sub

Private Sub ButtonX1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click

SpeedMov.Enabled = True

ReflectionLabel1.ForeColor = Color.Cyan

End Sub

Private Sub ButtonX11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX11.Click

CodeCave(&H49D76C, "E9 CE 29 16 00 90")

CodeCave(&H60013F, "60 B8 30 62 62 00 8B 00 8B 40 0C 05 DC 01 00 00 39 C8 74 29 2D DC 01 00 00 8B 90 84 05 00 00 89 91 A8 03 00 00 8B 90 88 05 00 00 89 91 AC 03 00 00 8B 90 8C 05 00 00 89 91 B0 03 00 00 61 D9 81 C0 03 00 00 D8 81 A8 03 00 00 D9 99 A8 03 00 00 D9 81 C4 03 00 00 D8 81 AC 03 00 00 D9 99 AC 03 00 00 D9 81 C8 03 00 00 D8 81 B0 03 00 00 D9 99 B0 03 00 00 E9 EA D5 E9 FF")

ReflectionLabel6.ForeColor = Color.Cyan

End Sub

Private Sub ButtonX12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX12.Click

CodeCave(&H49D76C, "D9 81 C0 03 00 00")

ReflectionLabel6.ForeColor = Color.DarkGray

End Sub

Private Sub ButtonX19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX19.Click

CodeCave(&H43D3F7, "E9 50 31 1C 00")

CodeCave(&H60054C, "59 89 0D 92 03 60 00 FF 35 92 03 60 00 8B 0D E8 60 62 00 E8 7C 6B E1 FF 60 8B 0D E8 60 62 00 FF 35 92 03 60 00 6A 00 E8 98 88 E1 FF 61 E9 7E CE E3 FF")

ReflectionLabel10.ForeColor = Color.Cyan

End Sub

Private Sub ButtonX20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX20.Click

CodeCave(&H43D3F7, "E8 E4 9C FD FF")

ReflectionLabel10.ForeColor = Color.DarkGray

End Sub

Private Sub ButtonX17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX17.Click

CodeCave(&H49D270, "90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90")

CodeCave(&H49DCF1, "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")

CodeCave(&H4A06F8, "90 90")

ReflectionLabel9.ForeColor = Color.Yellow

End Sub

Private Sub Fix_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Fix1.Tick

CodeCave(&H43C61D, "6a 00")

If m.Checked = True Then

Timer6.Enabled = True

info.Enabled = True

Else

Timer6.Enabled = False

Timer9.Enabled = False

info.Enabled = False

End If

End Sub

Private Sub ButtonX15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX15.Click

CodeCave(&H600000, "60 8B 0D E8 60 62 00 6A 04 6A 00 E8 10 7C E1 FF E8 5B F6 F1 FF 61 C3")

Execute(&H600000)

ReflectionLabel8.ForeColor = Color.Yellow

End Sub

Private Sub ButtonX13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX13.Click

PickUp.Enabled = True

ReflectionLabel7.ForeColor = Color.Cyan

End Sub

Private Sub ButtonX14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX14.Click

PickUp.Enabled = False

ReflectionLabel7.ForeColor = Color.DarkGray

End Sub

Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX2.Click

SpeedMov.Enabled = False

WriteAddress(Pointer, &H4, &H5B6, 16256)

ReflectionLabel1.ForeColor = Color.DarkGray

End Sub

Private Sub ButtonX3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX3.Click

AttackSpd.Enabled = True

ReflectionLabel2.ForeColor = Color.Cyan

End Sub

Private Sub ButtonX4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX4.Click

AttackSpd.Enabled = False

WriteAddress(Pointer, &H4, &H5BA, 16256)

ReflectionLabel2.ForeColor = Color.DarkGray

End Sub

Private Sub ButtonX7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX7.Click

AtkRange.Enabled = True

ReflectionLabel4.ForeColor = Color.Cyan

End Sub

Private Sub ButtonX8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX8.Click

AtkRange.Enabled = False

ReflectionLabel2.ForeColor = Color.DarkGray

WriteAddress(Pointer, &H4, &H5B2, 16256)

End Sub

Private Sub ButtonX5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

AtkHit.Enabled = True

End Sub

Private Sub ButtonX6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

AtkHit.Enabled = False

WriteAddress(Pointer, &H4, &H515, 0)

End Sub

Private Sub ButtonX9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX9.Click

AtkMode.Enabled = True

ReflectionLabel5.ForeColor = Color.Cyan

End Sub

Private Sub SpeedMov_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpeedMov.Tick

WriteAddress(Pointer, &H4, &H5B6, TextBoxX1.Text * 40 + 16256)

End Sub

Private Sub AttackSpd_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AttackSpd.Tick

WriteAddress(Pointer, &H4, &H5BA, TextBoxX2.Text * 40 + 16256)

End Sub

Private Sub AtkRange_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AtkRange.Tick

WriteAddress(Pointer, &H4, &H5B2, TextBoxX4.Text * 40 + 16256)

End Sub

Private Sub AtkMode_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AtkMode.Tick

WriteAddress(Pointer, &H4, &H440, 2)

End Sub

Private Sub PickUp_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PickUp.Tick

Execute(&H600019)

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim testo = Read_Text(12)

Label1.Text = testo

End Sub

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

Timer2.Enabled = True

End Sub

Private Sub ButtonX10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX10.Click

ReflectionLabel12.ForeColor = Color.Purple

For i = 0 To 174

Dim buff As Integer

Dim addy As Integer

ReadProcessMemory(processHandle, &H626518, buff, 4, 0)

addy = buff + &H4 * i

ReadProcessMemory(processHandle, addy, buff, 4, 0)

addy = buff + &H678

ReadProcessMemory(processHandle, addy, buff, 4, 0)

If buff > 0 Then

If buff > &HFF Then

WriteProcessMemory(processHandle, &H6004E0, buff, 4, Nothing)

Execute(&H6000B1)

End If

End If

Next

End Sub

Private Sub ButtonX16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX16.Click

Timer2.Enabled = False

ReflectionLabel12.ForeColor = Color.OrangeRed

End Sub

Private Sub ButtonX18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Timer2.Enabled = False

Timer3.Enabled = True

End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick

CodeCave(&H6000F0, "60 8b 0d 3c 3a 62 00 ff 35 d8 e4 40 00 e8 0e cf e3 ff 61 c3")

Dim value = ReadPointer(&H626518, &H4 * off, &H678)

off += 1

If value > 0 Then

WriteProcessMemory(processHandle, &H40E4D8, value, 4, Nothing)

Execute(&H6000F0)

End If

Dim vl

Dim a = Hex(ReadProcessMemory(processHandle, &H40E4D8, vl, 4, Nothing))

End Sub

Private Sub ButtonX27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX27.Click

CodeCave(&H5FFFCE, f4code)

Execute(&H5FFFCE)

f4.Enabled = True

f4.Interval = TextBoxX6.Text * 1000

ReflectionLabel16.ForeColor = Color.Cyan

End Sub

Private Sub f4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles f4.Tick

CodeCave(&H5FFFCE, f4code)

Execute(&H5FFFCE)

End Sub

Private Sub f3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles f3.Tick

CodeCave(&H5FFFCE, f3code)

Execute(&H5FFFCE)

End Sub

Private Sub f2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles f2.Tick

CodeCave(&H5FFFCE, f2code)

Execute(&H5FFFCE)

End Sub

Private Sub f1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles f1.Tick

CodeCave(&H5FFFCE, f1code)

Execute(&H5FFFCE)

End Sub

Private Sub ButtonX23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX23.Click

CodeCave(&H5FFFCE, f1code)

Execute(&H5FFFCE)

f1.Enabled = True

f1.Interval = TextBoxX3.Text * 1000

ReflectionLabel14.ForeColor = Color.Cyan

End Sub

Private Sub ButtonX24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX24.Click

f1.Enabled = False

ReflectionLabel14.ForeColor = Color.DarkGray

End Sub

Private Sub ButtonX25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX25.Click

CodeCave(&H5FFFCE, f2code)

Execute(&H5FFFCE)

f2.Enabled = True

f2.Interval = TextBoxX5.Text * 1000

ReflectionLabel15.ForeColor = Color.Cyan

End Sub

Private Sub ButtonX26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX26.Click

f2.Enabled = False

ReflectionLabel15.ForeColor = Color.DarkGray

End Sub

Private Sub ButtonX29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX29.Click

CodeCave(&H5FFFCE, f3code)

Execute(&H5FFFCE)

f3.Enabled = True

f3.Interval = TextBoxX7.Text * 1000

ReflectionLabel17.ForeColor = Color.Cyan

End Sub

Private Sub ButtonX30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX30.Click

f3.Enabled = False

ReflectionLabel14.ForeColor = Color.DarkGray

End Sub

Private Sub ButtonX28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX28.Click

f4.Enabled = False

ReflectionLabel16.ForeColor = Color.DarkGray

End Sub

Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick

Dim f1() As Char = TextBoxX8.Text

Dim testo() = f1

For i = 0 To f1.Length - 1

WriteText(processHandle, &H5C77F1 + i, testo(i), 1, Nothing)

Next

Execute(&H5FFD7A)

End Sub

Public Sub SaveMob()

Dim m As Mob

For i = 1 To 300

Dim buffer

Dim buffer1

Dim buffer2

Dim valuex As Single

Dim valuey As Single

ReadProcessMemory(processHandle, address, buffer, 4, Nothing)

buffer += &H4 * i

ReadProcessMemory(processHandle, buffer, buffer1, 4, Nothing)

buffer1 += &H584

ReadFloat(processHandle, buffer1, valuex, 4, Nothing)

ReadProcessMemory(processHandle, address, buffer, 4, Nothing)

buffer += &H4 * i

ReadProcessMemory(processHandle, buffer, buffer1, 4, Nothing)

buffer1 += &H588

ReadFloat(processHandle, buffer1, valuey, 4, Nothing)

Dim x = valuex / 100, y = valuey / -100

If Not IsDecimal(x) And x > 0 And Not IsPlus(x) And Not IsDecimal(y) And Not IsPlus(y) And y > 0 Then

Dim px As Integer = PgX()

Dim py As Integer = Pgy()

m = New Mob(ReadPointer(address, &H4 * i, &H678), ReadPointer(address, &H4 * i, &H16C), x, y)

Dim x1 As Integer = m.x * -1

Dim y1 As Integer = m.y * -1

Dim dist = Math.Sqrt(x1 * x1 + y1 * y1)

DrawFlag(-1 * x1, -1 * y1, m.color)

End If

Next

End Sub

Private Sub ButtonX32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX32.Click

Dim testo = " "

Dim f1() As Char = testo

For i = 0 To f1.Length - 1

WriteText(processHandle, &H5C77F1 + i, testo(i), 1, Nothing)

Next

Timer5.Interval = TextBoxX9.Text * 1000

Timer5.Enabled = True

End Sub

Private Sub ButtonX33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX33.Click

Timer5.Enabled = False

End Sub

Private Sub Button1_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs)

Execute(&H5FFD7A)

End Sub

Private Sub info_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles info.Tick

Dim map = ReadMap(ReadAddy(&H600100), 25)

Dim px As Integer = PgX()

If px = 0 Then

Timer9.Enabled = False

maps.Image = Nothing

Else

Timer9.Enabled = True

If map(0) = "map_n_snowm_01" Then

maps.Image = My.Resources.map_n_snowm_01

ElseIf map(0) = "metin2_map_a1" Then

maps.Image = My.Resources.metin2_map_a1

ElseIf map(0) = "metin2_map_a3" Then

maps.Image = My.Resources.metin2_map_a3

ElseIf map(0) = "metin2_map_b1" Then

maps.Image = My.Resources.metin2_map_b1

ElseIf map(0) = "metin2_map_b3" Then

maps.Image = My.Resources.metin2_map_b3

ElseIf map(0) = "metin2_map_c1" Then

maps.Image = My.Resources.metin2_map_c1

ElseIf map(0) = "metin2_map_c3" Then

maps.Image = My.Resources.metin2_map_c3

ElseIf map(0) = "metin2_map_deviltower1" Then

maps.Image = My.Resources.metin2_map_deviltower1

ElseIf map(0) = "metin2_map_guild_01" Then

maps.Image = My.Resources.metin2_map_guild_01

ElseIf map(0) = "metin2_map_milgyo" Then

maps.Image = My.Resources.metin2_map_milgyo

ElseIf map(0) = "metin2_map_monkeydungeon" Then

maps.Image = My.Resources.metin2_map_monkeydungeon

ElseIf map(0) = "metin2_map_monkeydungeon_02" Then

maps.Image = My.Resources.metin2_map_monkeydungeon_02

ElseIf map(0) = "metin2_map_monkeydungeon_03" Then

maps.Image = My.Resources.metin2_map_monkeydungeon_03

ElseIf map(0) = "metin2_map_n_desert_01" Then

maps.Image = My.Resources.metin2_map_n_desert_01

ElseIf map(0) = "metin2_map_n_flame_01" Then

maps.Image = My.Resources.metin2_map_n_flame_01

ElseIf map(0) = "metin2_map_trent02" Then

maps.Image = My.Resources.metin2_map_trent02

ElseIf map(0) = "watery_cavern" Then

maps.Image = My.Resources.watery_cavern

End If

End If

End Sub

Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick

maps.Refresh()

End Sub

Private Sub map_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub GroupPanel1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupPanel1.Click

End Sub

Private Sub ButtonX5_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX5.Click

ReflectionLabel3.ForeColor = Color.Cyan

WriteProcessMemory(processHandle, &H6070E1, 307163591, 4, Nothing)

WriteProcessMemory(processHandle, &H603786, 19999, 4, Nothing)

End Sub

Private Sub ButtonX6_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX6.Click

ReflectionLabel2.ForeColor = Color.DarkGray

WriteProcessMemory(processHandle, &H6070E1, 4560384, 4, Nothing)

WriteProcessMemory(processHandle, &H603786, 17692, 4, Nothing)

End Sub

Public Function Hpget()

Dim hp = ReadHp(ReadAddy(&H60045E), 20)

If IsInfo(hp(0)) = True Then

Dim HpInfo = Split(hp(0), " ")

Dim min = HpInfo(2)

Dim max = HpInfo(4)

Dim Percento = CInt((min / max) * 100)

PictureBox4.Width = Percento

Return Percento

End If

End Function

' Public Function MpGet()

'Dim mp = ReadHp(ReadAddy(&H600466), 20)

' If IsInfo(mp(0)) = True Then

'Dim a = mp

'Dim mpInfo = Split(mp(0), " ")

'Dim min = mpInfo(2)

'Dim max = mpInfo(4)

'Dim Percento = CInt((min / max) * 100)

'ReflectionImage2.Width = Percento

' End If

' End Function

Private Function IsInfo(ByVal clngNumber As String) As Boolean

If InStr(1, CStr(clngNumber), ":", vbTextCompare) Then

IsInfo = True

End If

End Function

Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick

Dim x = PgX()

Dim y = Pgy()

Dim mioid = ReadPointer(address, &H0, &H16C)

' Dim exp = ReadHp(ReadAddy(&H600462), 20)

Dim Percentage As Integer

'Percentage = CInt((ActualHP / MaxHP(1)) * 100)

labx.Text = x

laby.Text = y

If mioid = 0 Then

id.Image = My.Resources.warrior_m

idt.Text = "Guerriero"

ElseIf mioid = 7 Then

id.Image = My.Resources.shaman_m

idt.Text = "Shamano"

ElseIf mioid = 3 Then

id.Image = My.Resources.shaman_w

idt.Text = "Shamana"

ElseIf mioid = 4 Then

id.Image = My.Resources.warrior_w

idt.Text = "Guerriera"

ElseIf mioid = 6 Then

id.Image = My.Resources.sura_w

idt.Text = "Suressa"

ElseIf mioid = 1 Then

id.Image = My.Resources.assassin_w

idt.Text = "NinjaDonna"

ElseIf mioid = 2 Then

id.Image = My.Resources.sura_m

idt.Text = "Sura"

ElseIf mioid = 5 Then

id.Image = My.Resources.assassin_m

idt.Text = "Ninja"

End If

End Sub

Public Function ReadAddy(ByVal address)

Dim buffer

ReadProcessMemory(processHandle, address, buffer, 4, Nothing)

Return buffer

End Function

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)

Process.Start("http://www.unfair-gamers.com")

End Sub

Public Sub Esca()

Dim pesce = UseItem(Pescepiccolo)

Dim pas = UseItem(Pasta)

Dim ver = UseItem(Vermi)

If pesce > 0 & pesce < 99 Then

Use()

ElseIf ver > 0 & ver < 99 Then

Use()

ElseIf pas > 0 & pas < 99 Then

Use()

End If

End Sub

Public Function PozzaRossa()

Dim piccola = UseItem(rossap)

Dim media = UseItem(rossam)

Dim grande = UseItem(rossag)

If piccola > 0 & piccola < 99 Then

Use()

Exit Function

ElseIf media > 0 & media < 99 Then

Use()

Exit Function

ElseIf grande > 0 & grande < 99 Then

Use()

Exit Function

End If

End Function

Public Function PozzaBlu()

Dim piccola = UseItem(blup)

Dim media = UseItem(blum)

Dim grande = UseItem(blug)

If piccola > 0 & piccola < 99 Then ' Cerca la BluPiccola se la trova la usa, se non la trova cerca la Media

Use()

ElseIf media > 0 & media < 99 Then ' Cerca la media se la trova la usa, se non la trova cerca la G

Use()

ElseIf grande > 0 & media < 99 Then

End If

End Function

Public Sub DropItem(ByVal value)

For i = 0 To 99

Dim AddyItem = Read(inventario, &H74 + &H2A * i)

If AddyItem = value Then

WriteProcessMemory(processHandle, &H40246F, i, 4, Nothing)

End If

Next

End Sub

Public Function UseItem(ByVal value)

For i As Integer = 0 To 99

Dim AddyItem = Read(inventario, &H74 + &H2A * i)

If AddyItem = value Then

WriteProcessMemory(processHandle, &H40237B, i, 4, Nothing)

Return i

Exit Function

End If

Next

End Function

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)

Execute(&H600300) ' Apri Nego

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Execute(&H600312) ' COmpra Esche

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Execute(&H600327) ' ChiudiNego

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Execute(&H600335) ' AlzaCAnna

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Execute(&H600355) 'AnteNego

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Execute(&H600345) ' AnteCHiudi

End Sub

Private Sub pesca_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pesca.Tick

Canna()

Esca()

Canna()

pesca.Enabled = False

End Sub

Private Sub ButtonX18_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX18.Click

Timer8.Enabled = True

WriteProcessMemory(processHandle, &H600080, 0, 4, Nothing)

pesca.Interval = TextBoxX10.Text

End Sub

Private Sub ButtonX21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX21.Click

Timer8.Enabled = False

fish.Enabled = False

pesca.Enabled = False

End Sub

Private Sub fish_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fish.Tick

Timer8.Enabled = False

Dim value = ReadNuvola()

If nuvola = value Then

nuvola = nuvola + 1

pesca.Enabled = True

Else

End If

End Sub

Private Sub Timer8_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer8.Tick

Esca()

Canna()

fish.Enabled = True

End Sub

Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick

Hpget()

'MpGet()

If TextBoxX11.Text > Hpget() Then

PozzaRossa()

End If

End Sub

Private Sub Timer9_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer9.Tick

Dim px As Integer = PgX()

Dim py As Integer = Pgy()

Dim X As Integer = PgX() * -1 + map.Width / 2

Dim Y As Integer = Pgy() * -1 + map.Height / 2

Dim myx As Integer = X * -1 + map.Width / 2

Dim myy As Integer = Y * -1 + map.Height / 2

Dim g As Graphics

g = maps.CreateGraphics()

g.DrawImage(My.Resources.bullet_cross, myx - 10, myy)

maps.Location = New Point(X, Y)

SaveMob()

End Sub

Private Sub fix2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fix2.Tick

CodeCave(&H43C61D, "6a 01")

End Sub

Private Sub PanelEx1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PanelEx1.Click

End Sub

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

Me.Text = " [E]xps[E]asy {v2}"

Me.Size = New Size(210, 407)

Button1.Enabled = False

End Sub

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.Text = " [E]xps[E]asy {v2}"

Me.Size = New Size(624, 405)

Button1.Enabled = True

End Sub

Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Execute(&H60009C)

End Sub

End Class

 

[stronka111]

//Źródło z innego forum. Nie dostajesz warna, ponieważ nie było nowego pkt. w regulaminie jak pisałeś tego posta.

[stronka111]

kiedyś jak jeszcze te adresy były aktualne to zrobiłem sobie programik który pokazywał mi co gdzie jest:)

Każda rzecz była innym kolorem i widać było np metiny;p Ale coś mi nie pasowało w tym programiku i nie wrzuciłem na forum;p (chyba miał bardzo mały zasięg)

[ziomek11304]

chyba dało by się z tego hacka zrobić ale potrzeba Cupidyna Lubie I Całej reszty :P :P :P :P :P

[Sasuke16]

@stronka111

 

Dzięki za podanie źródła, bo mi się coś zapomniało

 

 

 

@ziomek11304

 

miejmy nadzieje że coś się ruszy

[emilo16]

ziomek11304

 

 

Potrzeba raczej Miska,Kamera Lub innych ludzi.

 

 

Cupidyn i Lubie jak juz to robia Hacki zwiazane z Plikami PC:)

[Fepesz]

to do microsoft visual basic ?

[michal418]

to co

[Sasuke16]

@Fepesz

 

Tak do Microsoft Visual Basic c++

[damianez122]

Na 100 pro się przyda, ale wstaw to w Spoilery bo zaśmieca temat

 

[spoiler][/spoiler]

 

Troche za długi code a dawanie bez spoilera.

[ZamekMT2]

Ładny Cheat

[Lyons]

@ziomek11304.

Raczej kamer, misiek, Andrzej...

Lubie to sie zna ale na plikach PC.

[DragonX8PL]

no właśnie Lubie to raczej się na pythonie zna

[damianez122]

no właśnie Lubie to raczej się na pythonie zna

 

I skojarzenia się włączają

 

Co do kodu to ja szukam kodu EM2 Może kiedyś znajdę :P

[MrDeViX]

Lubie na pewno uwielbia swego pythona

 

Na pewno coś wyjdzie

[ShrekForever]

heh sie przyda

teraz profesonalistow z forum

i bierzemy sie do roboty...

troche sie na tym znam moze cos porobie

ale hacka nie zrobie

[JESTemGIT]

EJ JAK SIE ŚCIĄGA HACKI A RZECZY + 9?

[kubsoncipka]

@up nie ma hacków na itremy na 9...Tak wogóle noowy N3o sie pojawił na forum:)

[kamilsiwy]

dzięki masz +

[* SaMeR *]

[Misiekantos253]

Starczy miec kod aplikacji tak jak tutaj i tylko przez jakiegos debuggera albo CE znalezc wartosci odpowiadajace za te funkcje...

[CaM™]

KaMeR1337 on lubi vb08 no anrzejt17 i ktoś jeszcze i był by hack !

[LoveEver]

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
CodeCave(&H6000F0, "60 8b 0d 3c 3a 62 00 ff 35 d8 e4 40 00 e8 0e cf e3 ff 61 c3")
Dim value = ReadPointer(&H626518, &H4 * off, &H678)
off += 1

 

Coś mi tu nie "pasi"

[Polaski]

No , no powodzenia życze

[Maciek134]

Rewrite na delphi i ogarnięcie jak to działa ;p Jak mi się skończy licencja na Easy to się tym zajme.

 

#EDIT:

Nie chcę nic mówić ale to nie wygląda na pełny kod expbota, nie znalazłem funkcji odpowiedzialnych za znajdowanie mobów albo atak (mogłem przeoczyć, w VB nie programuję ale znam struktury ogólnie więc większość ogarniam). Bardziej jakiś fishbot, są funkcje do używania itemów, klikania f1-f4, ale jest też rozpoznawanie mapy więc prawdopodobnie gdzieś tam te funkcje od expienia siedzą, zaraz poszukam bardziej i dam edita.

 

#EDIT2:

Cofam to co napisałem wyżej, przeoczyłem wyszukiwanie mobów, jest ono tutaj:

Public Sub SaveMob()
Dim m As Mob
For i = 1 To 300
Dim buffer
Dim buffer1
Dim buffer2
Dim valuex As Single
Dim valuey As Single
ReadProcessMemory(processHandle, address, buffer, 4, Nothing)
buffer += &H4 * i
ReadProcessMemory(processHandle, buffer, buffer1, 4, Nothing)
buffer1 += &H584
ReadFloat(processHandle, buffer1, valuex, 4, Nothing)
ReadProcessMemory(processHandle, address, buffer, 4, Nothing)
buffer += &H4 * i
ReadProcessMemory(processHandle, buffer, buffer1, 4, Nothing)
buffer1 += &H588
ReadFloat(processHandle, buffer1, valuey, 4, Nothing)
Dim x = valuex / 100, y = valuey / -100
If Not IsDecimal(x) And x > 0 And Not IsPlus(x) And Not IsDecimal(y) And Not IsPlus(y) And y > 0 Then
Dim px As Integer = PgX()
Dim py As Integer = Pgy()
m = New Mob(ReadPointer(address, &H4 * i, &H678), ReadPointer(address, &H4 * i, &H16C), x, y)
Dim x1 As Integer = m.x * -1
Dim y1 As Integer = m.y * -1
Dim dist = Math.Sqrt(x1 * x1 + y1 * y1)
DrawFlag(-1 * x1, -1 * y1, m.color)
End If
Next
End Sub

Strasznie ciężko się czyta ten kod, muszę go sobie przerobić ;p