[Source] Hack para Paciência Spider, com ReadProcessMemory e WriteProcessMemory

[Drakar~ 0]

Olá a todos da Webcheats, o 'Zero e eu Criamos esse Hack para Paciência Spider, com o Intuito de Demonstrar Exemplos de WriteProcessMemory e ReadProcessMemory, já que é difícil encontrar Turoriais pela Net.

 

Download:

[DOWN]

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

• Entre
• ou
• Cadastre-se

[/DOWN]

 

Scan:

[sENHA]

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

• Entre
• ou
• Cadastre-se

[/sENHA]

Foram encontrados 2 Vírus, mas são para o Funcionamento do Programa, se não confiam apenas não baixem.

 

Source:

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.

 

Façam bom Proveito, Drakar~ and 'Zero

[BITCH1 3]

~Thanks!

 

Vou estudar estes codes e ver oque posso fazer ... x)

[darkfenyx3 7]

Está bem simples, mas é um começo, você deveria explicar o que cada coisa faz nele, ficaria mais fácil para quem está começando entender.

[Drakar~ 0]

Está bem simples, mas é um começo, você deveria explicar o que cada coisa faz nele, ficaria mais fácil para quem está começando entender.[/color][/b]

 

Pronto, dei uma Explicada "por cima".

[Nickerziinho 13]

Olá,

Muito bom seu tutorial, agradecido...

Até mais.

[Avengedx1 0]

Ótimo tutorial e ótima idéia de mostrar a função de cada código, isso irá ajudar à muitos q estão começando. Meu caso ;)