[Tutorial] Crie seu própio injetor de DLL

[ϟRapha™ 0]

Olá galera da WebCheats , hoje venho postar aqui como criar seu própio injetor para colocar sua DLL ~*

 

Bom , vamos lá !

 

 

Lembrando que é em Visual Basic 6

 

Vamos precisar de :

 

3 CommandButton

4 Label

1 Timer

2 TextBox

1 Microsoft Common Dialog Control 6.0

3 Module

2 Option

 

Vamos começar:

No Form Load declare o Seguinte código :
Option1(0).Value = True
Text2.Text = Load("HProcess", "Box2")
If Text2.Text = Check Then Text2.Text = ""
Text1.Text = Load("DllPath", "Box1")
If Text1.Text = Check Then Text1.Text = ""

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

• Entre
• ou
• Cadastre-se

 

 

Agora Adicione o Seguinte Código no "cmdInjetar"

 

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

• Entre
• ou
• Cadastre-se

 

 

 

Agora Adicione os Seguintes Códigos no "cmdprocurar"

CommonDialog1.Filter = "Application|*.EXE"
CommonDialog1.ShowOpen
Text2.Text = CommonDialog1.FileTitle
Text2.SetFocus

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

• Entre
• ou
• Cadastre-se

 

Agora Adicione o Componente Microsoft Common Dialog Control 6.0 pressionando CTRL+T, e Declare o Segunte Código :

 

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

• Entre
• ou
• Cadastre-se

 

 

Agora feito isso Adicione um Timer e ponhe o seguinte código :

 

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

• Entre
• ou
• Cadastre-se

 

 

 

Agora Adicione as Label e dê o nome no Caption de "Processo.EXE" e "DLL Patch"

 

Adicione os 2 "Option" e para o "Option0" Mude o Nome do Caption para "Nome EXE" e ponhe o seguinte código:

Private Sub Option0_Click(Index As Integer)
Select Case Index
Case 0
Label4.Caption = "Process EXE name:"
Command3.Enabled = True
ExeName = 1
Case 1
Label4.Caption = "Process Window Name:"
Command3.Enabled = False
ExeName = 2
End Select
End Sub

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

• Entre
• ou
• Cadastre-se

 

 

Declare também esse Código em Sua "Form"

Private Sub Form_Unload(Cancel As Integer)
Call Save("HProcess", "Box2", Text2.Text)
Call Save("DllPath", "Box1", Text1.Text)
End Sub

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

• Entre
• ou
• Cadastre-se

Public Function GetHProcExe(strExeName As String) As Long

Dim hSnap As Long

'Create a snapshot of all of the processes, and information

'about them (saving the handle so we can iterate through the

'processes)

hSnap = CreateToolhelpSnapshot(2, 0)

 

Dim peProcess As PROCESSENTRY32

peProcess.dwSize = LenB(peProcess)

 

Dim nProcess As Long

nProcess = Process32First(hSnap, peProcess)

 

'Loop through the processes until we find the one we want

'and return its process handle

Do While nProcess

If StrComp(Trim$(peProcess.szExeFile), strExeName, vbTextCompare) _

= 0 Then

GetHProcExe = OpenProcess(PROCESS_ALL_ACCESS, False, peProcess.th32ProcessID)

Exit Function

End If

peProcess.szExeFile = vbNullString

nProcess = Process32Next(hSnap, peProcess)

Loop

CloseHandle hSnap

End Function

Public Function FindProc(ProcName As String) As Long

Dim hwnd As Long

Dim ProcessID As Long

Dim ProcessHandle As Long

hwnd = FindWindow(vbNullString, ProcName)

GetWindowThreadProcessId hwnd, ProcessID

ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID)

FindProc = ProcessHandle

End Function

 

 

 

No Module3 "SaveSets" Adicione :

 

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

• Entre
• ou
• Cadastre-se

Créditos:

 

Postagem e criação - Rapha ~* ( EU )

[baahloopz 0]

@OFF.

Eu já sabia disso.

Mais , concerteza vai ajudar bastante a quem não sabe e tem interresse em criar seu proprio injetor.

Parabéns.

@Tópico

organizado.

mais falto imagens.

Sem imagens vai ficar muito dificiu de entender.

Tente colocar imagens ficaria bem melhor.

mais ficou ótimo, agradecido.

OKKK!

Obrigado por compartilhar.

abraços

[gabila21 0]

bahh mano vlw mais n só bom nisso mt mão mais vlw mesmo!!!

[[Bruninha]♥♥♥ 0]

CONTEÚDO EXISTENTE

Todo hack / utilitário copiado de outro lugar deverá conter os devidos créditos.

Utilize também a pesquisa antes de postar.

Isso Facilita Você saber se o conteudo ja foi postado na seguinte area,

 

Lamentavel mais..

 

[x] Reportado.

[natan power 4]

Otimo topico

bem organizado

bem explicado

mas ja que e um tutorial passo a passo

falto as screens!

mas vai ajudar muitos membros!

Obrigado por compartilhar

 

Abraço

[ϟRapha™ 0]

@OFF

Ok!

Vou vêr oque posso fazêr !