[Delphi7] - Criando um injector

[[Sky]AliazeD~~ 0]

O que vai precisar?

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

• Entre
• ou
• Cadastre-se

 

Altere o caption no object inspector do Check Box para Auto Inject. / Opicional

Altere o caption do Button para "Injetar Manualmente". / Opicional.

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

 

Altere suas uses para:

 

uses

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

Dialogs, WinSkinData, StdCtrls, tlhelp32, ComCtrls;

 

Feito isso, abaixo de - implementation

 

{$R *.dfm}- Adicione esta funçã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;

 

No evento OnClick do button, add:

 

timer1.Enabled:=true; // Irá acionar o timer.

 

No event OnCheck do checkbox, add:

 

if CheckBox1.Checked = False then begin

 

Timer1.Enabled:=False;

 

end

 

else begin

 

Timer1.Enabled:=True;

 

 

 

end;

 

No timer, de 2 clicks, apague o begin e add:

 

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 Injetada!');

ShowMessage('Acesse - http://www.webcheats.com.br');

 

end

 

else begin

 

Timer1.Enabled:=False;

 

end;

 

end;

 

end;

 

Pronto ^^

 

Jaja, irei postar a minha source.

[Surfistinha£ 25]

Lembrando

 

if ProcessExists('main.exe') then begin

 

cmkGetID('main.exe',pid);

 

'main.exe' e o processo a ser injectado

 

Ja avia posts desses mas ta bom

[[Sky]AliazeD~~ 0]

Lembrando

 

 

 

 

 

'main.exe' e o processo a ser injectado

 

Ja avia posts desses mas ta bom

 

 

Ja existiam, mas por não poderem ser postadas dúvidas etc, resolvi repostar, e de outra maneira.

[neivisson1 0]

Otimo Tuto...

Vou fazer um ake...

Depois edito ake pra dizer se conseguir...

Agradecido.

 

___________________________

 

Da um help ake....

Depois que eu declaro as uses onde eu coloco aquele codigo ?

[[Sky]AliazeD~~ 0]

Otimo Tuto...

Vou fazer um ake...

Depois edito ake pra dizer se conseguir...

Agradecido.

 

___________________________

 

Da um help ake....

Depois que eu declaro as uses onde eu coloco aquele codigo ?

 

Qual Código man ?

[neivisson1 0]

O codigo maior '-'

[[Sky]AliazeD~~ 0]

O codigo maior '-'

 

Clique na unit1 e embaixo de implementation

 

{$R *.dfm}

Embaixo de:

 

implementation

 

{$R *.dfm}

adicione o código.

 

^^

[neivisson1 0]

Vou testar ake...

Obrigado pela ajuda =)

[bidoow 0]

ótimo topico cara, pena que eu não jogo mais grandchase. vocês deviam fazer um encinando a fazer um xiter no cs :D

 

hehe

 

vlw-;

[~Cleyton 91]

Otimo topico mano thanks , ta bm explicadoo ^^ by

[kevin35 3]

Otimo topico =)

vou lançar meu injector em sauhasuas

[~Cleyton 91]

estou com vc kelvin logo logo lançaremos nosso injector udshudhhfhdugh mas o topico esta otimoo

[piratamcd 19]

Valeu depois vou fazer um também...

 

Pergunta ? serve basicamente para injetar dll ??

[•Gabriel 15]

Ta muito bem explicado esse tópico.

(fiquei com dor de cabeça lendo isso ae).-.:D

[marnick 0]

tenta postar um fazer um xiter no cs aew