Injetor de DLL.

[Leoaffonseca 0]

Olá pessoal, estva qurendo um

Tutorial de como fazer um Multi injetor de DLL.

Espero resposta, obrigado.

[Zaphey 2]

/facepalm

Depois você é melhor do que eu né?

 

Quer aprender a fazer um injetor de deéliéli?

Primeiramente aprenda a programar, estude!

Não crie tópicos inúteis como esse '-'

 

Vá aprender Pascal!

[soureidosnoob 1]

tem 57487874545454545 de topicos ensinando como criar um injetor de dll normal , use sua criatividade e faça um injetor dentro do mesmo usando os mesmos codigos!

 

vai no google :P

[Zaphey 2]

Isso ai, siga o que ele disse seja mais um RIPPER no mundo!

Já disse, estude e aprenda antes de querer fazer o que sua mentalidade infantil não pode alcançar '-'

[+ DarkLord.! 0]

Para Fazer apenas siga esse Procedimento:

 

 

 

 

1 - Abra um novo projeto:

Clique em um papel com um sinal de +, abaixo de "File"

 

2 - Abaixo de "Component" Tem uma aba "Standard" nela você encontra várias ferramentas, deixe o mouse parado sobre cada uma delas, para ver o nome de cada ferramenta.

 

3 - E então adicione: (obs: Pra adicionar um objeto, é só clicar duas vezes sobre ele)

 

1 Edit

1 CheckBox

1 Button

 

4 - Na aba "System", abra:

 

1 Timer

 

5 - Para alterar o nome de cada objeto adicionado, clique 1 vez sobre ele e digita o nome desejado... e então:

 

Altere o nome do CheckBox para : "Auto Inject"

Altere o nome do Button para "Injetar Manualmente"

Apague o texto do Edit1 ( Deixe sem nada escrito nele )

Altere o Caption do form para qualquer nome que vc quiser dar para o Injector

 

6 - Arrume a aparência do seu Injector, no meu caso eu deixei ele assim :

 

(Tem Alguns Codes que não irei disponibilizar no tutorial)

 

Então, abaixo de "Uses", substitua o código por esse abaixo:

 

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, WinSkinData, StdCtrls, tlhelp32, ComCtrls;

 

 

Agora descendo um pouco o código, você vai ver "implemetation":

 

Lá... Adicione esse código inteiro:

 

 

function ValorAsc(Letra: String): Byte;

 

begin

 

if Length(letra) > 0 then ValorAsc := Ord(Letra[1]) else ValorAsc := 0;

 

end;

 

function crypt(Texto: String): String;

 

var

 

Cont, Cod: Integer;

 

Retorna: String;

 

begin

 

for Cont := 1 to Length(Texto) do begin

 

Cod := ValorAsc(Copy(Texto, Cont, 1))*

 

Retorna := Retorna + Chr(Cod + 57(*valor a ser adicionado - pode ser modificado*))*

 

end;

 

Crypt := Retorna;

 

end;

 

function Descript(Texto: String): String;

 

var

 

Cont, Cod: integer;

 

Retorna: String;

 

begin

 

for Cont := 1 to Length(Texto) do begin

 

Cod := ValorAsc(Copy(Texto, Cont, 1))*

 

Retorna := Retorna + Chr(Cod - 57)*

 

end;

 

Descript := Retorna;

 

end;

 

function processExists(exeFileName: string): Boolean;

 

var

 

ContinueLoop: BOOL;

 

FSnapshotHandle: THandle;

 

FProcessEntry32: TProcessEntry32;

 

begin

 

FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)*

 

FProcessEntry32.dwSize := SizeOf(FProcessEntry32)*

 

ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32)*

 

Result := False;

 

while Integer(ContinueLoop) <> 0 do

 

begin

 

if ((UpperCase(ExtractFileName(FProcessEntry32.szExeF ile)) =

 

UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =

 

UpperCase(ExeFileName))) then

 

begin

 

Result := True;

 

end;

 

ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32)*

 

end;

 

CloseHandle(FSnapshotHandle)*

 

end;

 

function CMKGETID(ExeFileName: string; var ProcessId: dword) :boolean; // A função

 

var

 

ContinueLoop: BOOL;

 

FSnapshotHandle: THandle;

 

FProcessEntry32: TProcessEntry32;

 

begin

 

result := false;

 

FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)*

 

FProcessEntry32.dwSize := Sizeof(FProcessEntry32)*

 

ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32)*

 

while integer(ContinueLoop) <> 0 do begin

 

if (StrIComp(PChar(ExtractFileName(FProcessEntry32.sz ExeFile)), PChar(ExeFileName)) = 0)

 

or (StrIComp(FProcessEntry32.szExeFile, PChar(ExeFileName)) = 0) then begin

 

ProcessId:= FProcessEntry32.th32ProcessID;

 

result := true;

 

break;

 

end;

 

ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32)*

 

 

 

