[TuT] Injector erstellen [24.11.2010]

[Angelυѕ]

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

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

[HackTec]

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

benutzt doch mal lieber den wie ich von Cronor

 Spoiler

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

[_TradEmArk_˜]

Danke

[яoo]

trade dafür gibt es den thanks button echt nicee

[Angelυѕ]

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

[HackTec]

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
dachte du machst nen eigenden oder so :P weil den hab ich schon frueher gepostet schau in meiner sigi unter Tuts & more ^^

[Wogm]

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

Hmpf.. =/

*freu* geht wieder.

#thanks added

[Takado™]

Injector-Code funzt nit da kommt das:

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

pls erneuern

Edit: funzt jez doch

[c4nszyl3r]

gleich mal ausprobieren

[LikesZ]

Bestimmt hilfreich.:P
Thanks.!

[_Rieth_]

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

[Die-Dose]

Jo Link funzt auch nicht mit 10000x aktualisieren.

[Excel!]

Habe jetzr meinen eigenen Danke.

[GangstaaSunny]

Links down >.<

[xxfabbelxx]

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

closed