Thread: Hack for Priston Tale Brazil

https://mega.co.nz/#!bRECXBxK!YH0s9G...O-RpS15M8bZRaoI wanted to make a request for a hacker to dll the game Priston Tale Brazil .. I presizava so a hack regen ... I have a source code, so that I can not go through Xtrap know the code to be used in it and that "Pbyte ($ adress) ^ = $ 90; Pbyte ($ adress) ^ = 144;" ...



Download da Source Download Source PS.rar from Sendspace.com - send big files the easy way

Scan https://www.virustotal.com/file/1075...is/1355415566/

.exe and .dll of game Priston Tale Brasil.rar (3.6 MB)
https://mega.co.nz/#!bRECXBxK!YH0s9G...O-RpS15M8bZRao

Project1

Code:

{$R *.res}
////////////////////////////////////
//-- Procedure pra Abrir o Form --//
////////////////////////////////////
procedure PikeSob;
begin
ShowMessage('www.mundohackpt.com'); // Precisa Declarar Dialogs na uses
Form1 := TForm1.Create(application);
Form1.ShowModal;
end;

Code:

{ Cria uma thread chamando minha procedure para não aumentar muitoo
 processamento de nossa app e executar o hack em
 processamento paralelo com o game }
var
PS: DWORD;
begin
CreateThread(nil, PS, @PikeSob, nil, PS, PS);
end.

Unit1

Code:

{$R *.dfm}
////////////////////////////////////////////
//-- Procedure ChatPrintf do D4rkWeaver --//
////////////////////////////////////////////
procedure ChatPrintf(ChatPrintMSG: PChar);
var
ChatPrint: Cardinal;
procedure ChatPrintASM(ChatPrintMSG: PChar);
assembler;
asm
lea edx, [ChatPrintMSG]
push edx
call [ChatPrint]
pop edx
end;
begin
ChatPrint:=$0000001;
ChatPrintASM(ChatPrintMSG);
end;

Code:

////////////////////////
// -- Timer Regens --//
///////////////////////
procedure TForm1.Timer1Timer(Sender: TObject);
begin
PSingle($00000000)^:=StrToFloat(Edit1.Text);  //Recebe o valor do Edit1
PSingle($00000004)^:=StrToFloat(Edit2.Text);  //Recebe o valor do Edit2
PSingle($00000008)^:=StrToFloat(Edit3.Text);  //Recebe o valor do Edit3
end;

Code:

//////////////////////////////////////////////////////////
//-- Button pra Ativar e Desativar o Timer dos Regens --//
//////////////////////////////////////////////////////////
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Timer1.Enabled = True) then  // Se Propriedade Enabled do Timer for True então
begin
Timer1.Enabled:= False;    // Altera Propriedade Enabled pra False
ChatPrintf('Regem HP MP RES: Desativado')
end
else      // Senão
begin
Timer1.Enabled:= True;     // Altera Propriedade Enabled pra True
ChatPrintf('Regem HP MP RES: Ativado')
end;
end;

Code:

//////////////////////////
//-- Button Mini Item --//
//////////////////////////
procedure TForm1.Button2Click(Sender: TObject);
begin
  PDWORD($00000000)^:=22;
  PDWORD($00000004)^:=22;
  ChatPrintf('Mini Item: Ativado');
end;

Code:

//////////////////////////
//-- Button Core Azul --//
//////////////////////////
procedure TForm1.Button3Click(Sender: TObject);
begin
  PDWORD($00000000)^:=8;
  ChatPrintf('Core Azul: Ativado');
end;

Code:

///////////////////////
//-- Button Tel BC --//
///////////////////////
procedure TForm1.Button4Click(Sender: TObject);
begin
  PDWORD($00000000)^:=1;
  ChatPrintf('Teleporte: BC');
end;

end.

code made ​​by the psob mhpt
I'm using google translate, sorry for the mistakes.
thank you someone help me .. ^^

try disabling Xtrap with that. exe