Deprecated: The behavior of unparenthesized expressions containing both '.' and '+'/'-' will change in PHP 8: '+'/'-' will take a higher precedence in /home/iano/public_html/tpforums-vb5/forum/includes/class_core.php on line 5842

PHP Warning: Use of undefined constant MYSQL_NUM - assumed 'MYSQL_NUM' (this will throw an Error in a future version of PHP) in ..../includes/init.php on line 165

PHP Warning: Use of undefined constant MYSQL_ASSOC - assumed 'MYSQL_ASSOC' (this will throw an Error in a future version of PHP) in ..../includes/init.php on line 165

PHP Warning: Use of undefined constant MYSQL_BOTH - assumed 'MYSQL_BOTH' (this will throw an Error in a future version of PHP) in ..../includes/init.php on line 165

PHP Warning: "continue" targeting switch is equivalent to "break". Did you mean to use "continue 2"? in ..../includes/functions_navigation.php on line 588

PHP Warning: "continue" targeting switch is equivalent to "break". Did you mean to use "continue 2"? in ..../includes/functions_navigation.php on line 612

PHP Warning: Use of undefined constant archive_postsperpage - assumed 'archive_postsperpage' (this will throw an Error in a future version of PHP) in ..../archive/index.php on line 456
UltimateTibiaPatcher [Archive] - Forums

PDA

View Full Version : UltimateTibiaPatcher



Blues
05-05-2013, 09:06 AM
http://gmclan.org/uploader/3899/bmcmc.png
...and mc for all...

This small app remove mutex from Tibia.exe. Work for all version.
Download: http://tibiabluebot.pl

Source:




unit main;

interface

uses
Windows, ShellApi, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, OutlookBtn, MPlayer;

type
TForm1 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
OutlookBtn1: TOutlookBtn;
Label3: TLabel;
Label4: TLabel;
OpenDialog1: TOpenDialog;
OutlookBtn2: TOutlookBtn;
Memo1: TMemo;
Label5: TLabel;
Timer1: TTimer;
MediaPlayer1: TMediaPlayer;
procedure Label2Click(Sender: TObject);
procedure Label4Click(Sender: TObject);
procedure OutlookBtn1Click(Sender: TObject);
procedure OutlookBtn2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
function ReadBiggerFile: AnsiString;
var
i,j:integer;
biggerfile: TFileStream;
newfile: TFileStream;
plik:ansistring;
begin
if form1.Label3.caption='Path' then exit;
biggerfile := TFileStream.Create(form1.label3.caption, fmOpenReadWrite or fmShareDenyNone);
newfile := TFileStream.Create(form1.label3.caption+'_mc.exe', fmCreate); //or fmShareDenyWrite);
try
SetLength(plik, biggerfile.Size);

biggerfile.Read(plik[1], biggerfile.Size);

i:=pos('tibiaplayermutex',LowerCase(plik));
if i>0 then
form1.Memo1.Lines.Add('Mutex found at: $'+inttohex(i,7));
if i=0 then ShowMessage('It''s MC or is not Tibia');
if i=0 then halt;
for j:=0 to 16 do
plik[i+j]:=#0;

i:=pos('enter game',LowerCase(plik));
if i>0 then begin
form1.Memo1.Lines.Add('Enter Game Button found at: $'+inttohex(i,7));
plik[i]:='L';
plik[i+1]:='o';
plik[i+2]:='r';
plik[i+3]:='d';
plik[i+4]:='C';
plik[i+5]:='o';
plik[i+6]:='m';
plik[i+7]:='p';
plik[i+8]:='i';
plik[i+9]:='M';
plik[i+10]:='C';
plik[i+11]:=#0;
plik[i+12]:=#0;
end;
i:=pos('enter preview',LowerCase(plik));
if i>0 then begin
form1.Memo1.Lines.Add('Enter Preview Button found at: $'+inttohex(i,7));
plik[i]:='L';
plik[i+1]:='o';
plik[i+2]:='r';
plik[i+3]:='d';
plik[i+4]:='C';
plik[i+5]:='o';
plik[i+6]:='m';
plik[i+7]:='p';
plik[i+8]:='i';
plik[i+9]:='M';
plik[i+10]:='C';
plik[i+11]:=#0;
plik[i+12]:=#0;

end;
newfile.Write(plik[1], biggerfile.size);

form1.Memo1.Lines.Add('Patched!');
newfile.Free;
finally biggerfile.Free;
end;
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
halt;
end;

procedure TForm1.Label4Click(Sender: TObject);
begin
ShellExecute(Handle,'open',pchar('http://tibiabluebot.pl'),nil,nil,SW_NORMAL);
end;

procedure TForm1.OutlookBtn1Click(Sender: TObject);
begin
if opendialog1.Execute then
Label3.Caption:=opendialog1.FileName;
end;

procedure TForm1.OutlookBtn2Click(Sender: TObject);
var i:integer;
begin
readbiggerfile;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label5.Font.color:=random($ffffff);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
mediaplayer1.FileName:='funkyfanfare.mp3';
mediaplayer1.Open;
mediaplayer1.Play;

end;

end.

Stiju
05-05-2013, 10:32 AM
I wouldn't download anything this guy puts up. He have been trying to hack people before and probably still do.

He is a leech, that download open source projects, put his name on them and claim full credits.

His bot includes:
BlueMC.exe which actually is XenoMC, https://code.google.com/p/xenomc/
safe.dll more known as tibiasock, https://code.google.com/p/tibiasock/


So just a warning to everyone, don't trust this guy.

Blues
05-05-2013, 11:34 AM
What? I download open source?
I credit DarkstaR and with every update i put addresses for tibiasock.
I call lib safe only for marketing reason.
And this app is clean.

Who post new container struct, leech?!

panqnik
05-06-2013, 12:55 PM
Which obviously doesn't work..

DarkstaR
05-06-2013, 01:36 PM
What relevance does the "Enter Preview" button have?

Also, both TibiaSock and XenoMC and GPL v2 licensed, meaning all modified versions must be released with both a GPL licencing notice and source code provided, if I'm not mistaken.


http://www.gnu.org/licenses/old-licenses/gpl-2.0.html

komar_rk
05-07-2013, 03:02 PM
I think we should kill him and stolen his backpack.