Início
por - Interface Edit lvl:
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
