Forum - Tecgag

:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

untuk mengunduh kontent didalam forum, dan untuk menjawab topik yang ada. silahkan register terlebih dahulu
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::


contact email : ForumBargedos@live.com

Forum - Tecgag

Total Posts : 10585 | Total Members : 16811 | Kita punya temen baru nih, giel
 

Share | 
 

 [Tutorial]PEMBUATAN INJECTOR + VIDEO

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
~|B|~*NaufaL™
amatir
amatir


Status Status : kwowkokwokwko
Posts Posts : 99
Gold Gold : 346
Reputasi Reputasi : 26
Join date Join date : 05.12.10
Age Age : 27
Lokasi Lokasi : -BARGEDOZ-

PostSubyek: [Tutorial]PEMBUATAN INJECTOR + VIDEO   Tue 07 Dec 2010, 17:26

gan nih ane kasih vidio buat agan yg mo belajar buat injector..

silahkan liat nih vidio :wew

1. Buka VB,buat project baru (Ctrl+Shift+N)

2. Buka Form1, dan tambahkan object

4. Copy & Paste kode dibawah di Module yg baru saja di buat

Module Module1
<blockquote>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_READ = &H10
Public Const PROCESS_VM_WRITE = (&H20)

Public Enum ThreadAccess As Integer
TERMINATE = (&H1)
SUSPEND_RESUME = (&H2)
GET_CONTEXT = (&H8)
SET_CONTEXT = (&H10)
SET_INFORMATION = (&H20)
QUERY_INFORMATION = (&H40)
SET_THREAD_TOKEN = (&H80)
IMPERSONATE = (&H100)
DIRECT_IMPERSONATION = (&H200)
End Enum

PublicDeclare Function OpenThread Lib "kernel32.dll" (ByVal dwDesiredAccessAs ThreadAccess, ByVal bInheritHandle As Boolean, ByVal dwThreadId AsUInteger) As IntPtr
Public Declare Function SuspendThread Lib "kernel32.dll" (ByVal hThread As IntPtr) As UInteger
Public Declare Function ResumeThread Lib "kernel32.dll" (ByVal hThread As IntPtr) As UInteger
Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hHandle As IntPtr) As Boolean

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

Public 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

End Module

5. Kembali ke Form1, klik kanan pilih View Code
6. Skali lagi copas code dibawah
Imports System

Public Class Form1
Private prPB As Process
Private szGame As String = "POINTBLANK"
Private szDLLName As String
Private dwProcessID As Long = 0
Private dwStartAddr As Long
Private dwBuffer As Long

Private Sub SuspendProcess(ByVal process As System.Diagnostics.Process)
For Each t As ProcessThread In process.Threads
Dim th As IntPtr
th = OpenThread(ThreadAccess.SUSPEND_RESUME, False, t.Id)
If th <> IntPtr.Zero Then
SuspendThread(th)
CloseHandle(th)
End If
Next
End Sub

Private Sub ResumeProcess(ByVal process As System.Diagnostics.Process)
For Each t As ProcessThread In process.Threads
Dim th As IntPtr
th = OpenThread(ThreadAccess.SUSPEND_RESUME, False, t.Id)
If th <> IntPtr.Zero Then
ResumeThread(th)
CloseHandle(th)
End If
Next
End Sub

