Public Class bypassclient
Public Enum ProcessAccessFlags As UInteger
All = &H1F0FFF
Terminate = &H1
CreateThread = &H2
VMOperation = &H8
VMRead = &H10
VMWrite = &H20
DupHandle = &H40
SetInformation = &H200
QueryInformation = &H400
Synchronize = &H100000
End Enum
<DllImport("kernel32.dll")> _
Private Shared Function OpenProcess(ByVal dwDesiredAccess As ProcessAccessFlags, _
<MarshalAs(UnmanagedType.Bool)> ByVal bInheritHandle As Boolean, _
ByVal dwProcessId As Integer) As IntPtr
End Function
<DllImport("kernel32.dll", SetLastError:=True)> _
Public Shared Function CloseHandle(ByVal hObject As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
<DllImport("kernel32.dll", SetLastError:=True)> _
Public Shared Function WriteProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByVal lpBuffer As Byte(), ByVal nSize As System.UInt32, <Out()> ByRef lpNumberOfBytesWritten As Int32) As Boolean
End Function
Public Declare Function GetProcAddress Lib "kernel32.dll" _
(ByVal hModule As IntPtr, ByVal procName As String) As IntPtr
<DllImport("kernel32.dll")> _
Public Shared Function GetModuleHandle(ByVal lpModuleName As String) As IntPtr
End Function
<DllImport("kernel32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
Public Shared Function LoadLibrary(<MarshalAs(UnmanagedType.LPStr)> ByVal lpFileName As String) As IntPtr
End Function
<DllImport("kernel32.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _
Public Shared Function FreeLibrary(ByVal hModule As IntPtr) As Boolean
End Function
Public Sub New()
End Sub
Public Function connect2IP(ByVal PID As Integer, ByVal IPAdd As String) As Integer
Dim ws2Handle As IntPtr = LoadLibrary("WS2_32.dll")
If ws2Handle = vbNull Then
FreeLibrary(ws2Handle)
Return 1
End If
Dim cHandle As IntPtr = OpenProcess(ProcessAccessFlags.VMOperation Or ProcessAccessFlags.VMRead Or ProcessAccessFlags.VMWrite Or _
ProcessAccessFlags.All, True, PID)
If cHandle = vbNull Then
FreeLibrary(ws2Handle)
Return 2
End If
Dim inet_addr As IntPtr = GetProcAddress(GetModuleHandle("WS2_32.dll"), "inet_addr")
If inet_addr = vbNull Then
FreeLibrary(ws2Handle)
Return 3
End If
Dim buffer() As Byte = {&HB8, &H0, &H0, &H0, &H0, &HC2, &H4, &H0, &H90, &H90}
Dim byteIPaddress() As Byte = IPAddress.Parse(IPAdd).GetAddressBytes()
System.Buffer.BlockCopy(byteIPaddress, 0, buffer, 1, byteIPaddress.Length)
Dim bytesWritten As Integer = 0
If Not WriteProcessMemory(cHandle, inet_addr, buffer, buffer.Length, bytesWritten) Then
FreeLibrary(ws2Handle)
Return 4
End If
CloseHandle(cHandle)
FreeLibrary(ws2Handle)
Return 0
End Function
End Class
You can use it in your proxy .
But it will only work only on 32bits and I have no idea how to make it run in 64bits windows 7.
You are retreiving the memory address of the module inside your own program, not the remote program which you are re-directing.
Fortunately, this usually isn't a problem, at least not with most system DLLs since they're almost always located at the same address in all processes, at least until your computer is restarted .
You are retreiving the memory address of the module inside your own program, not the remote program which you are re-directing.
Fortunately, this usually isn't a problem, at least not with most system DLLs since they're almost always located at the same address in all processes, at least until your computer is restarted .
Nontheless, good job
Thanks master... Hope someday I can be as proficient as you in memory things.
A New Class Monk is coming in Conquer Online! 11/26/2010 - Conquer Online 2 - 1 Replies Hey,Guys
A new class Monk is coming in Conquer Online on Dec 16th.
This is an amazing class, with many magical abilities. They can assist you in battle by giving you various extra attributes, while still being able to tough it out on the front lines! Just get ready for its coming!
Have a nice day and here are some pics for you:
http://img1.91huo.com/co/images/news/0913_mmonk.j pg
A New Class Monk is coming in Conquer Online! 11/25/2010 - Conquer Online 2 - 2 Replies Hey,Guys
A new class Monk is coming in Conquer Online on Dec 16th.
This is an amazing class, with many magical abilities. They can assist you in battle by giving you various extra attributes, while still being able to tough it out on the front lines! Just get ready for its coming!
Have a nice day and here are some pics for you:
http://img1.91huo.com/co/images/news/0913_mmonk.j pg
Conquer Online Class and Reborn Introducing 08/21/2010 - CO2 Guides & Templates - 1 Replies Okay I was bored at school and thought I would make a guide for Conquer Online.
What should the guide include was what I thought, hmm.
As I couldn't get on anything, then I thought I would make a guide for all things in Conquer.
I hope this will be useful for all :)
Goodluck
First what is Conquer Online?
Conquer Online is a MMORPG (Massively Multiplayer Online Role Playing Game).
Is based on 3d models, but with 2d gameplay, it got a unique style of gameplaying, wich is not seen much...
New class on Conquer Online! 07/10/2008 - Conquer Online 2 - 38 Replies Hi all!,
My friend is a and he sayt that there`s comming a new class!
The new class named : Ninja
He dindt know that much about ..
Maybe it gonna replace the Trojan ....:eek:
He think CO gonna release is in patch 5029
Other its gonna be released in patch 5030!
--w00tare