Criando Injetor de DLL Delphi

Criando Injetor de DLL Delphi

A injeção de dll pelo método simples consiste em:

1 - Pegar o address da API LoadLibraryA. Essa API carrega uma DLL no processo que a chamou. O address dessa API é o mesmo em todos os processos.
2 - Abrir o processo que se quer injetar a dll, com privilégios de acesso total.
3 - Alocar memória no processo alvo para guardar o caminho da DLL a ser injetada.
4 - Escrever no endereço alocado o caminho da DLL.
5 - Criar uma thread no processo alvo, com parametro sendo o ponteiro pra string alocada no processo alvo que contem o caminho da dll.
6 - Aguardar o termino da thread criada.
7 - Fazer a limpeza.

1 - Inicie um novo projeto no Delphi.

Adicione os seguintes componentes no form:

object Label1
object Edit1
object Label2
object Edit2
object Button1
object OpenDialog1
object Timer1
object Button2

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Modificando vai ficar assim:

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

2 - Vá ao Code Explorer (View/Code Explorer) e declare a unit TlHelp32:

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

3 - Declare a seguinte função acima de "end.":

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

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;

4 - Declare esta função logo abaixo da função declarada acima:

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;

5 - Agora volte ao Form e dê dois cliques no botão "Carregar". Então insira este algoritmo no evento OnClick dele:

if not OpenDialog1.Execute then Exit;
Edit2.Text:=OpenDialog1.FileName;

6 - Volte ao Form e dê dois cliques no botão "Injetar". No evento OnClick dele insira este código:

Timer1.Enabled:=True;

7 - Volte ao Form e dê dois cliques sobre o "Timer1". No evento OnClick dele insira este algorítmo:

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, Edit2.Text) 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);

8- Salve o Projeto
8 - Compile o projeto (F9)
10- Se tudo der certo um executável vai ser criado na pasta do projeto.


Espero que esse tutorial ajude muitos usuários do fórum.

Creditos
yoko

Uu vlw yoko parabens vai ajuda muito

!Foox escreveu:Uu vlw yoko parabens vai ajuda muito

Cuidado com o passo 7
quando for colar o script, sempre o begin acaba repetindo duas vezes, ai vc deleta um, se não vc não vai conseguir compilar.

valeu e tu prometeu que o proximo hack eu crio o injetor.
dps me passa a imagem do proximo hack aew fika conminando.

ok pode deixa

Só podia ser o pc da Yoko mesmo, todo rosa xD

Santa paciência para fazer vídeo aula, ja fiz, só que eu não usei o bloco de notas para dar as instruções ( EU SOU MUITO BURRO ), fiz imagens no paint xD mas ficou muito bom, parabéns

o codigo ta errado yoko concerta

ta criei agora como boto a imagem de fundo?

aff eu tem que ke intala a dll disponibiliza ai

Vanessa escreveu:aff eu tem que ke intala a dll disponibiliza ai

Van! pra injetar a DLL vc pode usar esse injetor

Subinjetor
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

O meu da erro no:

Código:

var PID: DWORD;

Porque Sera q Da Esse Erro?