Private Sub Inject()
dwProcessID = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, prPB.Id)
dwStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
dwBuffer = Len(szDLLName) + 1
Dim ret As Integer
Dim dwLibAdress As Integer
dwLibAdress = VirtualAllocEx(dwProcessID, 0, dwBuffer, MEM_COMMIT, PAGE_READWRITE)
ret = WriteProcessMemory(dwProcessID, dwLibAdress, szDLLName, dwBuffer, 0)
CreateRemoteThread(dwProcessID, 0, 0, dwStartAddr, dwLibAdress, 0, 0)
CloseHandle(dwProcessID)
End Sub


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If (Process.GetProcessesByName(szGame).Length = 0) Then
Label1.Text = "Waiting " & szGame
Button1.Enabled = False
Button2.Enabled = False
Else
Timer1.Stop()
prPB = Process.GetProcessesByName(szGame)(0)
dwProcessID = prPB.Id
szDLLName = Mid$(prPB.MainModule.FileName, 1, Len(prPB.MainModule.FileName) - 4) & ".i3exec"
Label1.Text = "Found " & szGame
Button1.Enabled = True
Button2.Enabled = True
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "Suspend" Then
SuspendProcess(prPB)
Button1.Text = "Resume"
Else
ResumeProcess(prPB)
Button1.Text = "Suspend"
End If
End Sub

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

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 100
Timer1.Start()
End Sub
'EDIT, nambahin Auto Resume pada saat firm di tutup
'--------------------------------------------------------------
PrivateSub Form1_FormClosing(ByVal sender As System.Object, ByVal e AsSystem.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
If Button1.Text = "Resume" Then
ResumeProcess(prPB)
End If
End Sub
'--------------------------------------------------------------
End Class
</blockquote>

7. Build project, Run



kLO Bermanfaat Ksh Ya gan....!!

Klo ga guna Close aja....!!!
Kembali Ke Atas Go down
http://cheatbynaufal.blogspot.com/
Evan_Stf
Local Moderator
Local Moderator


Status Status : NYA SOK!
Posts Posts : 52
Gold Gold : 119
Reputasi Reputasi : 6
Join date Join date : 28.11.10
Age Age : 19
Lokasi Lokasi : Di Hatimu~

PostSubyek: Re: [Tutorial]PEMBUATAN INJECTOR + VIDEO   Sat 11 Dec 2010, 18:47

Kembali Ke Atas Go down
~|B|~*NaufaL™
amatir
amatir


Status Status : kwowkokwokwko
Posts Posts : 99
Gold Gold : 346
Reputasi Reputasi : 26
Join date Join date : 05.12.10
Age Age : 27
Lokasi Lokasi : -BARGEDOZ-

PostSubyek: Re: [Tutorial]PEMBUATAN INJECTOR + VIDEO   Sat 11 Dec 2010, 19:28

Kasih cendol Dund gan....

10000% balik


Kembali Ke Atas Go down
http://cheatbynaufal.blogspot.com/
Sponsored content



PostSubyek: Re: [Tutorial]PEMBUATAN INJECTOR + VIDEO   Today at 05:22

Kembali Ke Atas Go down
 

[Tutorial]PEMBUATAN INJECTOR + VIDEO

Topik sebelumnya Topik selanjutnya Kembali Ke Atas 

 Similar topics

-
» cara mudah donlod video youtube tanpa software!
» KNALPOT AHRS F4, VIDEO ADDED)
» Melayani Jasa Pembuatan Surat2......
» sharing di sini yok bro,bahan-bahan/ material pembuatan knalpot..
» Video Ninja 250R FREESTYLE !!
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
Forum - Tecgag :: GAMERS MANIA :: Gemscool :: PointBlank-
Navigasi:  

| Contact us | Donasi | Statistics |
www.forumbargedoz.ce.ms | www.bargedoz.marocs.net
Hosted and powered by : Forummotion and phpBB
Bargedoz not responsible for any fraud on behalf of Bargedoz, both occur within and outside this website.
By joining Bargedoz, then you already understand all existing consistent.

Friends : [Update] [Update] [Update] [Update]
Annoucemment : Bargstore - Buy 4 More ! ayo naikkan gold-mu dan dapatkan items Bargstore sekarang juga ! klik disini untuk masuk Bargstore ! | dan jangan lupa untuk "Likes" Facebook fanpage kami, klik disini untuk melihat Fanpage, dan follow twitter kami untuk mendapatkan topik-topik terhangat dari kami, di di @Forumbargedos. | Dibuka pendaftaran staff untuk subforum games di berbagai jenis SF games, dan jenis staff. info lebih lanjut silahkan klik linknya disini!
Create a forum on Forumotion | © phpBB | Free forum support | Kontak | Report an abuse | Have a free blog with Sosblogs