TUTORIAL Membuat DLL INJECTOR SEDERHANA

Langsung oke aja Tanpa basa-basi.

Tutorial Pembuatan Injector Universal Wikipedia (Tanpa Suspend)
Tingkat Tutorial: Pemula

Alat / Alat Yang diperlukan: [b] Microsoft Visual Basic 6 (VB6) , Bisa atau portabel instalable. Lebih disarankan memakai KARENA instalable komponennya lebih Lengkap.

DOWNLOAD VB6 PORTABLE: [/ b] disini DOWNLOAD
Jangan lupa Penghasilan kena pajak filenya / foldernya di ekstrak dulu file registri KESAWAN cari di file kemudian klik ganda file registry dan ITU ok ok aja kan Pesan Yang Kamu VB agar-agar muncul portabel Jadi versi penuh. Belum diregisrt entar kalau mau buat ke exe gak Bisa.

A. Langkah Awal
buka VB6, Saat Pertama kali dijalankan kotakdialog Dibuka atau akan muncul, salah satunya standar exe, exe dan klik pilih standar terbuka, Secara regular tidak proyek Langsung Membuat Artikel Baru Baru 1 form.

B. Pengaturan Properti Desain dan bentuk PADA 
klik 1 kali PADA Form1 (ingat cuman 1 kali), kemudian liat sifat xp dibagiankanan Form1. PADA Name of propertiesnya, jadikanborderstyle = 0 Tidak ada

untuk desain silakan dikreasikan semaunya, contoh (Suami otonashi Ambil Dari Rifki N3):



gambar untuk Pembongkaran Diatas silakan Dibuat Canada Aplikasi photoshop atau sejenisnya simpan kedalam format gif.

menambahkan gambar bentuk PADA untuk, klik PADA Gambar PADA propertiesform1, Maka akan muncul Kotak dialog, gambar berdasarkan pilih yg Diatas format gif kitabuat KESAWAN.


C. Pemasangan Obyek / inti Komponen
adapun akan Komponen Yang perlengkapan adalah 2 Label, 1 Periksa dan 1 timer, klik dan tarik ke Form1.



berikut component2 Yang Harus Dibuat:
- 2 label, nama Label1 dan Label2 Artikel Baru. Label2 untuk beri keterangan keluar .
- 1 timer, Artikel Baru nama Timer1, jangan lupa mengatur properti timernya PADA interval 100
- 1 Periksa, nama dan keterangan Artikel Baru check1 biri Keluar Auto Setelah Injeksi

D. Coding Form1
klik Kanan PADA bentuk - pilih kode tampilan>.
isikan kode berikut PADA Form1,

Spoiler Untuk kode PADA Form1 Klik Disini
:

Option Explicit 'By Date: 16 November 2010 'Form1 Wikipedia Injector oleh Imam Asseyka MFO "Ini N Kode` Kredit Tutorial Goes to MFO, Do As Peraturan MFO. 'Deklarasi variabel Swasta winHwnd As Long Swasta NamaDll As String 'Deklarasi fungsi bentuk bergerak Const Swasta WM_NCLBUTTONDOWN As Long = & HA1 Const Swasta HTCAPTION As Integer = 2 Private Declare Sub ReleaseCapture Lib "USER32" () Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam Sebagai Any) As Long Private Sub Form_Load () 'Formulir Mengetengahkan CenterForm Me 'Sesuaikan Nama Suami Dibawah Artikel Baru Nama dll dll yg di Ingin injectkan. NamaDll = App.Path & "\ nama-dll-anda.dll" 'Nama permainan Terserah target, misalnya PointBlank FileTarget = "PointBlank.exe" 'Jika Ingin injektor disetting MAMPUS keluar 'Berikan Nilai 1 PADA kode check1 Dibawah, sebaliknya 'Jika regular tidak berikan Nilai 0 Check1.Value 1 = End Sub Private Sub Form_Unload (Cancel As Integer) 'Auto url terbuka Penghasilan kena pajak formulir di dekat OpenURL "www.medanforum.co.cc", Me.hwnd End Sub Private Sub Label2_Click () 'Injector Keluar Aplikasi Unload Me End Sub Private Sub Timer1_Timer () winHwnd = GetProcessWndByName (FileTarget) Jika Tidak winHwnd = 0 ditemukan jika Lalu ' NTProcessList 'DetEksi proses permainan InjectExecute NamaDll 'menyuntikkan perpustakaan Jika Check1.Value = 1 jika Lalu 'check1 dicentang (Auto Keluar Setelah Injection) Maka End 'Tutup MAMPUS injector End If Else 'jika regular tidak Label1.Caption = "Menunggu Game ..." End If End Sub 'Bentuk kode pusat Private Sub CenterForm (frm Sebagai Formulir) frm.Top = Screen.Height / 2 - frm.Height / 2 frm.Left = Screen.Width / 2 - frm.Width / 2 End Sub 'Bentuk kode bergerak Private Sub Form_MouseMove (Button As Integer, _ Shift As Integer, _ X Sebagai Single, _ Y Sebagai Single) Jika Button = 1 Lalu ReleaseCapture SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0 & End If Screen.MousePointer = vbDefault End Sub

