[TuT] Injector erstellen [24.11.2010]

11/24/2010 02:50 Angelυѕ#1

Das Tutorial f�r einen Injektor!

Video-Tutorial + Text-Tutorial

Hallo ihr Hacker und generell Zocker,

in diesem Tutorial, werde ich euch erl�utern wie ihr einen
Injektor selber macht. Ja ich wei�, es gibt zwar schon einige Tutorials,
doch sind diese leider etwas in Vergessenheit geraten, von daher,
dachte ich mir dass ich mal ein Tutorial daf�r erstelle.

In dem Text-Tutorial, werde ich euch nicht erl�utern
wie ihr euren Injector designen k�nnt, dass werdet
ihr dann noch in dem Video-Tutorial sehen..

Ben�tigten Dateien + Programme

[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]

Das Text-Tutorial

Schritt 1

�ffnet VB 2008 und macht dann folgendes:

Datei ~> Neues Projekt ~> Windows-Forms Anwendung

Gebt unten in der Zeile "Namen" noch einen Namen f�r euer
Projekt ein und fertig ist schonmal der Schritt Nr.1

Schritt 2

Macht einen Doppelklick auf dieses sogenannte "Form",
dann sollte sich ein Art Code zeigen, den ihr dann einfach mal rausnehmt.

Wenn ihr ihn rausgenommen habt, m�sst ihr nur noch den Code aus der
.txt Datei, die ihr oben downloaden k�nnt einf�gen und fertig ist Schritt 2.

Schritt 3

Geht oben wieder neben "Form1.vb*" auf "Form1.vb [Entwurf]*"

Nun m�sst ihr oben rechts auf das Zeichen mit dem Schraubenschl�ssen und dem Hammer klicken,
er sollte, wenn ihr mit der Maus dr�berfahrt Toolbox anzeigen. Dort geht ihr dann drauf und macht Folgendes:

Sucht Links unter "Alle Windows Forms" folgende Dinge und
zieht diese r�ber auf eure Form1, also auf das Bild:

1x Timer
2x TextBox

Fertig ist der Schritt Nr. 3

Schritt 4

Klickt einmal auf eure Form1 und schaut dann unten Rechts, dort m�sstet
ihr Sachen sehen wie: "Name oder �hnliches", dort sucht ihr dann nach:

MaximizeBox und stellt sie daneben auf False
&
MinimizeBox und stellt sie daneben auf False

Das wars dann auch mit Schritt 4, nun kommt der letzte Schritt!

Schritt 5

Geht oben links auf Datei ~> Alles Speichern, dort sucht ihr euch dann
einen Namen und den Ort aus, wo es gespeichert werden soll.

Dort taucht dann ein Ordner auf, den �ffnet ihr und holt euch dort dann den Injector
unter folgendem Pfad raus, in meinem Beispiel Injector123...

Injector123 ~> Injector123 ~> bin ~> Debug ~> Injector

Den einfach irgendwo hinziehen, wo ihr ihn
haben wollt und fertig ist euer Injector...

Das Video-Tutorial

Es k�nnte ein wenig dauern, bis es fertig geladen ist :)

11/24/2010 04:25 HackTec#2

n1 nur das tutorial sprich der source kriegt man ueberall her nix besonderes

benutzt doch mal lieber den wie ich ;) von Cronor

Spoiler

Quote:

Option Strict On
Option Explicit On
Imports System.Runtime.InteropServices

Public Class Form1
Const MEM_COMMIT As Integer = &H1000
Const PAGE_READWRITE As Integer = &H4
Const PROCESS_CREATE_THREAD As Integer = &H2
Const PROCESS_VM_OPERATION As Integer = &H8
Const PROCESS_VM_READ As Integer = &H10
Const PROCESS_VM_WRITE As Integer = &H20

<DllImport("kernel32.dll", SetLastError:=True, CallingConvention:=CallingConvention.Winapi)> _
Public Shared Function OpenProcess(ByVal dwDesiredAccess As UInteger, <MarshalAs(UnmanagedType.Bool)> _
ByVal bInheritHandle As Boolean, ByVal dwProcessId As Integer) As System.IntPtr
End Function

<DllImport("kernel32.dll", SetLastError:=True, CallingConvention:=CallingConvention.Winapi)> _
Public Shared Function WriteProcessMemory(ByVal hProcess As System.IntPtr, ByVal lpBaseAddress As System.IntPtr, _
ByVal lpBuffer As String, ByVal nSize As Int32, <Out()> ByRef lpNumberOfBytesWritten As Int32) As _
<MarshalAs(UnmanagedType.Bool)> Boolean
End Function

<DllImport("kernel32.dll", SetLastError:=True, CallingConvention:=CallingConvention.Winapi)> _
Public Shared Function VirtualAllocEx(ByVal hProcess As IntPtr, ByVal lpAddress As IntPtr, _
ByVal dwSize As Integer, ByVal flAllocationType As UInteger, _
ByVal flProtect As UInteger) As IntPtr
End Function

<DllImport("kernel32.dll", SetLastError:=True, CallingConvention:=CallingConvention.Winapi)> _
Public Shared Function GetModuleHandle(ByVal lpModuleName As String) As IntPtr
End Function

