Injector - Criação de Injector comum, e o multi.

[Atlético-MG 0]

Injector - Criação de Injector comum, e o multi.

 

 

Bom vamos começar adicionando :

 

 

 

1 Edit - Aba Standard

1 CheckBox - Aba Standard

1 Button - Aba Standard

1 Timer - Aba System

 

 

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

 

 

 

Citação:

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

 

 

(Tem Alguns Codes que não irei disponibilizar no tutorial, mas irei colocar o Download da Source do Injector)

 

 

 

Agora adicione nas Uses

 

 

Citação:

tlhelp32

Ficando assim :

 

 

 

Citação:

uses

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

Dialogs, WinSkinData, StdCtrls, tlhelp32, ComCtrls

 

 

Agora em baixo disso :

 

 

Citação:

implementation

 

 

 

Adicione esse Código inteiro

 

 

Citação:

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 e adicione isso :

 

 

 

 

Citação:

timer1.Enabled:=true;

 

 

Agora de 2 Clicks no CheckBox e adicione isso :

 

 

 

Citação:

if CheckBox1.Checked = False then begin

 

Timer1.Enabled:=False;

 

end

 

else begin

 

Timer1.Enabled:=True;

 

 

 

end;

 

 

 

Agora de 2 Clicks no Timer e apague essa parte :

 

 

 

Citação:

Begin

 

End;

 

 

 

E adicione isso :

 

 

 

Citação:

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 enssinar a fazer o Mult Dll Injector

 

 

 

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

 

 

 

Citação:

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 :

 

 

 

Citação:

Begin

 

End;

 

 

 

E adicione isso :

 

 

 

Citação:

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 :

 

 

Citação:

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 :

 

 

 

Citação:

timer2.Enabled:=true;

 

 

 

Download da source

 

 

 

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

• Entre
• ou
• Cadastre-se

 

 

 

 

por favor se eu ajudei agradeça

[galoucura22157 0]

vlw fi gostei bom topico colorido explicando tudo gostei msm bom vo la tentar fazer os injectores e eu ja agradeci vlw msm cara

 

 

vlw cara funfo msm eu consegui fazer os dois

[Chewbacca' 49]

Bom tutorial só que faltou SS pra facilitar mais pra entender.

obg por compartilhar!

[D1610 0]

Legal, funcional.

Mas acho que já tem um tópico igualzinho. :pensativo:

 

[olacyhits 0]

adorei seu toturial

pois ir ajudar diverssas pessoas a fazer injetores

poderia colocar ss para complimenta o seu tutorial

parabens

continue assim

[Galinho13 0]

Conteúdo já existente,

 

http://www.webcheats.com.br/forum/combat-arms-tutoriais/591810-criando-um-multi-dll-injector.html#post2691838

 

Fechado.