Cheats Team
Sejam Bem Vindos ao Cheats Team ! Obg : Willian9931 e equipe !
Quem está conectado
1 usuário online :: Nenhum usuário registrado, Nenhum Invisível e 1 Visitante

Nenhum

O recorde de usuários online foi de 13 em Sex Set 13, 2013 6:02 am
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Parceiros
HandSurf Hotel
server habbo
Últimos assuntos
» DDtank - PVP HACK + MISSION
Sab Fev 08, 2014 6:42 am por akiratys

» Listão VPS FREE
Sab 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 !
Sab 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

Os membros mais ativos da semana


Criando um trainer funcional para grand chase

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Criando um trainer funcional para grand chase

Mensagem por lukax em Qui Jan 19, 2012 8:33 pm

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:

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 Smile

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 Smile

Créditos: # Shadow~'


avatar
lukax
Adiministrador
Adiministrador

Mensagens Mensagens : 52

http://cheatsteam.forumeiros.com

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

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