Combat Arms - Tutorial - Como criar um multi injetor de Dlls

Programa usado para Criar o Multi Injetor.

Tutorial :

Programa a ser usado: Delphi 7

LINK DO Site PARA DOWNLOAD:
Portaldocheats:: Download - Borland Delphi 7 Enterprise Edition + Serial

SERIAL

Number: 6AMD-PKG68E-DB8PP7-9SFE ou 6AMD-PKG68E-DB8PP7-9SFE Key: 3QH-9QW
Key: 3QH-9QW


Tamanho: 134 Mb

Bom vamos começar :

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:

Código:

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, WinSkinData, StdCtrls, tlhelp32, ComCtrls;

De modo que fique assim:

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

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

Código:

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;

De modo que fique assim:

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

Código:

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 :

Código:

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 :

Código:

Begin

End;

E adicione isso :

Código:

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 :

Código:

Begin

End;

E adicione isso :

Código:

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 :

Código:

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 :

Código:

timer2.Enabled:=true;

Canelaverde:Postando com Dedicaçao a Trazer o conteudo mais atual aos Blogueiros !!!

Posted in: Combat Arms,Dicas,Fps,Games,Tutorial