[TuT] jak zrobić cheata w delphi

[kilo_kartofli]

na start zastrzegam sobie prawo do kopiowania tutka zanim wklejisz go na inne forum zapytaj mnie o zgode

 

 

procedure MemWriteInteger(Address: Integer; buf: Integer; Length: DWORD);
var ProcID, THandle: Integer;
e: DWORD;
begin
  GetWindowThreadProcessId(FindWindow(nil,'WarRock'   ), @ProcID);
  THandle := OpenProcess(PROCESS_ALL_ACCESS, False, ProcID);
  WriteProcessMemory(THandle, Ptr(player), @buf, Length, e);
  CloseHandle(THandle);

wklejamy procedurke

a potem funkcje

  function ReadMemInteger(Address: Cardinal): Cardinal;	   //Read adress:value
var
ProcId: Cardinal;
tProc: THandle;
NBR: Cardinal;
value:integer;
begin
GetWindowThreadProcessId(FindWindow(nil,'WarRock'   ), @ProcId);
tProc:= OpenProcess(PROCESS_ALL_ACCESS, False, ProcId);
ReadProcessMemory(tProc, Ptr(player), @value, 4, NBR);
CloseHandle(tProc);
Result:=value;
end;

 

pod

var
 Form1: TForm1;

dopisujemy

const

Player = $b0f7c0;

 

player nazwa stałej $b0f7c0 adres fastflag czy jakoś tak

 

teraz wrzucamy timera i klikamy 2 razy na niego dajemy pomiendzy begin a end;

MemWriteInteger(Player,1732343248,10);

i ustawiamy Enabled na false

wrzucamy buttona i klikamy na niego 2 razy i wpisujemy

timer1.Enabled := true;

 

 

 

kod powinien wyglądać tak

 

 

 

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls, Buttons;

type
 TForm1 = class(TForm)
Timer1: TTimer;
Button1: TButton;

procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
 private
{ Private declarations }
 public
{ Public declarations }
 end;

var
 Form1: TForm1;
const
 Player = $b0f7c0;

implementation

{$R *.dfm}

   procedure MemWriteInteger(Address: Integer; buf: Integer; Length: DWORD);
var ProcID, THandle: Integer;
e: DWORD;
begin
  GetWindowThreadProcessId(FindWindow(nil,'WarRock'   ), @ProcID);
  THandle := OpenProcess(PROCESS_ALL_ACCESS, False, ProcID);
  WriteProcessMemory(THandle, Ptr(player), @buf, Length, e);
  CloseHandle(THandle);
end;

 function ReadMemInteger(Address: Cardinal): Cardinal;	   //Read adress:value
var
ProcId: Cardinal;
tProc: THandle;
NBR: Cardinal;
value:integer;
begin
GetWindowThreadProcessId(FindWindow(nil,'WarRock'   ), @ProcId);
tProc:= OpenProcess(PROCESS_ALL_ACCESS, False, ProcId);
ReadProcessMemory(tProc, Ptr(player), @value, 4, NBR);
CloseHandle(tProc);
Result:=value;
end;






procedure TForm1.Timer1Timer(Sender: TObject);
begin
MemWriteInteger(Player,1732343248,10);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled := true
end;

end.

 

 

 

 

MemWriteInteger(Player,1732343248,10);

 

PLayer nazwa stałej której przypisaliśmy adres

1732343248 - wartość dla adresu

10 - ilość liczb w wartości

 

kod jest ok

 

wszelkie pytania na PW

[Kaka356]

stanowczo jestem przeciwko gotowcom. Już dał kilo na fast flag, a teraz unl. ammo? Może im kod źródłowy pod nos damy?

No, ale nic zostawiam. Nie będę od siebie dawał źródła komuś, kogo prawie nie znam.

[musiak]

kaka to może będziemy takie poradniki dawać w wr private ?

[kilo_kartofli]

stanowczo jestem przeciwko gotowcom. Już dał kilo na fast flag, a teraz unl. ammo? Może im kod źródłowy pod nos damy?

No, ale nic zostawiam. Nie będę od siebie dawał źródła komuś, kogo prawie nie znam.

też jestem przeciw ale dzięki nim nikt nie sampuje na forum jak zrobić cheata do WR

[musiak]

to jak mówiłem można takie coś w wr private zrobić

[Pucio]

E nie chce zakładać nowego tematu do tego pytania ale skoro zostało to poruszone to jak można sie dostać do grupy "Warrock private"?? Bo można było sie kiedyś dostać poprzez Vip Owla ale teraz... no wiecie ;]

 

Pozdro

 

P.S

kaka w twoim regulaminie jest błąd.Napisałeś "Warna na 24 godziny" wydaje mi sie że bana ://

[kilo_kartofli]

@up

teraz staramy się być przezorni żeby owl nie mógł dostać Warrock private

[kilo_kartofli]

Dodawajcie do WarRock Private każdego

to nie było by WarRock Private

[pijawsky2]

Mam pytanie co do tego. Wystarczy ściągnąć delphi wlepić kody kilo_kartoflaka i mamy haczka??

[kilo_kartofli]

ta i to musisz zmienić Player = $b0f7c0;

przyklejam do privactive