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

Ir em baixo

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

Mensagem por Feniix em Sab 4 Jun 2011 - 17:36

Eae Pessoal , hoje estou disponibilizando
uma source para o jogo Paciencia Spider
e com tutorial , espero que consiga
cria ^^

Entao vamos Lah.

Componentes:
1 RadioButton
3 Labels
2 BitBtn
2 Edits
1 Timer
1 TXPManifest

Preview

Ele no Delphi



Ele Pronto.



Tutorial

Crie a base dele
e logo apenas ter deixado
igual a 1 imagem
clika em Ok e adc
esse codigo , depois
de VAR

Spoiler:
Score, buff: DWORD;
Score2: DWORD;

Pule uma linha e deixe
o begin de lado
e adc esse codigo
Spoiler:
if Edit1.Text = '' then
begin
Exit;
end;


Score2 := StrToInt(Edit1.Text);
ReadProcessMemory(PHandle, Pointer(BaseJogadas), @Score, 4, buff);
Score:= BaseJogadas+JogadasOffset;
WriteProcessMemory(PHandle, Pointer(Score), @Score2, 4, buff);

no segundo Button
adc isso.

Spoiler:
CUM, buff: DWORD;
CUM2: DWORD;

e deixe begin de lado
e adc isso tbm
Spoiler:
if Edit2.Text = '' then
begin
Exit;
end;


CUM2 := StrToInt(Edit2.Text);
ReadProcessMemory(PHandle, Pointer(BaseCUM), @CUM, 4, buff);
CUM:= BaseCUM+CUMOffset;
WriteProcessMemory(PHandle, Pointer(CUM), @CUM2, 4, buff);

Clique em Timer
e embaixo de
VAR adc isso.
Spoiler:
PId: DWORD;

Pule o begin e adc
isso em seguida.
Spoiler:
PId:=GetProcessIDbyName('spider.exe');
PHandle:=OpenProcess(PROCESS_ALL_ACCESS, False, PId);



Ou assim tbm
que esta pronto
apenas adc.

Spoiler:

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.

Download.


Scan.


Creditos.

Topico : Fenix
Imagens : Fenix
Tutorial : Fenix
Download : Fenix
Scan : Fenix
Source : Fenix



Última edição por Fenix_xD em Sex 10 Jun 2011 - 15:06, editado 1 vez(es)

_________________

Thx ' Cz Emuu sz'




Meu Faan ?? Use !!



Gifts Das Japonegas *--*

Spoiler:








avatar
Feniix
Geek
Geek

Mensagens : 723
Posts : 5814
Agradecimentos : 15
Data de inscrição : 29/05/2011

Voltar ao Topo Ir em baixo

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

Mensagem por IsLifersBozo? em Sab 4 Jun 2011 - 17:39

muito bom cara
vou fixar temporariamente
até eu ter conteúdos os suficiente
para uma quick list
Obg por compartilhar..
deu trabalho!
avatar
IsLifersBozo?
Bronze Member
Bronze Member

Mensagens : 219
Posts : 7732
Agradecimentos : 6
Data de inscrição : 02/06/2011
Idade : 23

Voltar ao Topo Ir em baixo

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

Mensagem por Feniix em Sab 4 Jun 2011 - 17:41

Magina Mano tinha essa
source faz tempo criei
do nada com ajuda de
um amigo e resolvi posta
valew aew ^^

_________________

Thx ' Cz Emuu sz'




Meu Faan ?? Use !!



Gifts Das Japonegas *--*

Spoiler:








avatar
Feniix
Geek
Geek

Mensagens : 723
Posts : 5814
Agradecimentos : 15
Data de inscrição : 29/05/2011

Voltar ao Topo Ir em baixo

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

Mensagem por Convidad em Sab 4 Jun 2011 - 18:02

Ótimo topico merece fixo mesmo!
avatar
Convidad
Convidado


Voltar ao Topo Ir em baixo

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

Mensagem por Feniix em Sab 4 Jun 2011 - 18:04

Valew mano
apenas estou ajudando
meu forum ^^

_________________

Thx ' Cz Emuu sz'




Meu Faan ?? Use !!



Gifts Das Japonegas *--*

Spoiler:








avatar
Feniix
Geek
Geek

Mensagens : 723
Posts : 5814
Agradecimentos : 15
Data de inscrição : 29/05/2011

Voltar ao Topo Ir em baixo

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

Mensagem por Sdi123 em Sab 4 Jun 2011 - 21:24

muito bom mano lol fixed merecido
avatar
Sdi123
Bronze Member
Bronze Member

Mensagens : 133
Posts : 2898
Agradecimentos : 9
Data de inscrição : 04/06/2011
Localização : @xXSdi123Xx World

Voltar ao Topo Ir em baixo

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

Mensagem por Airy em Ter 14 Jun 2011 - 18:09

Muiito legal
Eu gostei do tópico, mereceu fixed
avatar
Airy
Bronze Member
Bronze Member

Mensagens : 689
Posts : 3548
Agradecimentos : 14
Data de inscrição : 10/06/2011
Idade : 20
Localização : Brazil?

Voltar ao Topo Ir em baixo

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

Mensagem por Perdigão em Qui 16 Jun 2011 - 16:39

Lol ótimo, queria que alguem postasse algo sobre c++...
Já que o fórum é ótimo para hacker de CA né ^^
avatar
Perdigão
Bronze Member
Bronze Member

Mensagens : 249
Posts : 3258
Agradecimentos : 9
Data de inscrição : 16/06/2011

Voltar ao Topo Ir em baixo

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

Mensagem por RootZ em Qui 16 Jun 2011 - 16:56

#Muito bom kara.Continue assim.

_________________
tHX eu*

[left]
avatar
RootZ
Bronze Member
Bronze Member

Mensagens : 383
Posts : 3488
Agradecimentos : 3
Data de inscrição : 04/06/2011
Idade : 28
Localização : @Mortalcehats

Voltar ao Topo Ir em baixo

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

Mensagem por ßєɴנι em Qui 16 Jun 2011 - 18:31

Muito bom ^^
avatar
ßєɴנι
Bronze Member
Bronze Member

Mensagens : 358
Posts : 3113
Agradecimentos : 4
Data de inscrição : 06/06/2011
Idade : 20
Localização : Forum mortal cheats

Voltar ao Topo Ir em baixo

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

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum