Quem está conectado?
Há 1 usuário online :: 0 registrados, 0 invisíveis e 1 visitante Nenhum
O recorde de usuários online foi de 166 em Seg Mar 08, 2021 4:07 pm
Procurar
Parceiros
Últimos assuntos
Os membros mais ativos da semana
Nenhum usuário |
Tópicos mais visitados
Criando um trainer funcional para grand chase
Página 1 de 1
Criando um trainer funcional para grand chase
Ha alguns pré-requsitos para criação do trainer
°Conhecimento Básico no Delphi
°Address atualizados (Para o funcionamento obviamente)
°Quando formos utilizar um address do tipo 4bytes usaremos o PDWORD
°Quando formos utlizar um address do tipo Float usaremos o PSingle
Como por exemplo o "Visão Cheat" usaremos 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 ChecBo's usado.
Então vamos lá!
No delphi
°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:
"Beginend"
°E substitua pelo seguinte código:
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 desclarados
Vamos usar os seguintes exemplos:
Para declarar faça o seguinte:
Vá até o Unit1
Abaixo das uses você fará o seguinte:
Código:
Ou seja,como você pode notar estamos declarando que cada Cheat é igual a um determinado Address no caso.
(missão perfeita é igual a $00000001 etc)
Obs:
quando for declarar os address procure evitar acentuação gráfica e
espaço nos seus respectivos nomes,do mesmo modo em que e fiz em
"MissaoCompleta" que está sem o "~" e sem espaço.
No form....
°Adicione um TcheckBox [Aba System] para cada cheat
(no nosso caso 3)
°Um Tedit [Aba System] para cada cheat em que precise de um determinado valor para ser freezado ( ex: Continente)
°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 normalmente)
"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:
Ok.
Agora no Timer.
°Altere o Intervalo do Timer para 1.
°Feito isso dê dois cliques em cima dele e adicione o seguinte CODE.
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
erro.Mas não se preocupe. 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 infetor
Créditos: # Shadow~'
°Conhecimento Básico no Delphi
°Address atualizados (Para o funcionamento obviamente)
°Quando formos utilizar um address do tipo 4bytes usaremos o PDWORD
°Quando formos utlizar um address do tipo Float usaremos o PSingle
Como por exemplo o "Visão Cheat" usaremos 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 ChecBo's usado.
Então vamos lá!
No delphi
°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:
"Beginend"
°E substitua pelo seguinte código:
- Código:
[color=#000000][font='Times New Roman'][color=#5F5F5F][font=arial]var
xxxxxxxxx : DWORD;
procedure NC;
begin;
form1 := tForm1.Create(nil);
Form1.ShowModal;
end;
begin
CreateThread(nil, *********,@PC,nil,*********, *********);
end.[/font][/color][/font][/color]
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 desclarados
Vamos usar os seguintes exemplos:
- Código:
HackAddressMissaoCompleta....00000001Continente..............00000002Stage.....................00000003
Para declarar faça o seguinte:
Vá até o Unit1
Abaixo das uses você fará o seguinte:
Código:
- Código:
ConstMissaoCompleta= $00000001;Continente= $00000002;Stage= $00000003;
Ou seja,como você pode notar estamos declarando que cada Cheat é igual a um determinado Address no caso.
(missão perfeita é igual a $00000001 etc)
Obs:
quando for declarar os address procure evitar acentuação gráfica e
espaço nos seus respectivos nomes,do mesmo modo em que e fiz em
"MissaoCompleta" que está sem o "~" e sem espaço.
No form....
°Adicione um TcheckBox [Aba System] para cada cheat
(no nosso caso 3)
°Um Tedit [Aba System] para cada cheat em que precise de um determinado valor para ser freezado ( ex: Continente)
°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 normalmente)
"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:
- Código:
•TCheckBox 1 ~> NEWCH34T51
•TCheckBox 2 ~> NEWCH34T51
•TCheckBox 3 ~> NEWCH34T51
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:
[color=#000000][font='Times New Roman'][color=#5F5F5F][font=arial]// Missao Completa, sem editif NEWCH34T51.Checked=truethenbegin;PDword(MissaoCompleta)^:=0;
// 0 = determinado valor a ser freezadoend;
//
Continente Address, com edit e offsetif
NEWCH34T52.Checked=truethenbegin;
PDWORD(PDWORD(Continente)^+$0)^:=StrToInt (Edit1.Te xt);end;
// Stage Address, com editif NEWCH34T53.Checked=truethenbegin;PDword(Stage)^:=StrToInt(Edit2.text );
end.[/font][/color][/font][/color]
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
erro.Mas não se preocupe. 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 infetor
Créditos: # Shadow~'
Tópicos semelhantes
» Hacker Grand Chase
» Grand Chase Season 3 Dark
» [Utilitário] Abrindo dois Grand Chase's
» Grand Chase Tutorial Gladiadora Básico
» [Utilitário] Abrindo dois Grand Chase's
» Grand Chase Season 3 Dark
» [Utilitário] Abrindo dois Grand Chase's
» Grand Chase Tutorial Gladiadora Básico
» [Utilitário] Abrindo dois Grand Chase's
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|
Sáb Fev 08, 2014 6:42 am por akiratys
» Listão VPS FREE
Sáb Nov 16, 2013 6:49 am por lucasnopc
» Melhores músicas de 2012
Ter Mar 12, 2013 2:11 am por junino320
» Endereço do Fórum!
Qui Jan 31, 2013 4:03 pm por hackergm
» C4D Nebulas Pack
Qui Jul 12, 2012 1:25 pm por Willian9931
» Clique Aqui e Veja as Vagas !
Sáb Jun 16, 2012 8:02 pm por -Perdigao
» Hacker Grand Chase
Qui maio 10, 2012 2:24 pm por gabriel123
» Básico e avançado programação C++
Ter Jan 24, 2012 6:14 pm por Willian9931
» Asp básico !
Ter Jan 24, 2012 5:18 pm por Willian9931