<DllImport("kernel32.dll", SetLastError:=True, CallingConvention:=CallingConvention.Winapi)> _
Public Shared Function GetProcAddress(ByVal hModule As IntPtr, ByVal lpProcName As String) As IntPtr
End Function

<DllImport("kernel32.dll", SetLastError:=True, CallingConvention:=CallingConvention.Winapi)> _
Public Shared Function CreateRemoteThread(ByVal hProcess As IntPtr, ByVal lpThreadAttributes As Integer, _
ByVal dwStackSize As UInteger, ByVal lpStartAddress As IntPtr, ByVal lpParameter As IntPtr, _
ByVal dwCreationFlags As UInteger, ByRef lpThreadId As IntPtr) As IntPtr
End Function

<DllImport("kernel32.dll", SetLastError:=True, CharSet:=CharSet.Unicode, EntryPoint:="LoadLibraryA")> _
Public Shared Function LoadLibrary(ByVal lpFileName As String) As IntPtr
End Function

Friend WithEvents OZ As New Timer
Const TargetName As String = "WarRock"
Dim ExeName As String = IO.Path.GetFileNameWithoutExtension(Application.Ex ecutablePath)

Private Sub InnjectionMethods_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.TopMost = True
OZ.Interval = 25
If IO.File.Exists(Application.StartupPath & "\" + ExeName + ".dll") Then
Me.Label1.Text = "...Waiting For WarRock.exe"
OZ.Start()
Else
Me.Label1.Text = "..." + ExeName + ".dll Not Found !"
End If
End Sub

Private Sub OZs(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OZ.Tick
Dim Target As Process() = Process.GetProcessesByName(TargetName)
If Target.Length <> 0 Then
Me.Label1.Text = "...WarRock Is Running"
OZ.Stop()
InjectToProcess()
End If
End Sub

Sub InjectToProcess()
Dim ExeName As String = IO.Path.GetFileNameWithoutExtension(Application.Ex ecutablePath)
Dim Target As Process() = Process.GetProcessesByName(TargetName)
Dim pHandle As IntPtr = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, Target(0).Id)
If (pHandle = IntPtr.Zero) Then
Label1.Text = "...Failed To Open Processs!"
Else
Dim pszLibFileRemote As String = Application.StartupPath & "\" + ExeName + ".dll"
Dim pfnStartAddr As IntPtr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
Dim TargetBufferSize As Integer = Int(1 + Len(pszLibFileRemote))
Dim LoadLibParamAdr As IntPtr = VirtualAllocEx(pHandle, IntPtr.Zero, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
If (LoadLibParamAdr = IntPtr.Zero) Then
Label1.Text = "...Failed To Allocate Memory!"
Else
Dim Rtn As Boolean = WriteProcessMemory(pHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
If Rtn = False Then
Label1.Text = "...Failed To Write Memory!"
Else
Dim lpThreadId As IntPtr
CreateRemoteThread(pHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, lpThreadId)
If (lpThreadId = IntPtr.Zero) Then
Label1.Text = "...Failed To Create Thread!"
Else
Label1.Text = "...Dll Injected Succefully!"
End If
Me.Close()
End If
End If
End If
End Sub
End Class

11/24/2010 06:19 _TradEmArk_�#3

Danke

11/24/2010 12:41 яoo#4

trade daf�r gibt es den thanks button echt nicee

11/24/2010 12:41 Angelυѕ#5

Ich wei� dass man die Source �berall herkriegt,
habe ich das irgendwie anders behauptet? -.-

11/24/2010 19:05 HackTec#6

Quote:

Originally Posted by Cαlιgσ

Ich wei� dass man die Source �berall herkriegt,
habe ich das irgendwie anders behauptet? -.-

das meinte ich doch nicht damit :cool:
dachte du machst nen eigenden oder so :P weil den hab ich schon frueher gepostet schau in meiner sigi unter Tuts & more ^^

11/25/2010 21:32 Wogm#7

Quote:

Die Datei, auf die Sie zugreifen m�chten, ist derzeit leider nicht verf�gbar.

Hmpf.. =/

*freu* geht wieder. :D

#thanks added

11/26/2010 22:34 Takado�#8

Injector-Code funzt nit da kommt das:

Quote:

Die Datei, auf die Sie zugreifen m�chten, ist derzeit leider nicht verf�gbar.

pls erneuern

Edit: funzt jez doch ;)

11/26/2010 22:47 c4nszyl3r#9

gleich mal ausprobieren :D

11/27/2010 12:01 LikesZ#10

Bestimmt hilfreich.:P
Thanks.!

11/28/2010 20:05 _Rieth_#11

pls update mal den link^^
eDiT: habn andern ^^

11/28/2010 20:11 Die-Dose#12

Jo Link funzt auch nicht mit 10000x aktualisieren.

11/28/2010 22:59 Excel!#13

Habe jetzr meinen eigenen Danke.

12/30/2012 02:40 GangstaaSunny#14

Links down >.<

12/30/2012 03:36 xxfabbelxx#15

Quote:

Originally Posted by GangstaaSunny

Links down >.<

Did you take a look at the releasedate of this topic? It's 2 Years old, ofc the links are down :p

closed