Mega Downloads

Criando um mini trainer

Ir em baixo

Criando um mini trainer

Mensagem por 4reliº~ em 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:




1.2 - e então irá aparecer uma janela igual a esta:


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.





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:




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



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:



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})





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:




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:



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!
avatar
4reliº~
Adiministrador
Adiministrador

Mensagens : 192
Pontos por postagem : 33492
Pontos : 4
Data de inscrição : 10/09/2009
Localização : megadownloads.forumeiros.com

Ver perfil do usuário http://megadownloadsco.forumeiros.com

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum