My First Injector Made In Microsoft Visual Basic 2010 Express

[Pro42]

Hello!

I just made a injector in Visual Basic. I want to share it and see what other people think about it! I am registered to mpgh for already 2 years. And this is my first thread and 4th or 5th post. I never posted any of my programs to any site. I started hacking when I was young like 8 or 9 years old. Now I am 14. I learned a lot. But enough about me. Program is really easy to use. I hope you like it. I am sorry for bad english. I did my best! Thank you!

Screenshot:



I've seen I have to post some Virus Scans so here they are:

InJect0r - Berny2220.rar - Jotti's malware scan
https://www.virustotal.com/file/c264...0125/analysis/

Download:

[botttyheyth]

ME GUSTA?? ^.^

[[MPGH]master131]

Please provide a screenshots and 2 virus scans. Next time, refrain from linking to file-sharing sites, there's a reason why it's censored.

[rahemehab]

Hello!

I just made a injector in Visual Basic. I want to share it and see what other people think about it! I am registered to mpgh for already 2 years. And this is my first thread and 4th or 5th post. I never posted any of my programs to any site. I started hacking when I was young like 8 or 9 years old. Now I am 14. I learned a lot. But enough about me. Program is really easy to use. I hope you like it. I am sorry for bad english. I did my best! Thank you!

I've seen I have to post some Virus Scans so here they are:

InJect0r - Berny2220.rar - Jotti's malware scan
https://www.virustotal.com/file/c264...0125/analysis/

how to download the file !!

[Pro42]

I uploaded it for you. Your suppose to scroll down until you see the button "Manage Attachments" when making a post. Click on it. I don't think I should explain any further. Wait for a forum moderator to approve it. Waiting for a forum moderator can take a while. Next time, please ask and don't put outside link(s).

We're a family. <-- HEHE

LoL, Thank you for your help!

[lolbie]

still need a screenshot

[Pro42]

still need a screenshot

ohh lol i took it but forgot to upload

here screenshot put

[lolbie]

aah nice .

[Pro42]

aah nice .

why it still says attachmetn pending for approval

[lolbie]

its approved now @Pro42

[Pro42]

its approved now @Pro42

...thx........

[shadowx360]

Can you post the source?

[Pro42]

Can you post the source?

here it goes

Public Class Form1

Private TargetProcessHandle As Integer
Private pfnStartAddr As Integer
Private pszLibFileRemote As String
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)
Dim DLLFileName As String
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

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

Dim ExeName As String = IO.Path.GetFileNameWithoutExtension(Application.Ex ecutablePath)
Public Sub Inject()
On Error GoTo 1
Timer1.Stop()
Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
pszLibFileRemote = OpenFileDialog1.FileName
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)
1: Me.Show()
End Sub

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

OpenFileDialog1.ShowDialog()

End Sub

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

For i As Integer = (DLLs.SelectedItems.Count - 1) To 0 Step -1
DLLs.Items.Remove(DLLs.SelectedItems(i))
Next

End Sub

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

DLLs.Items.Clear()

End Sub

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click

If IO.File.Exists(OpenFileDialog1.FileName) Then
Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
If TargetProcess.Length = 0 Then
ToolStripStatusLabel1.Text = ("Waiting for " + TextBox1.Text)
Else
Timer1.Stop()
ToolStripStatusLabel1.Text = "Successfully injected your DLL file to " + TextBox1.Text + "!"
Call Inject()
If CheckBox1.Checked = True Then
Me.Close()
End If
End If
Else
MessageBox.Show("Error! These can be the reasons: You didn't choose a file to inject or you haven't choosen a .dll type of file, you didn't put the right name of the process or the process is not running or there was a error while injecting. Please check your settings and try again.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If

End Sub

Private Sub RadioButton2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton2.CheckedChanged

If RadioButton2.Checked = True Then
Button4.Enabled = False
Timer1.Enabled = True
ElseIf RadioButton1.Checked = True Then
Button4.Enabled = True
Timer1.Enabled = False
End If

End Sub

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

If IO.File.Exists(OpenFileDialog1.FileName) Then
Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
If TargetProcess.Length = 0 Then
ToolStripStatusLabel1.Text = ("Waiting for " + TextBox1.Text)
Else
Timer1.Stop()
ToolStripStatusLabel1.Text = "Successfully injected your DLL file to " + TextBox1.Text + "!"
Call Inject()
If CheckBox1.Checked = True Then
End
End If
End If
Else
Exit Sub
End If

End Sub


Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
If MessageBox.Show("Are you sure you want to close this program?", "", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
MessageBox.Show("Thank you for using my program!", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
End
Else
Exit Sub
End If
End Sub

Private Sub OpenFileDialog1_FileOk(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
Try
Dim FileName As String
FileName = OpenFileDialog1.FileName.Substring(OpenFileDialog1 .FileName.LastIndexOf("\"))
Dim DllFileName As String = FileName.Replace("\", "")
Me.DLLs.Items.Add(DllFileName)
Catch ex As Exception
MsgBox("Unknown error", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "Error")
End Try
End Sub

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
ToolStripStatusLabel1.Text = "Waiting for " + TextBox1.Text
End Sub

Private Const CP_NOCLOSE_BUTTON As Integer = &H200
Protected Overloads Overrides ReadOnly Property CreateParams() As CreateParams
Get
Dim myCp As CreateParams = MyBase.CreateParams
myCp.ClassStyle = myCp.ClassStyle Or CP_NOCLOSE_BUTTON
Return myCp
End Get
End Property

End Class

[colton1111]

You've been on MPGH for two years, and you only have 4 posts?

[Pro42]

yea i wasnt using mpgh... now i started