[RELEASE] FULL WORKING INJECTOR SOURCE CODE

[flameswor10]

First, Download Visual Basic 2008.
Then Add These items
1 Timer
6 buttons
3 labels
1 checkbox
1 Listbox
And 1 Textbox << Name this item ProcessName or it will give errors

DO NOT TOUCH ANY OF THE CODING ABOVE FORM1_LOAD OR ELSE YOU'LL FAIL INJECTION

Copy and paste the source code below. (Yes, Copy and paste this awesome release) << This is the source coding for my own

[php]
Public Class Form1

Private TargetProcessHandle As Integer
Private pfnStartAddr As Integer
Private TargetBufferSize As Integer

Public Const PROCESS_VM_READ = &H10
Public Const TH32CS_SNAPPROCESS = &H2
Public Const MEM_COMMIT = 4096
Public Const PAGE_READWRITE = 4
Public Const PROCESS_CREATE_THREAD = (&H2)
Public Const PROCESS_VM_OPERATION = (&H8)
Public Const PROCESS_VM_WRITE = (&H20)

Public Declare Function ReadProcessMemory Lib "kernel32" ( _
ByVal hProcess As Integer, _
ByVal lpBaseAddress As Integer, _
ByVal lpBuffer As String, _
ByVal nSize As Integer, _
ByRef lpNumberOfBytesWritten As Integer) As Integer

Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" ( _
ByVal lpLibFileName As String) As Integer

Public Declare Function VirtualAllocEx Lib "kernel32" ( _
ByVal hProcess As Integer, _
ByVal lpAddress As Integer, _
ByVal dwSize As Integer, _
ByVal flAllocationType As Integer, _
ByVal flProtect As Integer) As Integer

Public Declare Function WriteProcessMemory Lib "kernel32" ( _
ByVal hProcess As Integer, _
ByVal lpBaseAddress As Integer, _
ByVal lpBuffer As String, _
ByVal nSize As Integer, _
ByRef lpNumberOfBytesWritten As Integer) As Integer

Dim injector1 As String = "flameswor10 made this injector. If you see this, then the Coder is a noob C+Per. Flame him as hard as you can."

Public Declare Function GetProcAddress Lib "kernel32" ( _
ByVal hModule As Integer, ByVal lpProcName As String) As Integer

Private Declare Function GetModuleHandle Lib "Kernel32" Alias "GetModuleHandleA" ( _
ByVal lpModuleName As String) 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 OpenProcess Lib "kernel32" ( _
ByVal dwDesiredAccess As Integer, _
ByVal bInheritHandle As Integer, _
ByVal dwProcessId As Integer) As Integer

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Integer

Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandleA" ( _
ByVal hObject As Integer) As Integer

Private Sub Inject(ByVal pszLibFileRemote As String)
Timer1.Stop()
Dim TargetProcess As Process() = Process.GetProcessesByName(ProcessName.Text)
TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
Dim I As Integer
pszLibFileRemote = ListBox1.Items.Item(I)
pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
Dim Rtn As Integer
Dim LoadLibParamAdr As Integer
LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0)
CloseHandle(TargetProcessHandle)
If CheckBox1.Checked = True Then
MsgBox(injector1)
Me.Close()
Else
MsgBox(injector1)
Button1.Enabled = True
Button4.Enabled = True
Button3.Enabled = True
Button2.Enabled = True
End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim TargetProcess As Process() = Process.GetProcessesByName("ProcessName.text")
If TargetProcess.Length = 0 Then
Me.Label3.Text = ("Waiting for " & ProcessName.Text & ".exe")
Me.Label2.Text = ("Ready to Inject")
Else
Timer1.Stop()
Me.Label3.Text = ("Injected to" & ProcessName.Text & ".exe")
Me.Label2.Text = ("Injection Succesfull")
For Each hack In ListBox1.Items
Call Inject(hack.ToString)
Next
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Enabled = False
Button4.Enabled = False
Button3.Enabled = False
Button2.Enabled = False
Timer1****terval = 50
Timer1.Start()
MsgBox("Ready to Inject")
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = "Auto Inject"
Button5.Text = "Manual Inject"
Button6.Text = "Save Settings"
Button4.Text = "Clear Listbox"
Button3.Text = "Remove dll"
Button2.Text = "Add DLL"
Me.Label1.Text = ("Please Enter Process Name without .exe")
Me.Label3.Text = ("Welcome to my injector")
Me.Label2.Text = ("Please Choose a dll file")
Dim fileReader As System.IO.StreamReader
If IO.File.Exists(Application.StartupPath & "\settings****i") Then
fileReader = _
My.Computer.FileSystem.OpenTextFileReader(Applicat ion.StartupPath & "\settings****i")
Dim stringReader As String
stringReader = fileReader.ReadLine()
If stringReader = "Checkbox1.Checked = 1" Then
CheckBox1.Checked = True
Else
End If
Else
Dim file As New System.IO.StreamWriter(Application.StartupPath & "\settings****i")
file.WriteLine("Checkbox1.checked = 0")
file.Close()
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim OpenFileDialog1 As New OpenFileDialog

OpenFileDialog1****itialDirectory = "Desktop"
OpenFileDialog1.Filter = "DLL files (*.dll)|*.dll|All files (*.*)|*.*"
OpenFileDialog1.FilterIndex = 1
OpenFileDialog1.RestoreDirectory = True
OpenFileDialog1.Multiselect = True

