Delph ajudaa !

[Hellowner 1]

o valor que quero manupular tem 5 offsets

 

// E8 10 4E0 0 74

 

já tentei fazer o mesmo trainer no vb + sempre que eu apertava pra ativar ele travava o jogo.

agora to tentando em delph

o código esta assim:

 

procedure TForm1.hx311tTimer(Sender: TObject);

 

if hx311.Checked = true then begin;

PDWORD(PDWORD(xphack)^+$E8)^:=9999999;

end;

 

begin

 

porem precisava colocar os outros offsets e não sei como só sei aquele ali ^^

obs: ele da 1 erro e não compila não sei oque acontece plz me ajudem

(xphack=a variável que declarei anteriormente, Hx311t = timer hx311=cheackbox)

[lokolokopato 3]

Tenta fazer a contagem dos offsets

por exemplo para aumentar 1 address, nesse caso, é só somar +1 no offset

(mas vc tem que saber contar em alfanumerico):

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

• Entre
• ou
• Cadastre-se

 

Tenta ae...

[vodikatm 23]

Para cada offset você acrescenta um (PDWORD .

no caso o seu é 5 offsets você usaria assim

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

• Entre
• ou
• Cadastre-se

 

e no caso "xphack" seria sua const com um pointer declarado .

[Hellowner 1]

(lokolokopato funfo não ^^)

Vodikatm Vlww mesmo ^^

ainda não esta funcionando porem ja consegui criar a dll ^^

se estiver disposto a me ajudar em outro problema agora ficaria muito grato ... oque acontece é que fiz a dll quando injeto aparece o form ali fiquei animado e tals, soh que quando eu freezo o check box aparece isso:

 

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

• Entre
• ou
• Cadastre-se

 

 

me ajude plzz ^^^^ vo postar o codigo da dll tambem em delph pra vc ja dar uma olhada:

 

_{unit Unit1;}

 

_interface

 

_uses

_{Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,}

_{Dialogs, StdCtrls, ExtCtrls;}

_const

_{xphack = $048CE14;}

_type

_{TForm1 = class(TForm)}

_{Hx311: TCheckBox;}

_{Timer1: TTimer;}

_{hx311l: TLabel;}

_{procedure Timer1Timer(Sender: TObject);}

_private

_{{ Private declarations }}

_public

_{{ Public declarations }}

_end;

 

_var

_{Form1: TForm1;}

_{implementation}

 

_{{$R *.dfm}}

 

_{procedure TForm1.Timer1Timer(Sender: TObject);}

_begin

_{if Hx311.Checked = true then begin;}

_{PDWORD(PDWORD(PDWORD(PDWORD(PDWORD(PDWORD(xphack)^+$E8)^+$10)^+$4E0)^+$0)^+$74)^:=999999;}

_end;

_end;

 

_end.

 

 

 

E O PROJETO:

 

^uses

^SysUtils,

^windows,

^Classes,

^{Unit1 in 'Unit1.pas' {Form1};}

 

^{{$R *.res}}

 

^var

^{Rafael : DWORD;}

 

 

^{procedure Rafaell;}

^begin;

^{form1 := tForm1.Create(nil);}

^{Form1.ShowModal;}

^end;

^begin

^{CreateThread(nil,Rafael,@Rafaell,nil,Rafael,Rafael);}

^end.

[vodikatm 23]

(lokolokopato funfo não ^^)

Vodikatm Vlww mesmo ^^

ainda não esta funcionando porem ja consegui criar a dll ^^

se estiver disposto a me ajudar em outro problema agora ficaria muito grato ... oque acontece é que fiz a dll quando injeto aparece o form ali fiquei animado e tals, soh que quando eu freezo o check box aparece isso:

 

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

• Entre
• ou
• Cadastre-se

 

 

me ajude plzz ^^^^ vo postar o codigo da dll tambem em delph pra vc ja dar uma olhada:

 

_{unit Unit1;}

 

_interface

 

_uses

_{Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,}

_{Dialogs, StdCtrls, ExtCtrls;}

_const

_{xphack = $048CE14;}

_type

_{TForm1 = class(TForm)}

_{Hx311: TCheckBox;}

_{Timer1: TTimer;}

_{hx311l: TLabel;}

_{procedure Timer1Timer(Sender: TObject);}

_private

_{{ Private declarations }}

_public

_{{ Public declarations }}

_end;

 

_var

_{Form1: TForm1;}

_{implementation}

 

_{{$R *.dfm}}

 

_{procedure TForm1.Timer1Timer(Sender: TObject);}

_begin

_{if Hx311.Checked = true then begin;}

_{PDWORD(PDWORD(PDWORD(PDWORD(PDWORD(PDWORD(xphack)^+$E8)^+$10)^+$4E0)^+$0)^+$74)^:=999999;}

_end;

_end;

 

_end.

 

 

 

E O PROJETO:

 

^uses

^SysUtils,

^windows,

^Classes,

^{Unit1 in 'Unit1.pas' {Form1};}

 

^{{$R *.res}}

 

^var

^{Rafael : DWORD;}

 

 

^{procedure Rafaell;}

^begin;

^{form1 := tForm1.Create(nil);}

^{Form1.ShowModal;}

^end;

^begin

^{CreateThread(nil,Rafael,@Rafaell,nil,Rafael,Rafael);}

^end.

você deve ter colocado a ordem das offsets errada, ou elas não existem nesse .exe ou o próprio pointer base está errado

[Hellowner 1]

você deve ter colocado a ordem das offsets errada, ou elas não existem nesse .exe ou o próprio pointer base está errado

 

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

• Entre
• ou
• Cadastre-se

 

aqui esta o offsets com o pointer no exe funcionando ^^ talvez eu não saiba de alguma sequencia tipo ... tem que coloca de traz pra frente ? e aquele offset 0 ? sera que o erro é por causa dele ? se puder me ajudar cara to precisando msm sei que so nb + to tentando melhorar ^^

[vodikatm 23]

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

• Entre
• ou
• Cadastre-se

sempre começa de baixo para cima.

[Hellowner 1]

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

• Entre
• ou
• Cadastre-se

sempre começa de baixo para cima.

 

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

• Entre
• ou
• Cadastre-se

 

VLWWWW TE AMO XDDDD

 

SEU NOME VAI TAR NO AGRADECIMENTOS QUANDO EU TERMINAR xDD