[tutorial]criando injetor dll

[exFoemaPc 15]

Eai galera da WC vim aqui passar para vocês um tutorial de como fazer o seu próprio injetor de dll's

Download 1° Parte :

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

• Entre
• ou
• Cadastre-se

Download 2° Parte :

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

• Entre
• ou
• Cadastre-se

Download 3° Parte:

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

• Entre
• ou
• Cadastre-se

 

Tutorial:

 

Adicione os seguintes componentes:

 

2- GroupBox - Renomeia a 1 como "Configurações" e a segunda como "Injeção".

2- Labels - O primeiro escrito "Processo" e o Segundo "Dll".

3- Buttons - O primeiro escrito "Aguardar..."(Voce pode substituir por um RadioButton escrito Automatico) o segundo "Procurar" e o terceiro "Limpar Lista"

1- Listbox

1- Timer

1- OpenDialog

 

Tente deixar ele mais ou menos assim:

 

De dois cliques no form e declare nas uses TlHelp32.

 

Declare a função acima de end. :

 

Código:

<blockquote STYLE="border-style: solid ;border-color : green;border-width :thick">

function GetPID(ProcessName: string): DWORD;

var MyHandle: THandle;

Struct: TProcessEntry32;

begin

Result:=0;

try

MyHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPPROC ESS, 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;

</blockquote>

 

 

baixo da função declarada acima, declare :

Código:

<blockquote STYLE="border-style: solid ;border-color : green;border-width :thick">

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 := GetProcAddress(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;

</blockquote>

 

Clique 2 vezes no botão "Procurar" e adicione o seguinte código:

Código:

<blockquote STYLE="border-style: solid ;border-color : green;border-width :thick">

if not OpenDialog1.Execute then Exit;

Listbox1.Items.Add(ExtractFileName(OpenDialog1.Fil eName));

</blockquote>

De dois cliques no botão "Aguardar..." e adicione:

Código:

<blockquote STYLE="border-style: solid ;border-color : green;border-width :thick">

Timer1.Enabled:=True;

</blockquote>

 

De dois cliques no Timer e adicione:

Obs: Apague o begin.

Código:

<blockquote STYLE="border-style: solid ;border-color : green;border-width :thick">

var PID: DWORD;

begin

Timer1.Enabled:=False;

PID:=GetPID(Edit1.Text);

if PID=0 then

begin

Timer1.Enabled:=True;

Exit;

end;

Timer1.Enabled:=False;

if InjectDll(PID, Opendialog1.Filename) then

MessageBoxA(Handle, 'DLL injetada com sucesso!', 'DLL Injector', MB_ICONEXCLAMATION+MB_SYSTEMMODAL)

else

MessageBoxA(Handle, 'Erro ao injetar DLL.', 'DLL Injector', MB_ICONERROR+MB_SYSTEMMODAL);

</blockquote>

 

 

No botão Limpar Lista Adicione o seguinte código:

Código:

<blockquote STYLE="border-style: solid ;border-color : green;border-width :thick">

ListBox1.Clear

</blockquote>

Agora para configurar o Opendialog para abrir somente .dlls clique no openDialog e no canto esquerdo procure por Filter e clique em "..." La coloque:

<blockquote STYLE="border-style: solid ;border-color : green;border-width :thick">

Filename:Dll Filter: *.dll

</blockquote>

Video Aula ;

Parte 1

 

 

Parte 2

 

 

ScreenShot

 

 

Créditos :

 

รмσkє™

Ryokusei

exFoemaPc

[@athaide 1]

muito bo esse tópico kara show sw bolaa

poo so keria pesir uma coisa é vc esplicar tambem como faser um hacker para combat arms ou se vc sabe um foro eu un banners akie que tenhaa vlw mano:yes::yes::yes:

[exFoemaPc 15]

muito bo esse tópico kara show sw bolaa

poo so keria pesir uma coisa é vc esplicar tambem como faser um hacker para combat arms ou se vc sabe um foro eu un banners akie que tenhaa vlw mano:yes::yes::yes:

Obrigado pelo seu elogio , mas evite esse tipo esse tipo de messagem pois é considerado como flood , apenas clique em agradeçer , ficarei muito grato . E no caso eu vou fazer um tutorial de como fazer um hack e postarei aqui para o pessoal da WebCheats

[Pookenaru 0]

Eu até criaria pra ganhar agradecimentos,mais muita preguiça e pouca pratica..hehe levou meu thx muito legal para quem não sabe faze injectores..

[[email protected] 0]

aonde eu baixo porra:malvado::raiva::inveja::fight:

[exFoemaPc 15]

aonde eu baixo porra:malvado::raiva::inveja::fight:

 

O Download está dividido em três partes , que estão localizadas no começo do tópico , da proxima vez leia um pouco e observe mais com atenção , para evitaresse tipo de flood primario, isso causa infrações !

[Key Gen 0]

eka cara que

isso isso não e

um topico e um

desorganização

organiza mais isso

uma foto de um lado e a

outra do outro melhore a fonte

!

[leandrogcschz 0]

RUim !

 

NEm funfa ! Da um error na hora de exibir ! PRa começo de conversa aquele SS no fim do tópico tem nada a ver com o que vc explicou ! Você não explicou como fazer tudo isso !:mad:

[-CrazyClown- 0]

Como eu edito o design interior do Injector ? Para não deixar aquele cinza,mas sim alguma foto ou design de minha preferência.

[exFoemaPc 15]

Como eu edito o design interior do Injector ? Para não deixar aquele cinza,mas sim alguma foto ou design de minha preferência.[/color][/font][/center][/i][/b]

 

Você deve baixar um programa de designer para editar o seu injetor.