Criando um mini trainer

por **4reliº~** Qui Nov 19, 2009 2:14 pm

Esta informação é extremamente importante! Não divida para nenhu forum!!!!!! Caso for encontrado o usuário será banido!

Programa Necessá¡rio:
Delphi 7

1 - Criando a DLL

1.1 - Abra o Delphi 7, vá em "File > New > Other..." como mostra a figura abaixo:

Criando um mini trainer 75099598

1.2 - e então irá aparecer uma janela igual a esta:
Criando um mini trainer 69927142

1.3 - vá como manda a foto em DLL Wizard e de Ok, irá aparecer uma janela igual a esta. Clique em New Form e pronto dll criada.

Criando um mini trainer 53919737

2 - Customizando a aparencia.

2.1 - Veja que apareceu um quadrado grande quando você clicou em "New Form", na aba "Stantard" do Delphi, add 2 CheckBox como mostra a foto abaixo:

Criando um mini trainer 35367642

2.2 - Agora na aba "System" add um Timer (O que tem um desenho de um relogio) como mostra a foto abaixo:

Criando um mini trainer 73192475

2.3 - Agora add um "Edit" que está na aba "Standard" (veja a img abaixo) e renomeie os "CheckBox" e o "Form" pelo Caption como mostra a imagem abaixo:

Criando um mini trainer 67746562

3 - Adicionando os Códigos & Compilando.

3.1 - Apague o códigos "begin" e "end." e insira o código abaixo da imagem no lugar deles (que fica abaixo do {{$R *.res})

Criando um mini trainer 92486332

Quotevar
HackProcess:THandle;
hId:Cardinal;
b:Boolean=False;

procedure AbrirFormularioGzB;
begin
Form1:=TForm1.Create(nil);
Form1.ShowModal;
end;

begin
HackProcess:=OpenProcess(PROCESS_ALL_ACCESS,false,GetCurrentProcessID);
CreateRemoteThread(HackProcess,nil,0,@AbrirFormularioGzB,@AbrirFormularioGzB,0,hID);
end.

Agora declare o código:

Quotewindows,

na uses.

Então ficara assim, como mostra a imagem abaixo:

Criando um mini trainer 75219743

3.2 - Agora vá¡ no form do trainer e de 2 clicks no "Timer1", aparecera um código tipo:

Quoteprocedure TForm1.Timer1Timer(Sender: TObject);
begin

end;

Troque ele por este:

Quoteprocedure TForm1.Timer1Timer(Sender: TObject);
begin
//Damage Hack-Slot1
if CheckBox1.Checked=True then begin
Memory:=PDWORD($01084AB4)^+$2EB02;
PDWORD(Memory)^:=20000;
end;

//Stage Hack
if Checkbox2.Checked=True then begin
Value:=strtoint(Edit1.text);
PDWORD($011CE498)^:=Value;
end;
end;

e na uses, add as seguintes variaveis:

QuoteMemory: DWORD;
value: dword;

devera ficar igual a imagem abaixo:

Criando um mini trainer 40290316

Agora salve seu projeto e aperte Crtl F9 para compilar, deverá aparecer a dll na pasta do projeto dps eh só injetar e se divertir.

Creditos: Bom ta escrito em todas as imagens!