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 .. ^^