Download + tuto: Criando hacker BGC parte 1.

[rodneyégostozão 0]

Ola galera, vi muitos pedidos aki, relacionado a isso, Então vou fazer várias partes para se fazer um hacker para bpt especificamente, bem detalhado, Para acabar com essa pedição toda, + punição.

Pimeiro, o que tenho que ter?

 

Deplhi 7 instalado.

Saber o que esta tentando fazer.

Vamos la:

1-Abra seu deplhi 7( sistema operacional não importa)

2-Se for criar dll, va em file> New > Other > Dll Wizard

3-Se for do tipo trainer ja aberto, use new > Aplication

4-Apareçera, duas telas, Agora vamos mecher na que estiver escrito form1, não na unit1

5-Para colocar uma foto, ou coisa do tipo,Vá em additional, e seleciona a 7º, opção, Clique na form, e contorne-a, no object Inspector,(localizado na parte esquerda inferior da tela)Va em picture > Selecione a foto > Aperte ok

6-Na aba superior, Esta mais ábas, e opções, Check box, num hacker ou programa, serve para marcar uma opção, Edit, Serve para colocar nome do programa.exe, intervalos, Algum número ou valor, Button, apertar algo, como em um autoclick, poderia ser iniciar. Essas são as opções principais, para fazer um programa, o resto, é de modelamento,aparência, E escrever algo Como o A.

7-Depois de Adicionar essas opções, E renomealas no caption, Clique duas vezes nela, para adicionar sua função.

 

Para começar, a colocar as funções, adicione isto antes:var

HackProcess:THandle;

hId:Cardinal;

b:Boolean=False;

 

procedure Você escolhe;

begin

Form1:=TForm1.Create(nil);

Form1.ShowModal;

end;

 

begin

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

CreateRemoteThread(HackProcess,nil,0,@mesmo do procedure,@mesmo do procedure,0,hID);

end.

 

 

Exemplo: Código:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

//Speed Hacker

if CheckBox1.Checked=True then begin

Memory:=PDWORD($01084AB4)^+$2EB02;

PDWORD(Memory)^:=20000;

end;

 

Pointer > $01084AB4

offset > $2EB02

Value > 20000

 

Outro exemplo com adress:

Teletransporte

if mapa6.Checked=True then begin

Value:=strtoint(Edit6.text);

PDWORD($01153758)^:=Value;

 

Value:=strtoint(Edit6.text); > Ele aceita o valor, que você vai botar no edit.

Adress > $01153758

 

Galera, por inquanto é isso, na próxima parte, vai ter como pegar as adress no jogo, para adicionar os códigos.

Download Deplhi 7 : RapidShare AG, Cham, Switzerland

 

Agradeçam.

A nova era chegou você deve ir e aproveitar.

[Pemorgado 0]

Não entendi quase nada. Tem como você fazer um video explicando ? obrigado.

[~Cleyton 90]

Tópico Trancado

 

Motivo:

Área Errada

 

Como Evitar Que Se Repita:

Leia as Descrições de Cada Área e Analise em Qual das Mesmas o Conteúdo se Encaixa.