[php]'Copyright (c) 2010 Innovators World Wide
'Released 2010 For Explicit use by/for Mpgh.net and it's members
'Permission is hereby granted, free of charge, to any person obtaining a copy
'of this software and associated documentation files (the "Software"), to deal
'in the Software without restriction, including without limitation the rights
'to use, copy, modify, merge, publish, distribute, a application for Mpgh.net Only.
'and to permit persons to whom the Software is
'furnished to do so, subject to the following conditions:
'THE SOFTWARE IS PROVIDED ‘AS IS’, WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
'IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
'FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
'AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
'LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
'OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
'THE SOFTWARE.
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports System.Diagnostics
Imports System.Runtime****teropServices
Imports System.Threading
Public Class Inject
Friend Declare Auto Function SingleObj Lib "kernel32" (ByVal handle As IntPtr, ByVal milliseconds As Int32) As Int32
<DllImport("kernel32")> _
Public Shared Function RemoteThd(ByVal hProcess As IntPtr, ByVal lpThreadAttributes As IntPtr, ByVal dwStackSize As UInteger, ByVal lpStartAddress As UIntPtr, ByVal lpParameter As IntPtr, ByVal dwCreationFlags As UInteger, _
ByRef lpThreadId As IntPtr) As IntPtr
End Function
<DllImport("kernel32.dll")> _
Public Shared Function ProcessSt(ByVal dwDesiredAccess As UInt32, ByVal bInheritHandle As Int32, ByVal dwProcessId As Int32) As IntPtr
End Function
<DllImport("kernel32.dll", CharSet:=CharSet.Ansi, ExactSpelling:=True)> _
Public Shared Function GetProcAddress(ByVal hModule As IntPtr, ByVal procName As String) As UIntPtr
End Function
<DllImport("kernel32.dll")> _
Public Shared Function HandleStp(ByVal hObject As IntPtr) As Int32
End Function
Private Declare Auto Function FreeExup Lib "kernel32.dll" (ByVal hProcess As IntPtr, ByVal lpAddress As IntPtr, ByVal dwSize As UIntPtr, ByVal dwFreeType As UInteger) As Boolean
Private Declare Auto Function AllocExVT Lib "kernel32.dll" (ByVal hProcess As IntPtr, ByVal lpAddress As IntPtr, ByVal dwSize As UInteger, ByVal flAllocationType As UInteger, ByVal flProtect As UInteger) As IntPtr
<DllImport("kernel32.dll")> _
Private Shared Function Wprocmem(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByVal lpBuffer As String, ByVal nSize As UIntPtr, ByRef lpNumberOfBytesWritten As IntPtr) As Boolean
End Function
<DllImport("kernel32.dll", CharSet:=CharSet.Auto)> _
Public Shared Function GetHandle(ByVal lpModuleName As String) As IntPtr
End Function
Public Shared Function ProcessIdRet(ByVal proc As [String]) As Int32
Dim ProcLRet As Process()
ProcLRet = Process.GetProcessesByName(proc)
Return ProcLRet(0).Id
End Function
Public Shared Sub InjectDLL(ByVal hProcess As IntPtr, ByVal strDLLName As [String])
Dim bytesout As IntPtr
Dim LenWrite As Int32 = strDLLName.Length + 1
Dim AllocMem As IntPtr = DirectCast(AllocExVT(hProcess, DirectCast(Nothing, IntPtr), CUInt(LenWrite), &H1000, &H40), IntPtr)
Wprocmem(hProcess, AllocMem, strDLLName, DirectCast(LenWrite, Integer), bytesout)
Dim Injector As String = DirectCast(GetProcAddress(GetHandle("kernel32.dll" ), "LoadLibraryA"), UIntPtr)
If Injector Is Nothing Then
MessageBox.Show(" Injector Error! " & vbLf & " ")
Exit Sub
End If
Dim ThreadHd As String = DirectCast(RemoteThd(hProcess, DirectCast(Nothing, IntPtr), 0, Injector, AllocMem, 0, _
bytesout), IntPtr)
If ThreadHd Is Nothing Then
MessageBox.Show(" ThreadHd [ 1 ] Error! " & vbLf & " ")
Exit Sub
End If
Dim Result As Integer = SingleObj(ThreadHd, 10 * 1000)
If Result = 128L OrElse Result = 258L OrElse Result = &HFFFFFFFF Then
MessageBox.Show(" ThreadHd [ 2 ] Error! " & vbLf & " ")
If ThreadHd IsNot Nothing Then
HandleStp(ThreadHd)
End If
Exit Sub
End If
Thread.Sleep(1000)
FreeExup(hProcess, AllocMem, DirectCast(0, Integer), &H8000)
If ThreadHd IsNot Nothing Then
HandleStp(ThreadHd)
End If
Exit Sub
End Sub
Private Sub InjectIt()
Dim DLLName As [String] = ""
Dim ProcessName As [String] = ""
Dim ProcID As Int32 = ProcessIdRet(ProcessName)
If ProcID >= 0 Then
Dim hProcess As String = DirectCast(ProcessSt(&H1F0FFF, 1, ProcID), IntPtr)
If hProcess Is Nothing Then
MessageBox.Show("ProcessSt(): No Success")
Exit Sub
Else
InjectDLL(hProcess, DLLName)
End If
End If
End Sub
End Class
[/php]
Originally Posted by Blubb1337
