Hacker WarRock

PunitionXX · Last edited by PunitionXX on Mon 19 Apr 2010 - 10:52; edited 1 time in total

Voici une vidéo faite spécialement pour vous!! Montrant comment crée un Injecteur!!

VIDEO:

Lien direct de la video: http://www.youtube.com/watch?v=q8hvXP7tHG8

J'ai galerer mais maintenant j'le fait par automatisme parce que à chaque fois j'oublier de sauvegarder les Codes^^
CODES: INJECTEUR!!

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 Int32, _
    ByVal dwSize As Int32, 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 UIntPtr
    End Function

    <DllImport("kernel32.dll", SetLastError:=True, CallingConvention:=CallingConvention.Winapi)> _
    Public Shared Function CreateRemoteThread(ByVal hProcess As IntPtr, ByVal lpThreadAttributes As Int32, _
    ByVal dwStackSize As UInt32, ByVal lpStartAddress As UIntPtr, ByVal lpParameter As IntPtr, _
    ByVal dwCreationFlags As UInt32, ByRef lpThreadId As Int32) 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.ExecutablePath)

    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 = "...En attente de Warrock!!!"
            OZ.Start()
        Else
            Me.Label1.Text = "..." + ExeName + ".dll en attente de l'injection"
        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 Gestart!"
            OZ.Stop()
            InjectToProcess()
        End If
    End Sub

    Sub InjectToProcess()
        Dim ExeName As String = IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath)
        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)
        Dim pszLibFileRemote As String = Application.StartupPath & "\" + ExeName + ".dll"
        Dim pfnStartAddr As UIntPtr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
        Dim TargetBufferSize As Int32 = Int(1 + Len(pszLibFileRemote))
        Dim LoadLibParamAdr As IntPtr = VirtualAllocEx(pHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
        Dim Rtn As Integer = CInt(WriteProcessMemory(pHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0))
        If Rtn <> 0 Then
            Label1.Text = "...Injection réussie!"
        Else
            Label1.Text = "...Injection rater!"
        End If
        CreateRemoteThread(pHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0)
        Me.Close()
    End Sub
End Class
_________________

Fl4shN0lif3

Jattend la prochaine vidéo et MERCIIII bc pour celle la !!!!!!!!!

Ceriize

moi j'aimerais bien savoir avec quoi tu film ? XD

PunitionXX

Camtasia!C'est excelent et c'est nolife qui me l'a conseiller^^ Okay

_________________

fighteur

merci pour se tuto

dragonof98

J'ai essayer de le faire mais j'arrive pas a lancer mon injecteur

AnthonyChassieu

Merci beaucoup ! j'ai reussi a créer mon injecteur ! mais je ne c'est pas comment l'utiliser ! pouvez-vous m'aider svp ?? Repondez-moi le plus rapidement possible merci !!

dragonof98

Death-flash

le problème c'est qu'on voit pas beaucoup a certains moment
_________________

Sign by Danasoft - For Backgrounds and Layouts

Death-flash

je n'arrive pas a le finir...http://www.sendspace.com/file/gfvt71
_________________

Sign by Danasoft - For Backgrounds and Layouts

[Pro] kaamia

Si vous ne trouvez pas le fichier .exe pour lancer votre injecteur il se trouve dans le dossier où vous avez enregistrer votre projet (soit injecteur) puis allez dans "bin" -> "release" et la vous trouverez votre fichier .exe a Lancer ! Bonne chance a tous Wink

_________________
Motivations :

10 messages : Réussi
50 messages : Réussi
100 messages : Réussi
150 messages : Réussi
200 messages : En cours
300 messages : En cours
400 messages : En cours
-----------------------------
Lvl 5 : Réussi
Lvl 10 : Réussi
Lvl 15 : Réussi
Lvl 20 : En cours
-----------------------------
Ratio 0.50 : Réussi
Ratio 1.00 : Réussi
Ratio 1.50 : En cours
-----------------------------
Arme acheté : - Famas : Réussi
- Winchester : Réussi
- Mp7a1 : Réussi
- Un Gold : Réussi
- M60 : Réussi
-----------------------------
Rangs : - Hackeur confirmé : Réussi
- Hackeur Pro : Réussi
- Modérateur : En cours

[Comfirmé] xkratos69x

Salut merci pour ceux qui veulent faire un hack personellement sa ne m'interesse pas plus que sa
_________________
Nul homme sensé ne peut préférer la guerre à la paix puisque, à la guerre, ce sont les pères qui enterrent leurs fils alors que, en temps de paix, ce sont les fils qui enterrent leurs pères;

http://c602be74.linkbucks.com Retail Famas Gratuit !! =)

[Pro] Pow3d69

Ques que c'est bien expliquer =)

Hotaru

merci beaucoup je vait test Wink

_________________

timojy

Merci pour le tuto mais aprés avoir enregistrer mon injecteur quand je le lance et que je lance warrock sa ne m'affiche aucun hack aidée moi SVP
Merci d'avance Okay

_________________
j'adore warrock

mwa619

salut je trouve que cette video explique bien .
merci Okay

_________________

Ќøятɘχ

Ty Merci =D

Avagen

Bonsoir,
J'ai suivi votre tutoriel jusqu'à la fin pour créer mon propre injecteur pour le jeu "Opération 7", mais malheureusement il doit manquer un truc;

Un bouton parcourir pour le .DLL

Est-ce normal?
Merci d'avance

x0luffy0x

a ok moi ça marche
_________________
ratio 1.00 (V) lvl 5 (V)
ratio 1.50 (V) lvl 10 (V)
ratio 1.80 (V) lvl 15 (X)
ratio 2.00 (V) lvl 20 (X)
Membre fidèle (V)
Hackeur pro (X)

Avagen

Bah en suivant le tuto non vu qu'il nous explique pas comment faire pour ce que j'ai dis Mort de Rire

despoteur

lol ? http://dl.free.fr/m0XzJ4XNs

calvel95

heu j ai une question quand je vais pour lancé mon injecteur il me dit sa;
erreur lors de l'execution du projet; Impossible de chargé le fichier ou l'assembly "windowsapplication1"ou une de ses dependences.Acces refusé
si vous pouviez m aidez sa serai super merci

abdala77

j ai une petit question on peut cet injecteur avec code blocks en language c

abdala77

merci pour le tuto je l ai fait mes quande je lance l exe de mon injecteur et warrock je n ai pas de cheat aider mwa

cheikh5622

Merci pour le tuto mais est ce que créé Ton injecteur ca passe sur tout les HACK?
_________________

Si tu t'ennuie regarde Sarkonnery
http://noelswf.info/1474.html

69damien

merci
_________________
damien

wilouls

Lien dead :/