Criando Injector Automatico

[Er1k 1]

[h=2]Criando um injector de dll ultra pratico e rapido[/h]

Eae mlkada estarei encinando a

criar

um injetor de dll automatico ( APENAS AUTOMATICO ) vamo la

Requerimentos

 

Para criarmos o injetor de dll precisaremos de :

 

-Delphi 7 Full

-Paciência

 

Se você tem tudo da

receita

,com certeza irá conseguir.

 

Criando o Injetor

 

1-) Crie um novo

projeto

no Delphi. ( File → New → Application )

 

2-) Adicione os seguintes componentes ao seu F-O-R-M :

 

1 Edit;

1 Listbox;(Esconda o listbox no

canto

ou tal,e mude visible para false)

1 Opendialog;

2 Button's;(ponha o caption do button1 como "Procurar dll" e do outro "Pronto para uso!")

1 Timer;

1 Gauge(pra quem não sabe aba Samples);

1 *****;(ponha o caption como "Processo :");

Organize desse jeito :

 

 

3-) Nas uses adicione : "TlHelp32" sem as aspas.

 

4-) Abaixo de :

Código

PHP:

implementation

 

{

$R

*.

dfm

}

 

adicione :

Código PHP:

uses sStoreUtils

;

 

function

GetPID

(

ProcessName

:

string

):

DWORD

;

//Função obter o ID do

Processo

(PID)

var

MyHandle

:

THandle

;

Struct

:

TProcessEntry32

;

begin

Result

:=

0

;

try

MyHandle

:=

CreateToolHelp32SnapShot

(

TH32CS_SNAPPROCESS

,

0

);

Struct

.

dwSize

:=

Sizeof

(

TProcessEntry32

);

if

Process32First

(

MyHandle

,

Struct

)

then

if

Struct

.

szExeFile

=

ProcessName then

begin

Result

:=

Struct

.

th32ProcessID

;

Exit;

end

;

while

Process32Next

(

MyHandle

,

Struct

) do

if

Struct

.

szExeFile

=

ProcessName then

begin

Result

:=

Struct

.

th32ProcessID

;

Exit;

end

;

except on exception

do

Exit;

end

;

end

;

 

 

function

InjectDll

(

PID

:

DWORD

;

sDll

:

string

):

Boolean

;

var

hLib

:

Pointer

;

hThread

:

THandle

;

pMod

:

Pointer

;

hOpen

:

THandle

;

dWritten

:

Cardinal

;

ThreadID

:

Cardinal

;

begin

Result

:=

FALSE

;

hOpen

:=

OpenProcess

(

PROCESS_ALL_ACCESS

,

FALSE

,

PID

);

if

hOpen

<>

INVALID_HANDLE_VALUE then

begin

hLib

:=

GetProc

***

ress

(

GetModuleHandle

(

PChar

(

'kernel32.dll'

)),

PChar

(

'LoadLibraryA'

));

pMod

:=

VirtualAllocEx

(

hOpen

,

nil

,

Length

(

sDll

) +

1

,

MEM_COMMIT

or

MEM_RESERVE

,

PAGE_EXECUTE_READWRITE

);

if

WriteProcessMemory

(

hOpen

,

pMod

, @

sDll

[

1

],

Length

(

sDll

),

dWritten

)

then

Result

:=

TRUE

;

hThread

:=

CreateRemoteThread

(

hOpen

,

nil

,

0

,

hLib

,

pMod

,

0

,

ThreadID

);

WaitForSingleObject

(

hThread

,

INFINITE

);

CloseHandle

(

hOpen

);

CloseHandle

(

hThread

);

end

;

end

;

 

5-) Agora dê 2 clicks no Timer.Apague o "Begin e o End;" e substitua por :

Código PHP:

var

PID

:

DWORD

;

begin

Timer1

.

Enabled

:=

True

;

PID

:=

GetPID

(

Edit1

.

Text

);

if

PID

=

0 then

begin

Timer1

.

Enabled

:=

True

;

Exit;

end

;

Timer1

.

Enabled

:=

False

;

if

InjectDll

(

PID

,

Opendialog1

.

Filename

)

then

begin

MessageBoxA

(

Handle

,

'DLL injetada com sucesso!'

,

'Sucesso!'

,

MB_ICONEXCLAMATION

+

MB_SYSTEMMODAL

);

form1

.

close

;

end

else

begin

MessageBoxA

(

Handle

,

'Erro!'

,

'Falha!'

,

MB_ICONERROR

+

MB_SYSTEMMODAL

);

form1

.

close

;

end

end

;

 

6-) Dê 2 clicks no button1 e adicione o seguinte código :

 

Código PHP:

if

not OpenDialog1

.

Execute then

Exit;

Listbox1

.

Items

.***(

ExtractFileName

(

OpenDialog1

.

FileName

));

button1

.

Enabled

:=

false

;

button2

.

Enabled

:=

true

;

 

7-) Agora dê 2 clicks no button2 e adicione o seguinte código :

Código PHP:

button2

.

Enabled

:=

false

;

gauge1

.

Progress

:=

5

;

sleep

(

100

);

gauge1

.

Progress

:=

10

;

sleep

(

100

);

gauge1

.

Progress

:=

15

;

sleep

(

100

);

gauge1

.

Progress

:=

20

;

sleep

(

100

);

gauge1

.

Progress

:=

25

;

sleep

(

100

);

gauge1

.

Progress

:=

30

;

sleep

(

100

);

gauge1

.

Progress

:=

35

;

sleep

(

100

);

gauge1

.

Progress

:=

40

;

sleep

(

100

);

gauge1

.

Progress

:=

45

;

sleep

(

100

);

gauge1

.

Progress

:=

50

;

sleep

(

100

);

gauge1

.

Progress

:=

55

;

sleep

(

100

);

gauge1

.

Progress

:=

60

;

sleep

(

100

);

gauge1

.

Progress

:=

65

;

sleep

(

100

);

gauge1

.

Progress

:=

70

;

sleep

(

100

);

gauge1

.

Progress

:=

75

;

sleep

(

100

);

gauge1

.

Progress

:=

80

;

sleep

(

100

);

gauge1

.

Progress

:=

85

;

sleep

(

100

);

gauge1

.

Progress

:=

90

;

sleep

(

100

);

gauge1

.

Progress

:=

95

;

sleep

(

100

);

gauge1

.

Progress

:=

100

;

Listbox1

.

Items

.***(

ExtractFileName

(

OpenDialog1

.

FileName

));

Timer1

.

Enabled

:=

True

;

showmessage

(

'Agora abra o Programa! Ou então nao funcionará '

-

'.'

);

 

8-) Agora dê 2 clicks no F-O-R-M e adicione o código :

Código PHP:

button2

.

Enabled

:=

false

;

timer1

.

Enabled

:=

false

;

 

Pronto!Injetor de dll criado!Esse injetor não precisa executar como adminstrador ok?Eu vi um post de uma source de um injetor de dll avançado mas ele tinha opções,então eu modifiquei os

códigos

...deixei somente com a opção automático. Obrigado.

 

Se for copiar o topico por favor coloque meus creditos. Gostou Funcionou? Agradeça não cai o dedo e nem custa Cash.

 

 

[Kyoro 82]

[☢|EXPL01T3R|☣ 46]

o code ta ótimo falta apenas melhorar o tópico para facilitar a leitura