.~ Criando Seu InjetoR ~.

[]Dado[] · 7 de Julho 2010

Este é um tutorial fácil sobre como fazer um injector Advanced !

Abra o Microsoft Visual Basics 2008.

Então faça a 5 botões.

O que vamos fazer?

Nós vamos fazer um Injector Avançado.

Quais os itens que teremos ?

5 botões.

1 Label.

Um TextBox.

Um ListBox.

Um Timer.

Um OpenFileDialog .

Nome Button1 "Selected "Limpar

Nome Button2 Process " Clear "

Nome Button3 List "Limpar"

Nome Button4 "Procurar"

Nome Button5 "inserir"

Faça um Label.

Fazer um TextBox.

Faça uma ListBox e ListBox1 nome de " DLLs "

Faça um OpenFileDialog e vá para Propriedades e MultiSelect fazê-lo verdadeiro.

Adicione um Timer.

Clique em Form1 e apagar as palavras e copie e cole o seguinte:

Código:

Public Class Form1

As Integer Private TargetProcessHandle

As Integer Private pfnStartAddr

pszLibFileRemote As String Private

As Integer Private TargetBufferSize

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 = ( e H2)

Public Const PROCESS_VM_OPERATION = (& H8)

Public Const PROCESS_VM_WRITE = (& H20)

As String Dim DllFileName

Public Declare Function ReadProcessMemory Lib " kernel32 " (_

HPROCESS ByVal As Integer , _

lpBaseAddress ByVal As Integer , _

lpBuffer ByVal As String , _

ByVal nSize As Integer , _

ByRef lpNumberOfBytesWritten As Integer ) As Integer

Public Declare Function LoadLibrary Lib " kernel32 "Alias" LoadLibraryA " (_

lpLibFileName ByVal As String ) As Integer

Public Declare Function VirtualAllocEx Lib " kernel32 " (_

HPROCESS ByVal As Integer , _

lpAddress ByVal As Integer , _

ByVal dwSize As Integer , _

flAllocationType ByVal As Integer , _

flProtect ByVal As Integer ) As Integer

Public Declare Function WriteProcessMemory Lib " kernel32 " (_

HPROCESS ByVal As Integer , _

lpBaseAddress ByVal As Integer , _

lpBuffer ByVal As String , _

ByVal nSize As Integer , _

ByRef lpNumberOfBytesWritten As Integer ) As Integer

Public Declare Function GetProcAddress Lib " kernel32 " (_

hModule ByVal As Integer , ByVal lpProcName As String ) As Integer

Private Declare Function GetModuleHandle Lib " Kernel32 "Alias" GetModuleHandleA " (_

lpModuleName ByVal As String ) As Integer

Public Declare Function CreateRemoteThread Lib " kernel32 " (_

HPROCESS ByVal As Integer , _

ByVal lpThreadAttributes As Integer , _

ByVal dwStackSize As Integer , _

lpStartAddress ByVal As Integer , _

lpParameter ByVal As Integer , _

dwCreationFlags ByVal As Integer , _

ByRef lpThreadId As Integer ) As Integer

Public Declare Function OpenProcess Lib " kernel32 " (_

dwDesiredAccess ByVal As Integer , _

bInheritHandle ByVal As Integer , _

ByVal dwProcessId As Integer ) As Integer

Private Declare Function FindWindow Lib " user32 "Alias" FindWindowA " (_

lpClassName ByVal As String , _

lpWindowName ByVal As String ) As Integer

Private Declare Function CloseHandle Lib " kernel32 "Alias" CloseHandleA " (_

hObject ByVal As Integer ) As Integer

Dim Exename As String = IO.Path.GetFileNameWithoutExtension Application.ExecutablePath ()

Private Sub Inject ()

On Error GoTo 1 ' Se o erro ocorre, o aplicativo será fechado sem mensagens de erro

Timer1.Stop ()

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

TargetProcessHandle = OpenProcess ( PROCESS_CREATE_THREAD Ou PROCESS_VM_OPERATION Ou PROCESS_VM_WRITE , False, TargetProcess (0). Id)

pszLibFileRemote = OpenFileDialog1.FileName

