Como Criar um Injector de Dll ! Aprenda Agora !

[BladeAlpha 0]

Programa usado (Obrigatorio):

Delphi 7.

Adicione os seguintes componentes:

 

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

2- Labe.ls ( Sem o . ) - 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:

 

 

 

Expandir esta imagem Ver em tamanho real

 

De dois cliques no For.m ( Sem o . ) 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_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;

</blockquote>

 

 

Expandir esta imagem

 

Abaixo 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 := 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;

</blockquote>

 

 

Expandir esta imagem

 

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.***(ExtractFileName(OpenDialog1.FileName));

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

 

 

Expandir esta imagem

 

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>

 

 

Expandir esta imagem

 

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>

 

Creditos:

 

Follow - prints.

Pitoco - download.

Follow - topic.

ReiiWare - topic na reicheats.

BladeAlpha - Topic na WebCheats

 

Lembrando a todos que eu não criei o Topico somente copiei e colei '-'

[Eleephur - 0]

Ctrl+C / Ctrl+V. Fecha ai.

Códigos com falhas e área errada também.

LINK REMOVIDO #DTK

Ps.: existe também um igual no fórum.

[CharlesRique 0]

Area Errada , Conteúdo ja existente . Area certa seria Delphi and Vb , em Programação .

[AhoBaka 1]

Caro Membro.

 

Após uma analise foi verificado que seu tópico se encontra em área incorreta e ele sera movido para á área que correspondente ao seu conteúdo.

 

Tópico Movido.

[Inoxybel 39]

Conteúdo já existente, não interessa se a forma de ser feita mudou, a finalidade e o tipo de codar é igual.

 

http://www.webcheats.com.br/forum/delphi-vb/425063-criando-injetor-de-dll.html

http://www.webcheats.com.br/forum/delphi-vb/1133329-source-mini-dll-inject-em-api-18kb.html

[gaabscps 2]

Além de ter diversos erros de sintaxe, tag's e não se aprende nada nisso, apenas se copia

[BladeAlpha 0]

kkkk codigos com erro o c* de vcs eu criei um injector agr usando esse codigo vcs que são td burro q não abem mechar '-'

['Lenneth 472]

kkkkkkkkkkkkkk Cheio De Erros PQP kkkkkkkkk Tem q Rir Ne