[TUTORIAL] Make Injector in VB. Net

(Helping:killerphantom)(Hi all, Today I will explain how to make a injector libraries (. Dll) in Visual Basic. Net, haci yourself will be able to make their injectors tenmor games without having any virus or configuration that you want them.
Let's start!

1) The first thing to do is create a new project in visual basic (File> New Project) 2) They appear a window to show you some templates in the case of our application site will give you Windows Forms application , the name the default application appears WindowsApplication1 that they can change at will; example: Johnny Injector and give next OK.

3) Next see a windows form which by default is named Form1 , (you can change this by giving Properties and change the text value you want), let's add a few controls to our form. * ListBox (ListBox1) * TextBox (TextBox1) * Label (Label1, Label2, Label3, Label4) * Button (Button1, Button2) * Timer (Timer1) * OpenFileDialog (OpenFileDialog1) * Add and accommodate the controls as follows:

-Name the controls as follows as shown in the picture

4) In the form we right click and View Code (Let's declare some functions and variables), Pegan after the Public Class Form1 this:

Code: [Select]
Private TargetProcessHandle As Integer 'killerphantom
Private pfnStartAddr As Integer
Private pszLibFileRemote As String
Private TargetBufferSize As Integer 'killerphantom

Public Const PROCESS_VM_READ = &H10 'killerphantom
Public Const TH32CS_SNAPPROCESS = &H2 'killerphantom
Public Const MEM_COMMIT = 4096 'killerphantom
Public Const PAGE_READWRITE = 4 'killerphantom
Public Const PROCESS_CREATE_THREAD = (&H2) 'killerphantom
Public Const PROCESS_VM_OPERATION = (&H8) 'killerphantom
Public Const PROCESS_VM_WRITE = (&H20) 'killerphantom
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 'killerphantom

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

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 'killerphantom

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 'killerphantom

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 'killerphantom

Public Declare Function OpenProcess Lib "kernel32" ( _
ByVal dwDesiredAccess As Integer, _
ByVal bInheritHandle As Integer, _
ByVal dwProcessId As Integer) As Integer 'killerphantom

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

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

Dim ExeName As String = IO.Path.GetFileNameWithoutExtension(Application.Ex ecutablePath) 'killerphantom

Dim dllproc As String = "0"
Dim aa As String = "0" 'killerphantom

*In the code above we called the Kernel32 library functions that allow us to enter into a process and make injections in the memory, the variable dllproc is the path that we inject dll and aa a variable to control a timer that Now I will show.

5) Since our injector will consist with a small log of events I will show you how to do something with it , make double click over the form to show them the code in the Load.

Where the red line paste the following:
Code: [Select]
ListBox1.Items.Add ("Started KillerPhantom Injector ...")
ListBox1.Items.Add ("Enter process")
ListBox1.Items.Add ("Select DLL to inject") 'killerphantom
ListBox1.Items.Add ("..........................")

6) Let's add the code to open the dll (for the user to search your PC) We double click the Button2 (which we put Browse) , paste the following code in the click event

Code: [Select]
OpenFileDialog1.ShowDialog ()

Now give the OpenFileDialog1 double click (which is next to the timer)

And we see the event FileOk within that statement paste the following code:

Code: [Select]
dllproc = OpenFileDialog1.FileName
Label4.Text = OpenFileDialog1.SafeFileName 'KillerPhantom

7) We arrived at an interesting part, let's add the code of Timer1 , so we repeat the same to double click the event and we appear Tick and paste the following code into that event.

Code: [Select]
If IO.File.Exists (dllproc) Then
Dim TargetProcess As Process () = Process.GetProcessesByName (TextBox1.Text)
If TargetProcess.Length = 0 Then 'killerphantom
If aa = "0" Then
ListBox1.Items.Add (" Waiting: "+ TextBox1.Text +". exe ") 'killerphantom
aa = "1"
End If
Else
Timer1.Stop ()
ListBox1.Items.Add ("Inject ..") 'killerphantom
Call Inject ( )
End
End
End If
Else
ListBox1.Items.Add ("Error: DLL not found") 'killerphantom
End If

The above code checks if there Dll nustro with the code IO.File.Exists if the return value is True true bone also checks whether the process is with the code Process.GetProcessesByName , if this marks the timer stops and call the instruction must inject ( Call Inject () ) that we will see! Now We will create the instruction Inject! for that we see the source code of our application is that you give double click on Form1.vb or the tab * wrote after a Sub End and before starting a Private Sub following

Code: [Select]
Private Sub Inject ()
On Error GoTo 1 'killerphantom
Timer1.Stop ()
As Process Dim TargetProcess () = Process.GetProcessesByName (TextBox1.Text)
TargetProcessHandle = OpenProcess (Or PROCESS_VM_OPERATION PROCESS_CREATE_THREAD PROCESS_VM_WRITE Or, False, TargetProcess (0). Id) = dllproc pszLibFileRemote
pfnStartAddr = GetProcAddress (GetModuleHandle ("Kernel32"), "LoadLibraryA")
TargetBufferSize = 1 + Len (pszLibFileRemote) 'killerphantom
Dim Rtn As Integer 'killerphantom
LoadLibParamAdr Dim As Integer 'killerphantom
LoadLibParamAdr = VirtualAllocEx (TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
Rtn = WriteProcessMemory (TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
CreateRemoteThread (TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0)
End 'killerphantom
CloseHandle (TargetProcessHandle ) 'killerphantom
1: End
End Sub

9) .. Almost done .. Now let's give the code to our Button1 (injectable), repeats the same double click him and click event .. paste the following

Code: [Select]
If TextBox1.Text.Length = 0 Then 'KillerPhantom
ListBox1.Items.Add ("Please select a process ..")
Else
If dllproc = "0" Then 'KillerPhantom
ListBox1.Items.Add ("No DLL has found .. ")
Else
ListBox1.Items.Add ("Found .. dll") 'KillerPhantom
Timer1.Start ()
End If 'KillerPhantom
End If

This will verify if the textbox has written a process and if the dll .. if it returns True value .. Timer1 runs the ... Well folks .. I think we're done

[TUTORIAL] Make Injector in VB. Net

Post a Reply

Similar Threads

Tags for this Thread