pfnStartAddr = GetProcAddress ( GetModuleHandle (" Kernel32 ")," LoadLibraryA ")

TargetBufferSize = 1 + Len ( pszLibFileRemote )

As Integer Dim Rtn

As Integer Dim LoadLibParamAdr

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 = "Apagar Selecionados "

Label1.Text = "Waiting for Process Start ... "

Timer1.Interval = 50

Timer1.Start ()

End Sub

Private Sub Timer1_Tick (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

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

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

Se TargetProcess.Length = 0 Then

Me.Label1.Text = ( "Waiting for "+ TextBox1.Text + ". exe ...")

Outro

Timer1.Stop ()

Me.Label1.Text = " injetou com sucesso !

Injectar Call ()

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

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 ("\ "))

As String Dim DllFileName FileName.Replace = ( "\", ")

Me.Dlls.Items.Add ( DllFileName )

End Sub

Private Function GetAsyncKeyState (ByVal vKey As Integer) As Short

Se GetAsyncKeyState ( Keys.F12 ) Then

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

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

Se TargetProcess.Length = 0 Then

Me.Label1.Text = ( "Waiting for "+ TextBox1.Text + ". exe Injection (F12 )...")

Outro

Timer1.Stop ()

Me.Label1.Text = " injetou com sucesso !

Injectar Call ()

"Se CheckBox1.Checked = True Then

" Me.Close ()

'Else

' End If

End If

Outro

End If

End Function

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

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

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

Se TargetProcess.Length = 0 Then

Me.Label1.Text = ( "Waiting for "+ TextBox1.Text + ". exe Injection (F12 )...")

Outro

Timer1.Stop ()

Me.Label1.Text = " injetou com sucesso !

Injectar Call ()

"Se CheckBox1.Checked = True Then

" Me.Close ()

'Else

' End If

End If

Outro

End If

End Sub

End Class

Observação:

Isso pode ter alguns erros porque eu não totalmente controlados e eu preciso editar o thread para torná-lo mais fácil de fazer.

LoOoOl Gostou De Algo Que Eu Disse???

Agradeça Não Tem Preço...

**i.khuster** · 7 de Julho 2010

Como eu ja disse , Arrume seus topicos deixe os . Organizados qeê você recebera .

Mais que isso , Da um closed aqie .

Meta :

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

Fã :

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

-

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

Ajudei ? Custa nada Agradeçer !

**Gunax** · 7 de Julho 2010

realmente acho que vc não fez sozinho isto para o melhor de tudo coloque os creditos e tente seguir um tutorial para que os membros entendam .

BiillaBong~* · 7 de Julho 2010

Tá muito desorganizado .

Coloke umas cores .

E fotos tbm .

**JeckSexy** · 7 de Julho 2010

@P.s

ele copiou o tuto da mpg

e nao adianta o xtrap detecta o injector

eu mesmo fiz o meu =]

**[Pro-Rat]** · 7 de Julho 2010

não da pra entender direito , mas valew a intenção , se arrumar o tuto acho que fika legal

**Gustavo5066** · 7 de Julho 2010

Como faz esses negocio ai que eu não entendi no começo.

Tem que limpa pra faze o label?

Não entendi...

**Akilleks~™** · 8 de Julho 2010

Área errada, Mias atenção amigo.

Trancado.

Entrar

2 Quem está por aqui 0 membros estão online

.~ Criando Seu InjetoR ~.

Posts Recomendados

[]Dado[] 0

Link para o comentário

Compartilhar em outros sites

i.khuster 0

Link para o comentário

Compartilhar em outros sites

Gunax 1

Link para o comentário

Compartilhar em outros sites

BiillaBong~* 0

Link para o comentário

Compartilhar em outros sites

JeckSexy 9

Link para o comentário

Compartilhar em outros sites

[Pro-Rat] 0

Link para o comentário

Compartilhar em outros sites

Gustavo5066 1

Link para o comentário

Compartilhar em outros sites

Akilleks~™ 0

Link para o comentário

Compartilhar em outros sites

Fóruns

Todas Atividades

LOJA WCOINS

Informação Importante