Criando Uma DLL Hacker para GunBound

O MELHOR.... COM alguns Address ja Adicionados

Vamo lá

1° ~> No Delphi vá em { File > New > Other > DLL Wizard }

2° ~> Va em { File > New > Form } -- DLL Criada.... --

--------------------------------------------------------------------

3° ~> No Form do Delphi Adicione { 5 CheckBox (standard) , 1 Timer(system), 2 Edits(standard) }
Customize a Aparencia á seu Gosto
--------------------------------------------------------------------

Vamos Aos Codigos ( é o Mais [Tens de ter uma conta e sessão iniciada para poderes visualizar este link] )

4° ~> Na DLL Apague o Begin e o end. que estão lá.

5° ~> Abaixo do {$R *.res} Adicione o Código.

Código:

var
AtacarProcesso:THandle;
hId:Cardinal;

procedure AbrirTrainer;
begin
Form1:=TForm1.Create(nil);
Form1.ShowModal;
end;

begin
AtacarProcesso:=OpenProcess(PROCESS_ALL_ACCESS,false,GetCurrentProcessID);
CreateRemoteThread(AtacarProcesso,nil,0,@AbrirTrainer,@AbrirTrainer,0,hID);
end.
Na Parte USES Adicione

Código:
Windows,
Esse Código fará o Trainer Aparecer Quando a DLL for Injetada

---------------------------------------------------------------------

6° ~> Agora no Trainer, Abaixo de VAR Adicione :

Código:

Memory: DWORD;
value: dword;
7° ~> Clicke Duas Vese no Timer que vc Adicionou e Adicione este codigo que é o que vai Freezar os Hacks.

Código:

begin
//Power User //
if Checkbox1.Checked=True then begin
Value:=0;
PINT64($935D11)^:=Value;
PINT64($935D19)^:=Value;
end;

//GOD Mode //
if Checkbox2.Checked=True then begin
Value:=0;
PINT64($935FE8)^:=Value;
PINT64($935FF1)^:=Value;
end;

//Mobile Hack - Solo//
if CheckBox3.Checked=True then begin
Value:=strtoint(Edit1.text);
PBYTE($934D1C)^:=Value;
end;

//Flood//
if CheckBox4.Checked=True then begin
Value:=0;
PBYTE($0096E92A)^:=Value;
end;

//Espiar Conversa//
if CheckBox5.Checked=True then begin
Value:=strtoint(Edit2.text);
PBYTE($92B6CC)^:=Value;
end;
Arrumando...

CheckBox1 = PowerUser
CheckBox2 = GOD Mode
CheckBox3 = Mobile Solo -- Value no Edit1
CheckBox4 = Flood Hack
CheckBox5 = Espiar Conversa -- Value no Edit2

---------------------------------------------------------------------

Pronto...

DLL e Trainer Criados........ Agora Arranje um Injetor que Injete em [Tens de ter uma conta e sessão iniciada para poderes visualizar este link] e curta seu Trainer...

----------------------------------------------------------------------

Explicando Algumas Coisas,....

Caso vc queira Adicionar mais um Hack faça o seguinte..

1° ~> Adicione mais uma CheckBox no form
2° ~> No Timer Adicione o Cídogo.

Código:
// Nome do Hack //
if Checkbox(numero do ChecBox).Checked=True then begin
Value:=0; // Value a ser frezzado
PINT64($000000)^:=Value; //Address dentro do Parenteses
PINT64($000000)^:=Value;
end;
Se o Hack estiver em Byes ou 2 Bytes ou 3 bytes ou ...
No Lugar de PINT64 coloque PBYTE

Se o Rack for em Array of Bytes, Coloque
PINT+0, 8, 16, 32, 64, 50 (dependo do Hack) Exemplo = Array of Byte[16]