[Tutorial] Como criar um Trainer + Source Trainer Grand Chase + Injector

Programa Necessá¡rio:
Delphi 7 - [Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Retirado as Propagandas

1 - Criando a DLL

1.1 - Abra o Delphi 7, vá em "File > New > Other..." como mostra a figura abaixo:
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

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

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

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.

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

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:

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

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

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

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:

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

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

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

var
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,@AbrirFormula rioGzB,@AbrirFormularioGzB,0,hID);
end.


Agora declare o código:


na uses.

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

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

3.2 - Agora vá¡ no form do trainer e de 2 clicks no "Timer1", aparecera um código tipo:
procedure TForm1.Timer1Timer(Sender: TObject);
begin

end;

Troque ele por este:
var
Form1: TForm1;
const
Heroico_Address = $0117029D;
Visao_Address = $0116ED6C;
Estagio_Address = $0117D858;
GP_Address = $011856BC;
Destravar_Address = (Estagio_Address)-$20;
implementation
{$R *.dfm}
procedure TForm1.m4n14Timer(Sender: TObject);
begin
try

if Checked1.Checked = true then begin;// Gp Hack
PDWORD(PDWORD($011876BC)^+$14)^:=2999999;
end;

if Checked2.= true then begin;// Visão
PSINGLE($01170D6C)^:=StrToFloat(Edit1.Text);
end;

if Checked3.Checked = true then begin;// Estagio
PDWORD($01170D6C)^:=StrToInt(Edit2.Text);
end;

if Checked4.Checked = true then begin;// Heróico
PSINGLE($0117229D)^:=1
end;

end;
except
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
PDWORD(Destravar_Address)^:=$FFFFFFFF;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ExitProcess(0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ShellExecute(0,'open','http://xxxxxxxx','','',0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Label17Click(Sender: TObject);
begin
ShellExecute(0,'open','http://xxxxxxxx','','',0);
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
ShellExecute(0,'open','http://xxxxxxxx','','',0);
end;

procedure TForm1.Label7Click(Sender: TObject);
begin
ShellExecute(0,'open','http://xxxxxxxx','','',0);
end;

end.

E na uses, add as seguintes variaveis:

Memory: DWORD;
value: dword;

devera ficar igual a imagem abaixo:

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

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

Download da Soucer--[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]
Conteudo:

Estagio Heroico
liberar portais
Mapa X
Mapa Y
Gp 2999999
Colar/t
Missao Completa
Invetario Hack.

Injector 1.0:

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]


Donwload injector-[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

Os passos tomados para fazer a injeção foram os seguintes:

1) Obter o ProcessID (PID) do executável alvo e o caminho completo da DLL a ser injetada;

2) Adicionar ao DLL Injector privilégios de Debug;

3) Obter o endereço da função LoadLibraryA();

4) Abrir o processo com permissões de leitura/escrita;

5) Utilizar VirtualAllocEx() para alocar, no espaço de memória do alvo, a quantidade de bytes correspondente ao tamanho da string que contém o caminho da DLL;

6) Utilizar WriteProcessMemory() para armazenar, no endereço de memória retornado pela função VirtualAllocEx(), o valor da string utilizada no passo anterior;

7) Criar uma thread remota no processo com a função CreateRemoteThread, passando como endereço de função e argumento, o endereço da função LoadLibrarA() e o endereço de memória que armazena a localização da DLL, respectivamente;

Aguardar o término da thread e obter seu código de retorno, verificando, posteriormente, a existência de erros;

9) Fechar o handle do processo e liberar a memória alocada.

10)Agradeça o autor do topico