Injector Source Code

Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.IO
Imports System****ntime.CompilerServices
Imports System****ntime.InteropServices
Imports System.Windows.Forms

Namespace ***********
    <DesignerGenerated> _
    Public Class Form1
        Inherits Form
        ' Methods
        Public Sub New()
            AddHandler MyBase.Load, New EventHandler(AddressOf Me.Form1_Load)
            Me.ExeName = Path.GetFileNameWithoutExtension(Application.ExecutablePath)
            Me.InitializeComponent
        End Sub

        Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
            Me.OpenFileDialog1.Filter = "DLL (*.dll) |*.dll|(*.*) |*.*"
            Me.OpenFileDialog1.ShowDialog
            Dim item As String = Me.OpenFileDialog1.FileName.Substring(Me.OpenFileDialog1.FileName.LastIndexOf("\")).Replace("\", "")
            Me.Dlls.Items.Add(item)
        End Sub

        Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)
            Me.Dlls.Items.Clear
        End Sub

        Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs)
            If File.Exists(Me.OpenFileDialog1.FileName) Then
                If (Process.GetProcessesByName(Me.TextBox2.Text).Length = 0) Then
                    Me.Label2.Text = ("Waiting for " & Me.TextBox2.Text & ".exe Injection(F12)...")
                Else
                    Me.Timer1.Stop
                    Me.Label2.Text = "Successful Injected!"
                    Me.Inject
                    If MyProject.Forms.Form2.CheckBox1.Checked Then
                        Me.Close
                    End If
                End If
            End If
        End Sub

        Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs)
            Dim i As Integer = (Me.Dlls.SelectedItems.Count - 1)
            Do While (i >= 0)
                Me.Dlls.Items.Remove(RuntimeHelpers.GetObjectValue(Me.Dlls.SelectedItems.Item(i)))
                i = (i + -1)
            Loop
        End Sub

        <DllImport("kernel32", EntryPoint:="CloseHandleA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
        Private Shared Function CloseHandle(ByVal hObject As Integer) As Integer
        End Function

        Private Sub CloseToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
            Me.Close
        End Sub

        <DllImport("kernel32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
        Public Shared Function CreateRemoteThread(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
        End Function

        Private Sub CreditsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
            Interaction.MsgBox("Injector Made By ********", MsgBoxStyle.Information, Nothing)
        End Sub

        <DebuggerNonUserCode> _
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            Try 
                If (disposing AndAlso (Not Me.components Is Nothing)) Then
                    Me.components.Dispose
                End If
            Finally
                MyBase.Dispose(disposing)
            End Try
        End Sub

        <DllImport("user32", EntryPoint:="FindWindowA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
        Private Shared Function FindWindow(<MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpClassName As String, <MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpWindowName As String) As Integer
        End Function

        Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
            Me.Button1.Text = "Add"
            Me.Label2.Text = "Waiting for select dll file"
            Me.Timer1.Interval = 50
            Me.Timer1.Start
        End Sub

        <DllImport("Kernel32", EntryPoint:="GetModuleHandleA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
        Private Shared Function GetModuleHandle(<MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpModuleName As String) As Integer
        End Function

        <DllImport("kernel32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
        Public Shared Function GetProcAddress(ByVal hModule As Integer, <MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpProcName As String) As Integer
        End Function

        <DebuggerStepThrough> _
        Private Sub InitializeComponent()
            Me.SuspendLayout()
            '
            'Form1
            '
            Me.AllowDrop = True
            Me.BackColor = System.Drawing.Color.Black
            Me.ClientSize = New System.Drawing.Size(284, 262)
            Me.MaximizeBox = False
            Me.MinimizeBox = False
            Me.Name = "Form1"
            Me.TransparencyKey = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
            Me.ResumeLayout(False)

        End Sub

        Private Sub Inject()
            Dim num6 As Integer
            Try 
                Dim num5 As Integer
                ProjectData.ClearProjectError
                Dim num4 As Integer = 2
                Me.Timer1.Stop
                Dim processesByName As Process() = Process.GetProcessesByName(Me.TextBox2.Text)
                Me.TargetProcessHandle = Form1.OpenProcess(&H2A, 0, processesByName(0).Id)
                Me.pszLibFileRemote = Me.OpenFileDialog1.FileName
                Dim lpModuleName As String = "Kernel32"
                Dim lpProcName As String = "LoadLibraryA"
                Me.pfnStartAddr = Form1.GetProcAddress(Form1.GetModuleHandle((lpModuleName)), (lpProcName))
                Me.TargetBufferSize = (1 + Strings.Len(Me.pszLibFileRemote))
                Dim lpBaseAddress As Integer = Form1.VirtualAllocEx(Me.TargetProcessHandle, 0, Me.TargetBufferSize, &H1000, 4)
                Dim lpNumberOfBytesWritten As Integer = 0
                Dim num2 As Integer = Form1.WriteProcessMemory(Me.TargetProcessHandle, lpBaseAddress, (Me.pszLibFileRemote), Me.TargetBufferSize, (lpNumberOfBytesWritten))
                lpNumberOfBytesWritten = 0
                Form1.CreateRemoteThread(Me.TargetProcessHandle, 0, 0, Me.pfnStartAddr, lpBaseAddress, 0, (lpNumberOfBytesWritten))
                Form1.CloseHandle(Me.TargetProcessHandle)
            Label_00DD:
                num6 = 1
                Me.Show
                If (num5 <> 0) Then
                    ProjectData.ClearProjectError
                End If
                Return
            Label_00E8:
                num5 = -1
                Select Case num4
                    Case 0, 1
                        goto Label_0124
                    Case 2
                        goto Label_00DD
                End Select
            Catch obj1 As Object When (?)
                ProjectData.SetProjectError(DirectCast(obj1, Exception), num6)
                goto Label_00E8
            End Try
        Label_0124:
            Throw ProjectData.CreateProjectError(-2146828237)
        End Sub

        <DllImport("kernel32", EntryPoint:="LoadLibraryA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
        Public Shared Function LoadLibrary(<MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpLibFileName As String) As Integer
        End Function

        Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, ByVal e As CancelEventArgs)
        End Sub

        <DllImport("kernel32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
        Public Shared Function OpenProcess(ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
        End Function

        Private Sub OptionsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
            MyProject.Forms.Form2.Show
        End Sub

        <DllImport("kernel32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
        Public Shared Function ReadProcessMemory(ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, <MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpBuffer As String, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        End Function

        Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
            If File.Exists(Me.OpenFileDialog1.FileName) Then
                If (Process.GetProcessesByName(Me.TextBox2.Text).Length = 0) Then
                    Me.Label2.Text = ("Waiting for " & Me.TextBox2.Text & ".exe...")
                Else
                    Me.Timer1.Stop
                    Me.Label2.Text = "Successful Injected!"
                    Me.Inject
                    If MyProject.Forms.Form2.CheckBox3.Checked Then
                        Me.Close
                    End If
                End If
            End If
        End Sub

        <DllImport("kernel32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
        Public Shared Function VirtualAllocEx(ByVal hProcess As Integer, ByVal lpAddress As Integer, ByVal dwSize As Integer, ByVal flAllocationType As Integer, ByVal flProtect As Integer) As Integer
        End Function

        <DllImport("kernel32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
        Public Shared Function WriteProcessMemory(ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, <MarshalAs(UnmanagedType.VBByRefStr)> ByRef lpBuffer As String, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        End Function


        ' Properties
        Friend Overridable Property Button1 As Button
            Get
                Return Me._Button1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized)> _
            Set(ByVal WithEventsValue As Button)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.Button1_Click)
                If (Not Me._Button1 Is Nothing) Then
                    RemoveHandler Me._Button1.Click, handler
                End If
                Me._Button1 = WithEventsValue
                If (Not Me._Button1 Is Nothing) Then
                    AddHandler Me._Button1.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property Button2 As Button
            Get
                Return Me._Button2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized)> _
            Set(ByVal WithEventsValue As Button)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.Button2_Click)
                If (Not Me._Button2 Is Nothing) Then
                    RemoveHandler Me._Button2.Click, handler
                End If
                Me._Button2 = WithEventsValue
                If (Not Me._Button2 Is Nothing) Then
                    AddHandler Me._Button2.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property Button3 As Button
            Get
                Return Me._Button3
            End Get
            <MethodImpl(MethodImplOptions.Synchronized)> _
            Set(ByVal WithEventsValue As Button)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.Button3_Click)
                If (Not Me._Button3 Is Nothing) Then
                    RemoveHandler Me._Button3.Click, handler
                End If
                Me._Button3 = WithEventsValue
                If (Not Me._Button3 Is Nothing) Then
                    AddHandler Me._Button3.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property Button4 As Button
            Get
                Return Me._Button4
            End Get
            <MethodImpl(MethodImplOptions.Synchronized)> _
            Set(ByVal WithEventsValue As Button)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.Button4_Click)
                If (Not Me._Button4 Is Nothing) Then
                    RemoveHandler Me._Button4.Click, handler
                End If
                Me._Button4 = WithEventsValue
                If (Not Me._Button4 Is Nothing) Then
                    AddHandler Me._Button4.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property CloseToolStripMenuItem As ToolStripMenuItem
            Get
                Return Me._CloseToolStripMenuItem
            End Get
            <MethodImpl(MethodImplOptions.Synchronized)> _
            Set(ByVal WithEventsValue As ToolStripMenuItem)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.CloseToolStripMenuItem_Click)
                If (Not Me._CloseToolStripMenuItem Is Nothing) Then
                    RemoveHandler Me._CloseToolStripMenuItem.Click, handler
                End If
                Me._CloseToolStripMenuItem = WithEventsValue
                If (Not Me._CloseToolStripMenuItem Is Nothing) Then
                    AddHandler Me._CloseToolStripMenuItem.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property CreditsToolStripMenuItem As ToolStripMenuItem
            Get
                Return Me._CreditsToolStripMenuItem
            End Get
            <MethodImpl(MethodImplOptions.Synchronized)> _
            Set(ByVal WithEventsValue As ToolStripMenuItem)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.CreditsToolStripMenuItem_Click)
                If (Not Me._CreditsToolStripMenuItem Is Nothing) Then
                    RemoveHandler Me._CreditsToolStripMenuItem.Click, handler
                End If
                Me._CreditsToolStripMenuItem = WithEventsValue
                If (Not Me._CreditsToolStripMenuItem Is Nothing) Then
                    AddHandler Me._CreditsToolStripMenuItem.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property Dlls As ListBox
            Get
                Return Me._Dlls
            End Get
            <MethodImpl(MethodImplOptions.Synchronized)> _
            Set(ByVal WithEventsValue As ListBox)
                Me._Dlls = WithEventsValue
            End Set
        End Property

        Friend Overridable Property FilesToolStripMenuItem As ToolStripMenuItem
            Get
                Return Me._FilesToolStripMenuItem
            End Get
            <MethodImpl(MethodImplOptions.Synchronized)> _
            Set(ByVal WithEventsValue As ToolStripMenuItem)
                Me._FilesToolStripMenuItem = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label1 As Label
            Get
                Return Me._Label1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized)> _
            Set(ByVal WithEventsValue As Label)
                Me._Label1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label2 As Label
            Get
                Return Me._Label2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized)> _
            Set(ByVal WithEventsValue As Label)
                Me._Label2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label3 As Label
            Get
                Return Me._Label3
            End Get
            <MethodImpl(MethodImplOptions.Synchronized)> _
            Set(ByVal WithEventsValue As Label)
                Me._Label3 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property MenuStrip1 As MenuStrip
            Get
                Return Me._MenuStrip1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized)> _
            Set(ByVal WithEventsValue As MenuStrip)
                Me._MenuStrip1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property OpenFileDialog1 As OpenFileDialog
            Get
                Return Me._OpenFileDialog1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized)> _
            Set(ByVal WithEventsValue As OpenFileDialog)
                Dim handler As CancelEventHandler = New CancelEventHandler(AddressOf Me.OpenFileDialog1_FileOk)
                If (Not Me._OpenFileDialog1 Is Nothing) Then
                    RemoveHandler Me._OpenFileDialog1.FileOk, handler
                End If
                Me._OpenFileDialog1 = WithEventsValue
                If (Not Me._OpenFileDialog1 Is Nothing) Then
                    AddHandler Me._OpenFileDialog1.FileOk, handler
                End If
            End Set
        End Property

        Friend Overridable Property OptionsToolStripMenuItem As ToolStripMenuItem
            Get
                Return Me._OptionsToolStripMenuItem
            End Get
            <MethodImpl(MethodImplOptions.Synchronized)> _
            Set(ByVal WithEventsValue As ToolStripMenuItem)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.OptionsToolStripMenuItem_Click)
                If (Not Me._OptionsToolStripMenuItem Is Nothing) Then
                    RemoveHandler Me._OptionsToolStripMenuItem.Click, handler
                End If
                Me._OptionsToolStripMenuItem = WithEventsValue
                If (Not Me._OptionsToolStripMenuItem Is Nothing) Then
                    AddHandler Me._OptionsToolStripMenuItem.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property SettingsToolStripMenuItem As ToolStripMenuItem
            Get
                Return Me._SettingsToolStripMenuItem
            End Get
            <MethodImpl(MethodImplOptions.Synchronized)> _
            Set(ByVal WithEventsValue As ToolStripMenuItem)
                Me._SettingsToolStripMenuItem = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TextBox1 As TextBox
            Get
                Return Me._TextBox1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized)> _
            Set(ByVal WithEventsValue As TextBox)
                Me._TextBox1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property TextBox2 As TextBox
            Get
                Return Me._TextBox2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized)> _
            Set(ByVal WithEventsValue As TextBox)
                Me._TextBox2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Timer1 As Timer
            Get
                Return Me._Timer1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized)> _
            Set(ByVal WithEventsValue As Timer)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.Timer1_Tick)
                If (Not Me._Timer1 Is Nothing) Then
                    RemoveHandler Me._Timer1.Tick, handler
                End If
                Me._Timer1 = WithEventsValue
                If (Not Me._Timer1 Is Nothing) Then
                    AddHandler Me._Timer1.Tick, handler
                End If
            End Set
        End Property


        ' Fields
        <AccessedThroughProperty("Button1")> _
        Private _Button1 As Button
        <AccessedThroughProperty("Button2")> _
        Private _Button2 As Button
        <AccessedThroughProperty("Button3")> _
        Private _Button3 As Button
        <AccessedThroughProperty("Button4")> _
        Private _Button4 As Button
        <AccessedThroughProperty("CloseToolStripMenuItem")> _
        Private _CloseToolStripMenuItem As ToolStripMenuItem
        <AccessedThroughProperty("CreditsToolStripMenuItem")> _
        Private _CreditsToolStripMenuItem As ToolStripMenuItem
        <AccessedThroughProperty("Dlls")> _
        Private _Dlls As ListBox
        <AccessedThroughProperty("FilesToolStripMenuItem")> _
        Private _FilesToolStripMenuItem As ToolStripMenuItem
        <AccessedThroughProperty("Label1")> _
        Private _Label1 As Label
        <AccessedThroughProperty("Label2")> _
        Private _Label2 As Label
        <AccessedThroughProperty("Label3")> _
        Private _Label3 As Label
        <AccessedThroughProperty("MenuStrip1")> _
        Private _MenuStrip1 As MenuStrip
        <AccessedThroughProperty("OpenFileDialog1")> _
        Private _OpenFileDialog1 As OpenFileDialog
        <AccessedThroughProperty("OptionsToolStripMenuItem")> _
        Private _OptionsToolStripMenuItem As ToolStripMenuItem
        <AccessedThroughProperty("SettingsToolStripMenuItem")> _
        Private _SettingsToolStripMenuItem As ToolStripMenuItem
        <AccessedThroughProperty("TextBox1")> _
        Private _TextBox1 As TextBox
        <AccessedThroughProperty("TextBox2")> _
        Private _TextBox2 As TextBox
        <AccessedThroughProperty("Timer1")> _
        Private _Timer1 As Timer
        Private components As IContainer
        Private DLLFileName As String
        Private ExeName As String
        Public Const MEM_COMMIT As Integer = &H1000
        Public Const PAGE_READWRITE As Integer = 4
        Private pfnStartAddr As Integer
        Public Const PROCESS_CREATE_THREAD As Integer = 2
        Public Const PROCESS_VM_OPERATION As Integer = 8
        Public Const PROCESS_VM_READ As Integer = &H10
        Public Const PROCESS_VM_WRITE As Integer = &H20
        Private pszLibFileRemote As String
        Private TargetBufferSize As Integer
        Private TargetProcessHandle As Integer
        Public Const TH32CS_SNAPPROCESS As Integer = 2

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

        End Sub
    End Class
End Namespace