E: Coding Modul
- Bikin 1 modul, proyek klik menu -> menambahkan modul, berinama ModUniversal, masukkan kode berikut:

Spoiler Klik Disini Untuk ModUniversal:

Option Explicit 'By Date: 16 November 2010 'Injeksi Wikipedia Modul oleh Imam Asseyka MFO 'Beberapa kode Name of berasal Dari kode sumber Gesp 1.3 'Dioptimalkan kode oleh Imam Asseyka MFO Umum FileTarget As String Swasta sFlDLL As String Swasta IdTargetOne As Long Const Swasta TH32CS_SNAPHEAPLIST As Long = & H1 Const Swasta TH32CS_SNAPPROCESS As Long = & H2 Const Swasta TH32CS_SNAPTHREAD As Long = & H4 Const Swasta TH32CS_SNAPMODULE As Long = & H8 Const Swasta TH32CS_SNAPALL Sebagai Double = (TH32CS_SNAPHEAPLIST Atau TH32CS_SNAPPROCESS Atau TH32CS_SNAPTHREAD Atau TH32CS_SNAPMODULE) Const Swasta MAX_PATH As Integer = 260 Private Const PROCESS_ALL_ACCESS As Long = & H1F0FFF Jenis swasta PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szExeFile As String * MAX_PATH Akhir Jenis Jenis swasta MODULEENTRY32 dwSize As Long th32ModuleID As Long th32ProcessID As Long GlblcntUsage As Long ProccntUsage As Long modBaseAddr As Long modBaseSize As Long hModule As Long szModule As String * 256 szExePath As String * 260 Akhir Jenis Jenis swasta THREADENTRY32 dwSize As Long cntUsage As Long th32ThreadID As Long th32OwnerProcessID As Long tpBasePri As Long tpDeltaPri As Long dwFlags As Long Akhir Jenis Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, _ ByVal lProcessID As Long) As Long Private Declare Function Module32First Lib "kernel32" (ByVal hSnapshot As Long, _ uProcess Sebagai MODULEENTRY32) As Long Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _ ByVal bInheritHandle As Long, _ ByVal dwProcessId As Long) As Long Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, _ uProcess Sebagai PROCESSENTRY32) As Long Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, _ uProcess Sebagai PROCESSENTRY32) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, _ ByVal lpProcName As String) As Long Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, _ lpAddress Sebagai Any, _ ByVal dwSize As Long, _ ByVal fAllocType As Long, _ flProtect As Long) As Long Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, _ ByVal lpBaseAddress Sebagai Any, _ lpBuffer Sebagai Any, _ ByVal nUkuran As Long, _ lpNumberOfBytesWritten As Long) As Long Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal ProcessHandle As Long, _ lpThreadAttributes As Long, _ ByVal dwStackSize As Long, _ ByVal lpStartAddress Sebagai Any, _ ByVal lpParameter Sebagai Any, _ ByVal dwCreationFlags As Long, _ lpThreadID As Long) As Long Public Function GetFName (fn) As String Dim f As Integer Dim n As Integer GetFName = fn f = Instr (fn, "") Apakah Sementara f n = f f = Instr (n + 1, fn, "") Putaran Jika n> 0 Then GetFName = Mid $ (fn, n + 1) End If End Function Public Function GetProcessIdByName (ByVal szProcessName As String) As Long Dim pe32 Sebagai PROCESSENTRY32 Dim hSnapshot As Long Dim bFoundProc Sebagai Boolean Dim dwProcId As Long dwProcId = 0 pe32.dwSize = Len (pe32) hSnapshot = CreateToolhelp32Snapshot (TH32CS_SNAPPROCESS, 0 &) bFoundProc = Process32First (hSnapshot, pe32) Apakah Sementara bFoundProc Jika Hak $ (LCase $ (Waktu $ (pe32.szExeFile, Instr (1, pe32.szExeFile, vbNullChar) - 1)), Len (szProcessName)) = LCase $ (szProcessName) Kemudian dwProcId = pe32.th32ProcessID Keluar Lakukan End If bFoundProc = Process32Next (hSnapshot, pe32) Putaran CloseHandle hSnapshot GetProcessIdByName = dwProcId End Function Public Function GetProcessWndByName (ByVal szProcessName As String) As Long Dim dwProcId As Long Dim dwProcWnd As Long dwProcId = GetProcessIdByName (szProcessName) Jika dwProcId = 0 Then GetProcessWndByName 0 = Lain dwProcWnd = OpenProcess (PROCESS_ALL_ACCESS, False, dwProcId) CloseHandle dwProcId GetProcessWndByName = dwProcWnd End If End Function Public Sub InjectDll (DllPath As String, _ ProsH As Long) Dim DLLVirtLoc As Long Dim DllLength As Long Dim menyuntikkan As Long Dim LibAddress As Long Dim CreateThread As Long Dim threadid As Long Dim Bla Sebagai VbMsgBoxResult g_loadlibary: LibAddress = GetProcAddress (GetModuleHandle ("kernel32.dll"), "LoadLibraryA") Jika LibAddress = 0 Then Bla = MsgBox ("Tidak dapat menemukan LoadLibrary API dari kernel32.dll", vbYesNo, "ERROR") Jika Bla = vbYes Kemudian GoTo g_loadlibary Lain Exit Sub End If End If g_virutalallocex: DllLength = Len (DllPath) DLLVirtLoc = VirtualAllocEx (ProsH, 0, DllLength, & H1000, ByVal & H4) Jika DLLVirtLoc = 0 Then Bla = MsgBox ("VirtualAllocEx API gagal - coba lagi!?", VbYesNo, "ERROR") Jika Bla = vbYes Kemudian GoTo g_virutalallocex Lain Exit Sub End If End If g_writepmemory: suntik = WriteProcessMemory (ProsH, ByVal DLLVirtLoc, ByVal DllPath, DllLength, vbNull) Jika menyuntikkan = 0 Then Bla = MsgBox ("Gagal Menulis DLL untuk Proses - coba lagi!?", VbYesNo, "ERROR") Jika Bla = vbYes Kemudian GoTo g_writepmemory Lain Exit Sub End If End If g_creatthread: CreateThread = CreateRemoteThread (ProsH, ByVal 0, 0, ByVal LibAddress, DLLVirtLoc ByVal, 0, threadid) Jika CreateThread = 0 Then Bla = MsgBox ("Gagal Buat THead - coba lagi!?", VbYesNo, "ERROR") Jika Bla = vbYes Kemudian GoTo g_creatthread Lain Exit Sub End If End If Form1.Label1.Caption = "Injected Berhasil!" MsgBox "Dll Injection Berhasil!", VbInformation, "Sukses" End Sub Public Sub InjectExecute (ByVal sFlDLL As String) Dim lProcInject As Long lProcInject = OpenProcess (PROCESS_ALL_ACCESS, 0, IdTargetOne) Jika> lProcInject "0" Lalu InjectDll sFlDLL, lProcInject End If CloseHandle lProcInject End Sub Public Function NTProcessList () As Long Dim FileName As String Dim ExePath As String Dim hProcSnap As Long Dim hModuleSnap As Long Dim lProc As Long Dim uProcess Sebagai PROCESSENTRY32 Dim uModule Sebagai MODULEENTRY32 On Error Resume Next hProcSnap = CreateToolhelp32Snapshot (TH32CS_SNAPALL, 0 &) uProcess.dwSize = Len (uProcess) lProc = Process32First (hProcSnap, uProcess) Apakah Sementara lProc Jika uProcess.th32ProcessID <> 0 Then hModuleSnap = CreateToolhelp32Snapshot (TH32CS_SNAPALL, uProcess.th32ProcessID) uModule.dwSize = Len (uModule) Module32First hModuleSnap, uModule Jika hModuleSnap> 0 Then ExePath = StripNulls (uModule.szExePath) FileName = GetFName (ExePath) Jika FileTarget = FileName Kemudian IdTargetOne uProcess.th32ProcessID = End If End If End If lProc = Process32Next (hProcSnap, uProcess) Putaran CloseHandle hProcSnap CloseHandle lProc On Error GoTo 0 End Function Private Fungsi StripNulls (ByVal sStr As String) As String StripNulls = Left $ (sStr, lstrlen (sStr)) End Function Public Sub OpenURL (situs As String, sourceHWND As Long) Call ShellExecute (sourceHWND, vbNullString, situs, vbNullString, vbNullString, 1) End Sub

