Jump to content

[Tutorial]How To Make Injector


Aleluah

Recommended Posts

Ok This is Aleluah one's again today ill gonna teach you how to make a injector i already make one so it's working
 
1)Make the Following

  • 5 Buttons
  • 2 Radiobuttons
  • 2 Labels
  • 1 Listboxes
  • 1 Timers
  • 1 OpenFileDialog
  • 1 Checkbox
  • 1 Textbox

Changing Name :
Listbox1 = "DLLs"

  • Changing Text :
  • Button1 = "Browse"
  • Button2 = "Remove"
  • Button3 = "Clear List"
  • Button4 = "Inject"
  • Button5 = "Quit"
  • RadioButton1 = "Manual"
  • RadioButton2 = "Automatic"
  • Checkbox1 = "Close after Inject"
  • Textbox1 = ""

3)Double Click the Title bar of your project And delete All and Paste This
 

Public Class Form1Private TargetProcessHandle As IntegerPrivate pfnStartAddr As IntegerPrivate pszLibFileRemote As StringPrivate TargetBufferSize As IntegerPublic Const PROCESS_VM_READ = &H10Public Const TH32CS_SNAPPROCESS = &H2Public Const MEM_COMMIT = 4096Public Const PAGE_READWRITE = 4Public Const PROCESS_CREATE_THREAD = (&H2)Public Const PROCESS_VM_OPERATION = (&H8)Public Const PROCESS_VM_WRITE = (&H20)Dim DLLFileName As StringPublic 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 IntegerPublic Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" ( _ByVal lpLibFileName As String) As IntegerPublic 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 IntegerPublic 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 IntegerPublic Declare Function GetProcAddress Lib "kernel32" ( _ByVal hModule As Integer, ByVal lpProcName As String) As IntegerPrivate Declare Function GetModuleHandle Lib "Kernel32" Alias "GetModuleHandleA" ( _ByVal lpModuleName As String) As IntegerPublic 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 IntegerPublic Declare Function OpenProcess Lib "kernel32" ( _ByVal dwDesiredAccess As Integer, _ByVal bInheritHandle As Integer, _ByVal dwProcessId As Integer) As IntegerPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ByVal lpClassName As String, _ByVal lpWindowName As String) As IntegerPrivate Declare Function CloseHandle Lib "kernel32" Alias "CloseHandleA" ( _ByVal hObject As Integer) As IntegerDim ExeName As String = IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath)Private Sub Inject()On Error GoTo 1 ' If error occurs, app will close without any error messagesTimer1.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.FileNamepfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")TargetBufferSize = 1 + Len(pszLibFileRemote)Dim Rtn As IntegerDim LoadLibParamAdr As IntegerLoadLibParamAdr = 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 SubPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDLLs.Name = "DLLs"Button1.Text = "Browse"Label1.Text = "Waiting for Program to Start.."Timer1.Interval = 50Timer1.Start()End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickOpenFileDialog1.Filter = "DLL (*.dll) |*.dll"OpenFileDialog1.ShowDialog()End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickFor i As Integer = (DLLs.SelectedItems.Count - 1) To 0 Step -1DLLs.Items.Remove(DLLs.SelectedItems(i))NextEnd SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickDLLs.Items.Clear()End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickIf IO.File.Exists(OpenFileDialog1.FileName) ThenDim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)If TargetProcess.Length = 0 ThenMe.Label1.Text = ("Waiting for " + TextBox1.Text + ".exe")ElseTimer1.Stop()Me.Label1.Text = "Successfully Injected!"Call Inject()If CheckBox1.Checked = True ThenEndElseEnd IfEnd IfElseEnd IfEnd SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.TickIf IO.File.Exists(OpenFileDialog1.FileName) ThenDim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)If TargetProcess.Length = 0 ThenMe.Label1.Text = ("Waiting for " + TextBox1.Text + ".exe")ElseTimer1.Stop()Me.Label1.Text = "Successfully Injected!"Call Inject()If CheckBox1.Checked = True ThenEndElseEnd IfEnd IfElseEnd IfEnd SubPrivate Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOkDim FileName As StringFileName = OpenFileDialog1.FileName.Substring(OpenFileDialog1.FileName.LastIndexOf(""))Dim DllFileName As String = FileName.Replace("", "")Me.DLLs.Items.Add(DllFileName)End SubPrivate Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.ClickMe.Close()End SubPrivate Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChangedButton4.Enabled = TrueTimer1.Enabled = FalseEnd SubPrivate Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChangedButton4.Enabled = FalseTimer1.Enabled = TrueEnd SubEnd Class

ENJOY

  • Like 2
  • Love 2
  • Haha 1
Link to comment
Share on other sites

  • 1 year later...
  • 2 weeks later...
  • 1 month later...
  • XorEax locked this topic
Guest
This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.

 

AdBlock Extension Detected!

depositphotos_220325684-stock-illustration-hand-holding-mobile-with-ad.jpg

 

Our website is made possible by displaying online Advertisements to our members.

Please disable AdBlock browser Extension first, to be able to use our Community.

You won't be able to access this page.

I've Disabled AdBlock