Criar seu proprio Injetor avançado...

[GabrielOwned 0]

Todo mundo quer saber como faz um injetor e nao sabe ne?

E bem facil vou ensinar hoje!

 

Nao vou tirar dúvidas!

E so para quem entende de VB!

 

Primeiro voce vai precisar do Microsoft Visual Basic 2008!

Pra quem nao tem :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Após baixar e instalar, abra ele!

Vá em File "la em cima"

Depois va em New project e de um nome para ele!

Agora vamos precisar dos seguintes componentes:

 

5 Buttons.

1 Label.

1 TextBox.

1 ListBox.

1 Timer.

1 OpenFileDialog.

 

Troquem os nomes do botao para:

 

Button1 "Limpar selecionado"

Button2 "Limpar processo"

Button3 "Limpar lista"

Button4 "Procurar"

Button5 "Injetar"

 

Agora na ListBox coloque o nome para Dlls

No OpenFileDialog1 em propriedades vai tar

MultiSelect :False

Mude para

MultiSelect: True

 

Agora na form clica nela duas vezes e apaga tudo oque tiver escrito e cola este codigo:

 

Código PHP:~

Public Class Form1

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 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

 

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 OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

 

End Sub

 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Button1.Text = "Limpar selecionado"

Label1.Text = "Processo:"

Timer1.Interval = 50

Timer1.Start()

 

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 = ("Esperando por " + TextBox1.Text + ".exe...")

Else

Timer1.Stop()

Me.Label1.Text = "Sucesso ao injetar!"

Call Inject()

 

 

 

End If

End If

 

 

End Sub

 

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

For i As Integer = (Dlls.SelectedItems.Count - 1) To 0 Step -1

Dlls.Items.Remove(Dlls.SelectedItems(i))

Next

 

End Sub

 

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

TextBox1.Clear()

 

End Sub

 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dlls.Items.Clear()

 

End Sub

 

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.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.Dlls.Items.Add(DllFileName)

 

End Sub

Private Function GetAsyncKeyState(ByVal vKey As Integer) As Short

 

If GetAsyncKeyState(Keys.F12) Then

If IO.File.Exists(OpenFileDialog1.FileName) Then

Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)

If TargetProcess.Length = 0 Then

 

Me.Label1.Text = ("Esperando por " + TextBox1.Text + ".exe Injetar(F12)...")

Else

Timer1.Stop()

Me.Label1.Text = "Sucesso ao injetar!"

Call Inject()

' If CheckBox1.Checked = True Then

'Me.Close()

'Else

' End If

End If

Else

End If

End If

 

End Function

 

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

If IO.File.Exists(OpenFileDialog1.FileName) Then

Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)

If TargetProcess.Length = 0 Then

 

Me.Label1.Text = ("Esperando por " + TextBox1.Text + ".exe Injetar(F12)...")

Else

Timer1.Stop()

Me.Label1.Text = "Sucesso ao injetar!"

Call Inject()

' If CheckBox1.Checked = True Then

'Me.Close()

'Else

End If

Else

End If

 

End Sub

End Class

Basta salvar e compilar seu projeto!

Lembrando:

Para injetar e precisso apertar F12!

[phablofelix 0]

Bom post man...

 

Vo testa quando chegar em casa...

 

Mais se puder fazer um video ajuda bastante...

 

=d

 

mais parabens pelo post mt bom ms...

 

Vlw abraço.

[Mr.Kibe 0]

MPGH Detect!!!

Ele tirou do site da MPGH e apenas traduziu poe os creditos do cara que criou o verdadeiro topico!

[GabrielOwned 0]

Eu copiei cara achei em um outro lugar da net ai... bom nao entendo nada disso so postei aqui pra quem entende...

 

E eu nao sei quem criou pois so tava isso ai no site que eu vi...

[The Tr3V4s 0]

Eu copiei cara achei em um outro lugar da net ai... bom nao entendo nada disso so postei aqui pra quem entende...

 

E eu nao sei quem criou pois so tava isso ai no site que eu vi...

 

LOL Man ,pra que copiar o Tópico de um outro Forúm ,olooko ...

 

_______________________________

 

[GabrielOwned 0]

LOL Man ,pra que copiar o Tópico de um outro Forúm ,olooko ...

[/b][/color]

 

Pra que? Pra nao precisar ir em outro forum vc acha que tudo nos cria??? se vc colocou algum post? de onde acha q vc tirou ele? vc fez ele por acaso??

[H3nrique 0]

Old porém gold. Bom pra quem está louco querendo iniciar no ramo de cheats...

@Gabriel Da mais uma arrumadinha no topico, colocar mais formatação no texto, que fica show

[ColdFox 0]

como compila ?