[Tutorial]Criando um Trainer Básico + Source Trainer Grand Chase + Injector

[wesley224466 1]

Programa Necessá¡rio:

Delphi 7

 

Retirado as Propagandas

 

1 - Criando a DLL

 

1.1 - Abra o Delphi 7, vá em "File > New > Other..." como mostra a figura abaixo:

 

1.2 - e então irá aparecer uma janela igual a esta:

 

 

1.3 - vá como manda a foto em DLL Wizard e de Ok, irá aparecer uma janela igual a esta. Clique em New Form e pronto dll criada.

 

 

2 - Customizando a aparencia.

2.1 - Veja que apareceu um quadrado grande quando você clicou em "New Form", na aba "Stantard" do Delphi, add 2 CheckBox como mostra a foto abaixo:

 

 

 

2.2 - Agora na aba "System" add um Timer (O que tem um desenho de um relogio) como mostra a foto abaixo:

 

 

2.3 - Agora add um "Edit" que está na aba "Standard" (veja a img abaixo) e renomeie os "CheckBox" e o "Form" pelo Caption como mostra a imagem abaixo:

 

 

3 - Adicionando os Códigos & Compilando.

3.1 - Apague o códigos "begin" e "end." e insira o código abaixo da imagem no lugar deles (que fica abaixo do {{$R *.res})

 

 

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,hID);

end.

 

Agora declare o código:

 

 

na uses.

 

Então ficara assim, como mostra a imagem abaixo:

 

 

3.2 - Agora vá¡ no form do trainer e de 2 clicks no "Timer1", aparecera um código tipo:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

 

end;

Troque ele por este:

var

Form1: TForm1;

const

Heroico_Address = $0117029D;

Visao_Address = $0116ED6C;

Estagio_Address = $0117D858;

GP_Address = $011856BC;

Destravar_Address = (Estagio_Address)-$20;

implementation

{$R *.dfm}

procedure TForm1.m4n14Timer(Sender: TObject);

begin

try

 

if Checked1.Checked = true then begin;// Gp Hack

PDWORD(PDWORD($011876BC)^+$14)^:=2999999;

end;

 

if Checked2.= true then begin;// Visão

PSINGLE($01170D6C)^:=StrToFloat(Edit1.Text);

end;

 

if Checked3.Checked = true then begin;// Estagio

PDWORD($01170D6C)^:=StrToInt(Edit2.Text);

end;

 

if Checked4.Checked = true then begin;// Heróico

PSINGLE($0117229D)^:=1

end;

 

end;

except

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

PDWORD(Destravar_Address)^:=$FFFFFFFF;

end;

 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

ExitProcess(0);

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

ShellExecute(0,'open','http://xxxxxxxx','','',0);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

 

procedure TForm1.Label17Click(Sender: TObject);

begin

ShellExecute(0,'open','http://xxxxxxxx','','',0);

end;

 

procedure TForm1.Image1Click(Sender: TObject);

begin

ShellExecute(0,'open','http://xxxxxxxx','','',0);

end;

 

procedure TForm1.Label7Click(Sender: TObject);

begin

ShellExecute(0,'open','http://xxxxxxxx','','',0);

end;

 

end.

 

E na uses, add as seguintes variaveis:

 

Memory: DWORD;

value: dword;

 

devera ficar igual a imagem abaixo:

 

 

Agora salve seu projeto e aperte Crtl F9 para compilar, deverá aparecer a dll na pasta do projeto wink.gif dps eh só injetar e se divertir.

 

Download da Soucer-─

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Conteudo:

 

Estagio

heroico

liberar portais

Mapa X

Mapa Y

Gp 2999999

Colar/t

Missao Completa

Invetario Hack.

 

Injector 1.0:

 

 

Donwload injector-

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Os passos tomados para fazer a injeção foram os seguintes:

 

1) Obter o ProcessID (PID) do executável alvo e o caminho completo da DLL a ser injetada;

 

2) Adicionar ao DLL Injector privilégios de Debug;

 

3) Obter o endereço da função LoadLibraryA();

 

4) Abrir o processo com permissões de leitura/escrita;

 

5) Utilizar VirtualAllocEx() para alocar, no espaço de memória do alvo, a quantidade de bytes correspondente ao tamanho da string que contém o caminho da DLL;

 

6) Utilizar WriteProcessMemory() para armazenar, no endereço de memória retornado pela função VirtualAllocEx(), o valor da string utilizada no passo anterior;

 

7) Criar uma thread remota no processo com a função CreateRemoteThread, passando como endereço de função e argumento, o endereço da função LoadLibrarA() e o endereço de memória que armazena a localização da DLL, respectivamente;

 

Aguardar o término da thread e obter seu código de retorno, verificando, posteriormente, a existência de erros;

 

9) Fechar o handle do processo e liberar a memória alocada.

 

10)Agradeça o autor do topico

 

Download Delphi - Click aqui pra baixar

 

 

By:BeBeZaO

 

Meu Fãn? use isto!

 

Agradeça?Nao custa nada!

Up minha Lire?

Vlw!

____________________________________________________________________________________________

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

____________________________________________________________________________________________

Roubei o caze de alguem maus ai!.sahshahsaHShsHHahhsha

 

[CheanRonan 0]

cara isso é complicado mas eu ainda consigo

vlw pela ajuda ;)

 

cara para mim complicou meu delphi 7 fica dizendo q o arquivo tá corrompido

o q eu faço agora?:confused:

[DiabretexD 0]

se conseguir fazer e se funfar eu agradeço

[Leonardodag 2]

affew isso dai ta mal explicado, e tambem tem alguns valores q variam, tipo checked1, etc.

 

alem disso vc nao botou o .checked depois do checked2 (visao)

 

@edit: agora q eu vi, olhem a data do post : 09-12-09!

[Jin487 0]

É um processo bem longo, mais para quem quer tentar é bom, Obrigado por compartilhar.

 

Thanks

:)

[vivancos 0]

aff me agradeçe ai vai...:p:p:p:p:p:p:p:p:p

[' Extasy 0]

ctrl c ctrl v

esse opico ja existe

crie coisas originai, nao copie

Reported~*;)

[musanja 1]

Buaaaa Isso ta aqui ainda como da para escreve aqui deleta esse post

[musanja 1]

Vum... The Black.. hsauhsuahs voltei qui hj e ainda ta aqui kkk...^^

[~Saii-Peiin 0]

Vlw cara agradeço

[werick1234 0]

n entendi nada do tutorial

[- Uzumaki ' 1]

vlw cara , vai me ajudar muito

e vai ajudar muito os outros tambem

parabéns continue assim

[Paldon 2]

Tópico Ressuscitado

Fechado.