If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Try
For Each i As Object In OpenFileDialog1.FileNames
ListBox1.Items.Add(i)
Next
Catch Ex As Exception
MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message)
End Try
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ListBox1.Items.Remove(ListBox1.SelectedItem.ToStri ng)
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
ListBox1.Items.Clear()
End Sub

Private Sub Button5_Click(ByVal pszLibFileRemote As String)
Timer1.Stop()
Dim TargetProcess As Process() = Process.GetProcessesByName(ProcessName.Text)
TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
TargetBufferSize = 1 + Len(pszLibFileRemote)
Dim Rtn As Integer
Dim LoadLibParamAdr As Integer
LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0)
CloseHandle(TargetProcessHandle)
If CheckBox1.Checked = True Then
Me.Close()
MsgBox(injector1)
Else
MsgBox(injector1)
End If
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim file As New System.IO.StreamWriter(Application.StartupPath & "\settings****i")
file.WriteLine("Checkbox1.Checked = " & CheckBox1.CheckState)
file.Close()
MsgBox("Settings are Saved")
End Sub
End Class
[/php]

Do not name any of these buttons as my epic coding will do it all for you..
Now place the items in an awesome place in your form and then release it. Please remember to give credits to /me

Just incase you need the button names for placing purposes

        Button1.Text = "Auto Inject"
        Button5.Text = "Manual Inject"
        Button6.Text = "Save Settings"
        Button4.Text = "Clear Listbox"
        Button3.Text = "Remove dll"
        Button2.Text = "Add DLL"

And Coders, please don't say anything bad about this source code. It works perfectly fine and all the newbies have to do is C+P to make their first injector they can be proud of.

Now remember, REMEMBER TO PRESS THANKS AND + REP ME AND GIVE CREDITS

THERE WILL BE SOME ERRORS.

RENAME Timer1****terval to timer1. interval Without spaces
and RENAME OpenFileDialog1****itialDirectory to OpenFileDialog1. initialDirectory without spaces
RENAME \settings****i" TO \settings. ini Without spaces

Credits:
Miwin for injecting base... (It's been fully customized after that though)
Me for editing to make it better

[Mc565]

Good source code. Good Job XD

[SirDanielot]

Good job Steven, or 'Flames' as the noobs call you.

[FORCE™]

Say good job and say "This works perfectly. Thanks"
*oor something

[freedompeace]

Good source code. Good Job XD

Great way for everyone to start off with!

However, don't use this as your release method (or at least try to build on it) - there is currently only one method of injection and there is no error encapsulation and handling.

Perhaps add error handling, even a simple try - catch statement, and you can start off !

Good luck to everyone out there!

[SirDanielot]

Say good job and say "This works perfectly. Thanks"
*oor something

It does work I've tested..

[flameswor10]

Great way for everyone to start off with!

However, don't use this as your release method (or at least try to build on it) - there is currently only one method of injection and there is no error encapsulation and handling.

Perhaps add error handling, even a simple try - catch statement, and you can start off !

Good luck to everyone out there!

pshh, you don't need those for a "first" Injector.. They have to learn off the coding I give them

[SirDanielot]

Ban me pl0x~

[freedompeace]

pshh, you don't need those for a "first" Injector.. They have to learn off the coding I give them

Funny thing is, this perfectly matches (as in, 100%) with other code on 100 other forums, all posted before you, with different usernames.

I don't think you're these 100 other users at once, are you? Or did they steal the source code from your head before you took it out yourself? /:

[flameswor10]

Funny thing is, this perfectly matches (as in, 100%) with other code on 100 other forums, all posted before you, with different usernames.

I don't think you're these 100 other users at once, are you? Or did they steal the source code from your head before you took it out yourself? /:

lolwut? I gave credits to Miwin...
He made the injector that "You c+p and you have to rename the .dll file to the .exe name" and I based my injector on that. I edited it to make it no errors and guess what. It worked.. I GAVE CREDITS

My injector has a manual inject function and an auto inject function. And a Close on inject function also.

Most of the sources out there don't have those (and I have a listbox function)
Also, most injector sources are based on the one gave by MSDN so obviously they will be similar.

[joered]

Nice release

[Shimmy-]

Anyone can make this. And you should definitely give credits. You did not code this at all.
You only added a few buttons here and there to make it look fancy. Also the coding for manual inject is pretty easy. Just call Inject() when the person pushes the button..

[flameswor10]

Anyone can make this. And you should definitely give credits. You did not code this at all.
You only added a few buttons here and there to make it look fancy. Also the coding for manual inject is pretty easy. Just call Inject() when the person pushes the button..

Oh my gawd.. I added credits to miwin you fag. If you just wanna flame me, GTFO. And yes, I edited the code to make it work for CA.. and also, you can't talk yourself. Pshh, heck for I didn't code this at all.. I added save to ini file and load from ini file.. I also made add dll and everything.. Doesn't even require openfiledialogue.

Now if anyone els wanna flame me. Go ahead.. You'll just ruin it for the people who wants to learn off this injector source..

I was planning to contribute more to you guys.. But shimmy boy over there mightve spoilt it for you guys. You want more sources, then keep pressing thanks. If not. FLAME ME AS HARD AS YOU CAN

please don't flame from here on. You'll jst get this closed and ruin peoples chances of making an injector

[Zoom]

Fucking awesome, just C&P it

[flameswor10]

Lol ty zoom. Remember, don't flame me and just copy and paste the code