#1
10-08-2011, 11:40 AM
|
|
|
|
بعـــد طول انتظار المفاجأة المنتظرة ( سلســـله شروحات كيفية عمل انجكتور Simple بالفيديو )الجزء الاول
اعضاء ايجي نت وخاصة قســــــــــم CrossFire بما اننا نسعي ان نكـــون افضل المواقع العـــربية نقـــدم نحـــن فريق الاشراف Mohamed Zidan KINGEVILS سلســــــة متتاليـــة من الشروحات لصنـــع الانجكتور والهاك علــــي التوالــي ان شاء الله . يســــــــــر فريقنا علي انـــه استطاع قهر كـــل المواقع العربيـــة تماما وان منتديات ايجي نت تحتل عرش CrossFire تمــــاما دون مبالغة . نبدء وعلي بركـــــــــــــ الله ـــــة البرامج المطلوبة منك .. Visual Basic 2008 او 2010 من هنا . http://egy.egynt.net/37297.html NetFarmeWork 4 من هنا Source Code كود:
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles My****.Load Button1.Text = "Browse..." Label1.Text = "Waiting for users input..." Timer1.Interval = 50 Timer1.Start() End Sub 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 lp****Address 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 lp****Address 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.ExecutablePath) 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 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.Label1.Text = ("Waiting for " + TextBox1.Text + ".exe") Else Timer1.Stop() Me.Label1.Text = "Successfully Injected!" Call Inject() End If Else End If 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() Dim FileName As String FileName = OpenFileDialog1.FileName.Substring(OpenFileDialog1.FileName.LastIndexOf("\")) Dim DllFileName As String = FileName.Replace("\", "") Me.TextBox2.Text = (DllFileName) End Sub End Class شـــرح الفيديو . http://www.youtube.com/watch?v=KMmTll-EJxY بعد الانتهاء من الانجكتور تذهب الي قائمة Build وتختار أول اختيار كما هو موضح بالصورة , وكمــان ممكن تحط خلفيات وده هتلاقيه في Properties من BackGround Image وديما خليك عارف ان مع التعامل هتفهم البرنامج اكتــــر . استـنـــوا الجزء الثاني اي استفســـار انا موجود ان شاء الله . يـــلا يا جماعة عايزين نشوف تصاميمكو ونرتقي بمنتديات ايجي نت الي الامام .. وهذا شرف لي لتقديم هذا الشرح اليوم .. انتظر المفاجأة الكبري .. من أشراف CroSsFiRe |
#2
10-08-2011, 12:23 PM
|
|
|
|
رد: بعـــد طول انتظار المفاجأة المنتظرة ( سلســـله شروحات كيفية عمل انجكتور Simple بالفيديو )الجزء ا
تمام التمام بجد زي الفل شكر كبير جدا ليك بجد مشكوررررررررررررررر
|
#3
10-08-2011, 12:37 PM
|
|
|
|
رد: بعـــد طول انتظار المفاجأة المنتظرة ( سلســـله شروحات كيفية عمل انجكتور Simple بالفيديو )الجزء ا
مشكورررررررررررررررررررررررررررررررررررررررررررررر ررررررررررر
|
#4
10-08-2011, 01:59 PM
|
|
|
|
رد: بعـــد طول انتظار المفاجأة المنتظرة ( سلســـله شروحات كيفية عمل انجكتور Simple بالفيديو )الجزء ا
تسلم إيدك
زى الفل |
#5
10-08-2011, 04:12 PM
|
|
|
|
رد: بعـــد طول انتظار المفاجأة المنتظرة ( سلســـله شروحات كيفية عمل انجكتور Simple بالفيديو )الجزء ا
مجهود رائع جدا يازيدان تسلم الايادى ياعسل
ودايما كده بفاجأنا بالحجات الحلوة |