F. Tahap Terakhir, Kompilasi exe ke.
jika udah Selesai, pilih menu file exe klik membuat proyek *

ket:
* Nama proyek exe Yang Dibuat MFOTRAINER.exe misalnya.

mudah2an dapat lebih Mudah dipahami 



Transaksi TUTORIAL:

UNTUK Membuat ICON PADA PADA INJECTOR klik Form1, nya trus liat di properti Form1 PADA ikon Name of, jelas lebih liat spoiler gambar PADA untuk mengganti icon:

KLIK Disini UNTUK Melihat CONTOH GAMBAR INJECTOR MENGGANTI ICON:

PROPERTI Membuat Transaksi FORMULIR INJECTOR disini CONTOH GAMBAR

KLIK Disini UNTUK Melihat CONTOH GAMBAR PROPERTI Membuat PAGE:

pilih menu Proyek -> properti.
misalnya Nama proyek: MFO PELATIH, Maka ntar proyek pilih menu -> MFO propertis.

sifat muncul disitu, umum ADA tab, tab buat, dst. pilih tab membuat sbb:

Spoiler:

= Spoiler gambar klik disini]

Tinggal seterusnya nilai isi Dari nama perusahaan, deskripsi berkas dan, sesuai Selera, jika udah klik ok.
misalnya diisi nama perusahaan: WWW.BLABLANLA.CO.CC, dan Berkas Descriptionnya: INJECTOR DENGAN BLABLABLA ..

Artikel Created by TUTORIAL Membuat DLL INJECTOR SEDERHANA