Aprenda a Criar seu Hacker 24/11/11

[[CB]TNT. 0]

Vou ensinar a Voce como Criar um Hacker de BPT

 

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, e timer, para ter um intervalo(ou somente para adicionar todos comandos) 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.

 

Agora,adicione a sua função, e coloque o código, como referral; usei estas

abaixo:

 

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

 

Simples ! ,Clica em Agradeçer ai Galera !

[elementais 0]

Essas Adress Estão atualizadas ? :risada:

Se estiver obrigado !

[lancerC 0]

Olá

 

Muito bom estes exemplos de PROCEDURES !! Era o que eu precisava para ter como base vou tentar faze em POO caso eu consiga posto aqui o resultado

 

Bom minha duvida é se possivel comentar essas linhas de código pois não entendi a real função desta "PROCEDURE"

 

 

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.

[Mestre BPT 0]

Podia me enviar um link de download do programa Delphi?

Por PM pq e contra as regras

kspoakspoa

Vlw...

[Darkwood 0]

cara,esse tutorial é do rodney,sem querer defender aquele lammer mais pelomenos mantenha os creditos né seu noob,e esse tutorial ta todo errado,os procedures tao errados,thead,fora que falta uma penca de coisa

¬¬

[.:fuu:. 17]

Falta coisa pra caralho...mas eh uma boa base (nao nego q jah li esse tuto mts vezes...)

E esse tuto eh do rodney sim...poderia por os creditos dele neh .-.

[eduke2606 0]

EEEE macarenaa, oh

poderia postar um hacker bom mesmo, criar o hacker da mto trabalho.

tambem o pessoal quer mais e hacker com chams varando e telekill, e que finfe na equipe armada, mas de qualquer modo, ta show seu topico, mas como o cara disse, poderia colocar os creditos do verdadero post(rodney) abraço:o