unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, sSkinManager, sButton;

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure FormShow(Sender: TObject);
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
 EnderecoNull: Pointer;
 BytesNull: Array of Byte;
 xGame:Dword;


const
User     =   $30EEED8;
DISCONECT1 =   $0040E707;// <    disconect  //
DISCONECT2  =  $00410C20 ; //<   sair do jogo//
DISCONECT3 =  $0040DC8B;//<   usar mapa//
DCcoreano= $0052B3FB ;
reconct=$0052B773;
DCP=$00526784;


implementation

{$R *.dfm}

procedure RemDC;
begin
pbyte(DCP)^:=195;
pbyte(DCP+$5F)^:=195;
pbyte(DCP+$9D)^:=195;
pbyte(DCP+$DC)^:=195;
pbyte(DCP+$118)^:=195;
pbyte(DCP+$159)^:=195;
pbyte(DCP+$3EE)^:=195;
PDWORD(DISCONECT1)^:= 61417;//
PDWORD(DISCONECT1+$5)^:= 2753378704;//      disconect
PDWORD(DISCONECT2)^:= 470249;//
PDWORD(DISCONECT2+$5)^:= 540379536;   // saindo do jogo
PDWORD(DISCONECT3)^:= 62185;//
PDWORD(DISCONECT3+$5)^:= 2754951568;     //ativar mapa
PDWORD(DCcoreano)^:= 195 ;
PDWORD(reconct)^:=195;
end;




procedure TForm1.FormShow(Sender: TObject);
begin
if PBYTE($005E2480)^=$53 then begin
 EnderecoNull:=nil;
 BytesNull:=nil;
 Move(BytesNull, EnderecoNull^, Length(BytesNull));
 VirtualProtect(EnderecoNull, SizeOf(BytesNull), xGame, @xGame);
END;
RemDC;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
PDWORD(PDWORD(User)^+$13c)^:=(PDWORD(PDWORD(User)^+$140)^)+999999;
Button1.Enabled:=false;
end;

end.

Foi passado na WC e to passando aqui pra galera poder estudar e compartilhar.
Não sei se ta certo, tambem nao sei como utilizar, se conseguir compartilha comigo   

Créditos: CRYPT3X

Abrasssssssss

estou trabalhando nisso ^^) mais vlw por ajudra forum