[Руководство] Создаём Инжектор!!!

[brrrrrrrrr]

Всем привет с вами brrrrrrrrr, сегодня я вам покажу и расскожу как создать Инжектор!!!
А вто программа каторую нужно скачать:
Название ПРограммы Microsoft Visual Studio 2010, в это программе есть Visual Basik.

.::Скачать по моей прямой ссылки)::.-[Ссылки могут видеть только зарегистрированные пользователи. ]

Формат этого файла .iso, если вы неможете открыть этот файл вам нужно установить вот эту программу:
[Ссылки могут видеть только зарегистрированные пользователи. ]

UltraISO 9.5.2.2836
Утилита для работы с образами CD/DVD дисков различных популярных форматов (ISO, BIN, IMG, CIF, NRG, BWI и др.). UltraISO позволяет редактировать содержимое CD/DVD-образа, извлекать и запускать имеющиеся на нем файлы. Также программа позволяет делать ISO файл с CD/DVD-ROM или жесткого диска.

Ultra ISO работает с образами, созданными в таких популярных программах, как Alcohol 120%, Nero, NTI CD/DVD Maker, Virtual CD, Clone Cd, BlindWrite и др. Утилита может работать в паре с Nero Burning Rom и использовать движок этой программы для записи дисков.
Поделиться…
Найди ошибки и Ускорь работу своего компьютера!
Оптимизируй ПК - Обнови Устаревшие Драйверы!

Лицензия Shareware
Интерфейс Многоязычный
Размер файла, Версия 3843 кб / 9.5.2.2836 (сообщить о новой версии)
Система Windows 98/ME/2000/XP/2003/Vista/7

.::Скачать::.-[Ссылки могут видеть только зарегистрированные пользователи. ]
.::ВТ::.-[Ссылки могут видеть только зарегистрированные пользователи. ]

Для начала:

1.) Скачиваем Microsoft Visual Basic 2008 Express , или Microsoft Visual Basic 2010 Express
2.) Создайте новый проект : Windows Forms Application (В видео показано как Создать!)
3.) Создайте:

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

4.)Переименовываем:

Button1 = "Открыть DLL"
Button2 = "Удалить"
Button3 = "Удалить всё"
Button4 = "Инжект"
Button5 = "Выход"
RadioButton1 = "Ручное"
RadioButton2 = "Автоматическое"
Label1 = “Процесс.exe: "
Label2 = " Waiting for Program to Start...”
Label3 = "После внедрения:”
Label4 = "Добавить DLL:”
Label5 = “Режим:"
CheckBox1 = "Закрыть инжектор"
TextBox1 = Не нужно не чего тут переименновывать!
OpenFileDialog1 = “OpenFile”

5.)Вставляем код:
Правой кнопкой жмём вставить код и вставляем код ,Сначала удаляем прошлый код и вставляем
новый наш
[Ссылки могут видеть только зарегистрированные пользователи. ]

Это наш Код

Цитата: 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) Private Sub Inject() On Error GoTo 1 ' If error occurs, app will close without any error messages 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 Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load DLL.Name = "DLL" Button1.Text = "Открыть DLL" Label2.Text = "Waiting for Program to Start..." Timer1.Interval = 50 Timer1.Start() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click OpenFileDialog1.Filter = "DLL (*.dll) |*.dll" OpenFileDialog1.ShowDialog() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click For i As Integer = (DLL.SelectedItems.Count - 1) To 0 Step -1 DLL.Items.Remove(DLL.SelectedItems(i)) Next End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click DLL.Items.Clear() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal 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 Me.Label2.Text = ("Waiting for " + TextBox1.Text + ".exe") Else Timer1.Stop() Me.Label2.Text = "Successfully Injected!" Call Inject() If CheckBox1.Checked = True Then End Else End If End If Else End If End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Me.Close() End Sub Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged Button4.Enabled = True Timer1.Enabled = False End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged Button4.Enabled = False Timer1.Enabled = True End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal 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 Me.Label2.Text = ("Waiting for " + TextBox1.Text + ".exe") Else Timer1.Stop() Me.Label2.Text = "Successfully Injected!" Call Inject() If CheckBox1.Checked = True Then End Else End If End If Else End If End Sub Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk Dim FileName As String FileName = OpenFileDialog1.FileName.Substring(OpenFileDialog1 .FileName.LastIndexOf("\")) Dim DllFileName As String = FileName.Replace("\", "") Me.DLL.Items.Add(DllFileName) End Sub End Class

6.)Вставляем картинку, значёк.
[Ссылки могут видеть только зарегистрированные пользователи. ]
7.)Выделяем “Автоматическое”и”Закрыть инжектор”и ставим False где написано “Checked”
Нажимаем на Плей
[Ссылки могут видеть только зарегистрированные пользователи. ]
8.)Сохраняем!
Сохраняем
[Ссылки могут видеть только зарегистрированные пользователи. ]
+ВОт вам Док фйл(ТАм всё сами Поймёте!!!)
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]

Всем спасибо за внимание незабываем про Благодарности!!!))
Администрация пожалуйста сделайте эту тему важной!!!

[*D*A*D*D*Y*]

Молодец конечно но щас инжекторов куча есть и без вирусов так что голову забивать как его зделать наврятли ктото будет