Undetectando o seu Trainer !

[~~Surfistinha~~ 13]

Possiveis detectação , Codigos, Procedures, Captions , Tamanho.

 

Criando o Trainer

 

Abra o Delphi 7, vá em "File > New > Other , ache a DLL Wizard. , apos isso abre uma Form. , vamos começar pelo codigos da DLL , declare no uses "Windows" , apague o begin e End.

cole o seguinte codigo :

 

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,@AbrirFormularioGzB,@AbrirFormularioGzB,0,h

ID);

end.

 

Apos isso Aperte Control + F9 , se não deu nenhum erro vamo para proxima etapa , agora a Form, Adicione um Timer , Adicione um CheckBox 1 na Aba Stardand , e Também Adicione um Edit1 , Apos isso vamo começar pelo codigo do trainer.

 

No Timer Apos o Begin Adicione :

 

If CheckBox1.Checked=True Then Begin

PBYTE($Address)^:=ValordoAddress;

 

Declare na variavel global :

Address4Bytes1: dword;

ZeroBytes: Array of Byte;

ProcessHack:String;

Process:THandle;

ProcessID:Cardinal;

memo1: Tmemo;

memory:dword;

 

Informações : Bytes = PBytes

4Bytes = Pword.

Array of Bytes = Pint64

Float = : PSINGLE

Text =

 

var

value1: byte;

Address1: dword;

j: integer;

character: char;

Texto: string;

begin

Address1 := $000;

Texto := '1';

for j:=1 to Length(Texto) do

begin

character:= Texto[j];

value1:=Ord(character);

Address1:=Address1+1;

PBYTE(Address1)^:=value1;

end;

PBYTE((Address1+1))^:=0;

end;

 

Pronto Trainer Criado , Agora Vamos Undetectar ele , No Começo Adicionamos o codigo :

Iniciante :

 

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,@AbrirFormularioGzB,@AbrirFormularioGzB,0,h

ID);

 

Codigo Detectado, muitos iniciantes eles mudão todos os codigos estão estou mostrando como eles undetecta por esse método que não e preciso.

var

cheatenginebr:THandle;

hId:Cardinal;

b:Boolean=False;

 

procedure cheatenginebr2;

begin

Form1:=TForm1.Create(nil);

Form1.ShowModal;

end;

 

begin

cheatenginebr:=OpenProcess(PROCESS_ALL_ACCESS,false,GetCurrentProcessID);

CreateRemoteThread(cheatenginebr,nil,0,@cheatenginebr2,@cheatenginebr2,0,hID);

 

Codigo Undetectado.!

 

No Trainer , No Timer coloque o Nome como Cheatenginebr3, no cgeckbox1 coloque o nome como cheatenginebr4 , no edit1 coloque o nome como cheatengine5 .

 

Undetectado, Apos isso salva o project como cheatenginebrform DLL e Form salve como cheatengineformtrainer.

 

Undetected

 

Médio e Avançado - Descobrindo oque foi detectado.

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,@AbrirFormularioGzB,@AbrirFormularioGzB,0,h

ID);

 

Apos Adicionar o codigo , compile e teste no jogo , Hack Detectado , Mude HackProcess troque para cheatenginebr1 , teste hack detectado , agora você já descobriu um codigo detectado que e o HackProcess , Apos isso Se tiver dando Hack dectado novamente troque o AbrirFormularioGzB para cheatenginebr2 , Undetectado? Vamos para proxima parte.

 

Adicione o codigo

 

PBYTE($Address)^:=Valor;

 

Agora possiveis detetação são os address , procedures , tamanho , caption da checkbox1, apos seu trainer estiver com address desatilizado coloque o seguinte :

PBYTE($00000000)^:=0;

 

Teste Hack Detectado? Mude nome do checkbox1 e do timer e Edit 1 e Timer1. Undetectado? Pronto seu trainer esta detectado então ai você já descobriu oque foi detectado.

 

Créditos Tutorial : 4jax

 

Obs:Soucer ja ja eu posto

[SaYaDiN² 1]

Bem legal, resumindo, só comentar a source ;D

 

E é 4jax e não Ajax ._.