Criar Trainer GrandChase

Há alguns pré-requisitos para criação do Trainer.
  • Conhecimento Básico no Delphi;
  • Address atualizados; (Para o funcionamento obviamente)
  • Saiba que:
  • 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.
  • Irá abrir uma janela, nela escolha Dll Wizard e clique em OK.
  • Nas uses adicionaremos “Windows”.


Como mostra a imagem.





  • 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.^^



Espero ter ajudado!!
Fique de olho em nosso blog para mais tutoriais

Assinar: Postagens (Atom)