[Tutorial+Source / Delphi] Mini Hack : Paciencia Spider.

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

type
TForm1 = class(TForm)
Label1: TLabel;
RadioButton1: TRadioButton;
Edit1: TEdit;
Edit2: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label2: TLabel;
Label3: TLabel;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
PHandle: DWORD;
Processo : String;

CONST // define os valores.
BaseJogadas: DWORD = $01012008; // Pointer das Jogadas.
JogadasOffset: DWORD = $350; // Offset das Jogadas.

BaseCUM: DWORD = $01012F60; // Pointer das Cumulativas.
CUMOffset: DWORD = $0; // Offset das Cumulativas.


implementation

{$R *.dfm}

function GetProcessIDByName(proc: string): Cardinal; // Função para Pegar o PID do Processo.
var
Snap: Cardinal;
pe: PROCESSENTRY32;
begin
Snap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
pe.dwSize:=sizeof(pe);
Process32First(Snap,pe);
repeat
if LowerCase(pe.szExeFile) = LowerCase(proc) then
begin
Result:=pe.th32ProcessID;
exit;
end;
until not Process32Next(Snap,pe);
Result:=0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
PId: DWORD;

begin
PId:=GetProcessIDbyName('spider.exe'); //Pega o PID do Processo 'Spider.exe'
PHandle:=OpenProcess(PROCESS_ALL_ACCESS, False, PId); //Abre a Memoria do Processo e Garante Acesso Total.
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
Score, buff: DWORD;
Score2: DWORD;

begin

if Edit1.Text = '' then
begin
Exit;
end;


Score2 := StrToInt(Edit1.Text); // Novo Valor da Address = Texto do Edit1
ReadProcessMemory(PHandle, Pointer(BaseJogadas), @Score, 4, buff); // LÊ o Pointer da Address.
Score:= BaseJogadas+JogadasOffset; // Encontra Address;
WriteProcessMemory(PHandle, Pointer(Score), @Score2, 4, buff); // Escreve o Novo Value da Address.


end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
CUM, buff: DWORD;
CUM2: DWORD;

begin

if Edit2.Text = '' then
begin
Exit;
end;


CUM2 := StrToInt(Edit2.Text); // Novo Valor da Address = Texto do Edit2
ReadProcessMemory(PHandle, Pointer(BaseCUM), @CUM, 4, buff); // LÊ o Pointer da Address.
CUM:= BaseCUM+CUMOffset; // Encontra Address;
WriteProcessMemory(PHandle, Pointer(CUM), @CUM2, 4, buff); // Escreve o Novo Valor da Address.


end;

end.