[ Criando ] Trainer Grand Chase Chaos [ DLL ] Indetectavel

**G.Expindola** Qui Abr 28, 2011 10:56 am

Há alguns pré-requisitos para criação do Trainer.

Quando formos utilizar um address do tipo 4Bytes usaremos o PDWORD.
Quando
formos utilizar um address do tipo Float usaremos o PSingle. Como por
exemplo o “Visão Hack” usamos o PSingle, pois freezamos em 0,6.
(São esses que usaremos para criar nosso Trainer para Grand Chase.)
E
para seu trainer não ser detectado usaremos um método bem simples, e
que o Game Guard não detecta. Mudaremos os nomes dos CheckBox’s usados. –

Então Vamos Lá!
No Dephi
Clique em file > new other
e depois em dll wizard

Como mostra a imagem.

[ Criando ] Trainer Grand Chase Chaos [ DLL ] Indetectavel Imagem1to

Apague:

Código:
begin
end.

E substitua pelo seguinte code:

Código:
var
********* : DWORD;

procedure WC;
begin;
form1 := tForm1.Create(nil);
Form1.ShowModal;
end;
begin
CreateThread(nil, SkyCheats,@PC,nil, SkyCheats, SkyCheats);
end.

Feito isso já podemos começar a criar o trainer própriamente dito.

__________________________________________________ _____________________

Iniciaremos clicando em...

File > New > Form

Nesse momento todos o Address que nós iremos usar serão declarados. Vamos usar os seguintes exemplos:

Código:
Hack Address
Missao Completa....00000001
Continente..............00000002
Stage.....................00000003

Para declarar faça o seguinte

Vá até o Unit1
Abaixo das uses você fará o seguinte:

Código:
Const
MissaoCompleta = $00000001;
Continente = $00000002;
Stage = $00000003;
No Form...

Adicione um TCheckBox [Aba System] para cada Cheat; (No nosso caso 3)
Um TEdit [Aba System] para cada cheat que precise de um determinado valor para ser Freezado; (Ex: Continente, Stage)
1 TTimer [Aba Standard]
Mude
o nome da propriedade Caption de cada TCheckBox com respectivo nome do
Cheat. (Nesse caso pode-se usar acentuação gráfica normalmene)

“Missão Completa”
“Continente”
“Stage”

Como
foi dito o Continente e o Stage precisam de uma determinado valor para
ser Freezado, então coloque um edit na frente dos TCheckBox’s de cada
um.

Para seu trainer não ser detectado, vamos alterar a propriedade Name dos CheckBox’s. Altere para qualquer um.

No meu caso:

TCheckBox 1 ~> WE8CH34T51
TCheckBox 2 ~>WE8CH34T52
TCheckBox 3 ~>WE8CH34T53

Ok.
Agora no Timer...

Altere o Intervalo do Timer para 1.
Feito isso dê dois cliques em cima dele e adicione o seguinte CODE.

Código:
//Missao Completa, sem edit
if WE8CH34T51.Checked = true then begin;
PDword(MissaoCompleta)^:=0; // 0 = determinado valor a ser freezado
end;
// Continente Address, com edit e offset
if WE8CH34T52.Checked = true then begin;
PDWORD(PDWORD(Continente)^+$0)^:=StrToInt(Edit1.Te xt);
end;
// Stage Address, com edit
if WE8CH34T53.Checked = true then begin;
PDword(Stage)^:=StrToInt(Edit2.text);
end;

OBS:
O que está escrito depois de “//” são comentários, ou seja se quiser
pode excluir o comentário que não irá interferir no funcionamento.
OBS²: Em negrito ficou os address em que você declarou no início ^^.
OBS³: Quando for compilar (F9) o Delphi irá abrir uma mensagem como se
fosse um erro. Mas não se procupe. Salve seu projeto em alguma pasta,
quando apertar F9 irá abrir a mensagem de erro; porém você poderá ir até
a pasta onde salvou e irá encontrar a Dll criada. Só mudar o nome e
usar em algum injetor.^^