end;

 

CloseHandle(FSnapshotHandle)*

 

end;

 

 

Agora de 2 Clicks no Button (Injetar) e adicione isso :

 

 

timer1.Enabled:=true;

 

Agora de 2 Clicks no CheckBox (Caixa onde tava escrito "edit1" aquela que digita o endereço da dll) e adicione isso :

 

 

if CheckBox1.Checked = False then begin

 

Timer1.Enabled:=False;

 

end

 

else begin

 

Timer1.Enabled:=True;

 

 

 

end;

 

Agora de 2 Clicks no Timer (reloginho) e apague essa parte :

 

 

Begin

 

End;

 

E adicione isso :

 

 

var

 

Pid : dword;

 

ker41280dll : String;

 

pker41280dll : Pointer;

 

ker41280prcess,bw41280 : Cardinal;

 

hRemote_Thread : Cardinal;

 

begin

 

ker41280dll := ExtractFilePath(Application.Exename)+Edit1.Text;

 

if ProcessExists('main.exe') then begin

 

if FileExists(ker41280dll) then begin

 

cmkGetID('main.exe',pid)*

 

ker41280prcess:= OpenProcess(PROCESS_ALL_ACCESS, false, PID)*

 

pker41280dll := VirtualAllocEx(ker41280prcess,nil, length(ker41280dll), MEM_COMMIT,PAGE_EXECUTE_READWRITE)*

 

WriteProcessMemory(ker41280prcess, pker41280dll, PChar(ker41280dll), length(ker41280dll), bw41280)*

 

CreateRemoteThread(ker41280prcess, nil, 0, GetProcAddress(GetModuleHandle('kernel32.dll'),'Lo adLibraryA'), pker41280dll, 0, hRemote_Thread)*

 

CloseHandle(ker41280prcess)*

 

Timer1.Enabled:=False;

 

ShowMessage('DLL Injct Sucefull')*

 

end

 

else begin

 

Timer1.Enabled:=False;

 

end;

 

end;

 

end;

 

Pronto, seu Injector foi criado..

 

Agora irei ensinar a fazer o Mult Dll Injector

 

Para criar o Mult Dll Injector, você ira precizar de mais :

 

 

1 Edit

1 Timer

1 CheckBox

1 Button

 

Iremos fazer quase a mesma coisa que fizemos no timer, button, Checkbox, mas agora alterando algumas partes do cod

Depois de adicionar esses componentes e organiza-los como desejar coloque esses cods:

De 2 Clicks no Timer2, apague o seguinte cod :

 

 

Begin

 

End;

 

E adicione isso :

 

 

var

 

Pid : dword;

 

ker41280dll : String;

 

pker41280dll : Pointer;

 

ker41280prcess,bw41280 : Cardinal;

 

hRemote_Thread : Cardinal;

 

begin

 

ker41280dll := ExtractFilePath(Application.Exename)+Edit2.Text;

 

if ProcessExists('main.exe') then begin

 

if FileExists(ker41280dll) then begin

 

cmkGetID('main.exe',pid)*

 

ker41280prcess:= OpenProcess(PROCESS_ALL_ACCESS, false, PID)*

 

pker41280dll := VirtualAllocEx(ker41280prcess,nil, length(ker41280dll), MEM_COMMIT,PAGE_EXECUTE_READWRITE)*

 

WriteProcessMemory(ker41280prcess, pker41280dll, PChar(ker41280dll), length(ker41280dll), bw41280)*

 

CreateRemoteThread(ker41280prcess, nil, 0, GetProcAddress(GetModuleHandle('kernel32.dll'),'Lo adLibraryA'), pker41280dll, 0, hRemote_Thread)*

 

CloseHandle(ker41280prcess)*

 

Timer2.Enabled:=False;

 

ShowMessage('DLL Injct Sucefull')*

 

end

 

else begin

 

Timer1.Enabled:=False;

 

end;

 

end;

 

end;

 

De 2 Clicks no Checkbox2 E add isso :

 

 

if CheckBox1.Checked = False then begin

 

Timer2.Enabled:=False;

 

end

 

else begin

 

Timer2.Enabled:=True;

 

end;

 

end;

 

De 2 Clicks no Button2 e add isso :

 

 

timer2.Enabled:=true;

[soureidosnoob 1]

ainda tem gente q passa os codigos tudo pro cara rippar --'!

 

por isso essa area ta do jeito q esta!

 

voce acha q ele vai por creditos? :rs::rs::rs::rs:

 

essa cara e so mais um dos milhoes de rippers do mundo

[DragonBoss 9]

Sério, começarei a moderar com pulso mais firme aqui.

 

Já tem muitos tópicos com a mesma dúvida, e tem mais tópicos ainda que ensinam a criar o injetor de dll.

 

Apenas pesquise.

 

Começarei a fechar tópicos como esse sem dó alguma.

 

[x] Fechado.