|
|
Подпольщик AA
OFFLINE
Регистрация: 02.03.2014
Сообщений: 260
|
| |
|
[exploit] SH+Glaider скрипт для WP PPC
Важно помнить:
- Если Тема находиться под скрытым текстом, и Вы не понимаете, что происходит, прочитайте >> Правила
- Не оставляйте сообщения, не относящиеся к тематики первоначального поста!
- Если у Вас что-то не работает, описывайте более детально вашу проблему, дабы Вам могли помочь
- Если тема более не актуальна, укажите в какой момент тема перестала быть интересной, рабочей и почему
- Если тема находится не в АРХИВЕ, то значит она всё ещё действенна. Не надо писать "Работает ли?"
- На нашем портале нет "Личных хайдов", а так же запрещено просить слить имеющийся хайд лично Вам!
- Хотите отблагодарить автора темы? Для этого есть специальная кнопка, в правом нижнем углу сообщения.
( прим. DarkCat )
На форумах уже лежит бесконечный глэйдер, который не опускается и не разбивается об препятствия, также лежит спидхак.
Я объединил 2 хака, и прикрутил управление через чат, также прикрутил автоматическое распознавание ID персонажа (не проверял, как работает, отпишитесь - если баги).
>> Устаревшее обновление №1
Как работает:
1) пишем в чат gon - врубает бесконечный глэйдер
2) пишем в чат gof - вырубает бесконечный глэйдер
3) пишем в чат son - врубает 2 спидхака, сумарная прибавка к скорости - 290%
4) пишем в чат sof - вырубает спидхак на 150%, кто знает пакет на вырубание другого сх, напишите, пожалуйста.
В будущем планируется также по командам уходить под землю и вылазить на поверхность.
Сам скрипт:
>> Показать Скрипт
Код:
const Title = 'Glaider from chat especially for mmoru.com && rf-cheats.ru from Kp0c';
Var
ID: Integer;
G,L,O: Char;
iG,iL,iO,rly: Integer;
GLO:string;
IDPlayer,IDP,IDP2:string;
IDPlayerw,IDPlayerw2:word;
Procedure OnCreate;
begin
gSys.TrafType := 6; // TT6 - AA
gSys.isGS := 1;
gSys.tPDecode := 0; //
gSys.tKeyType := 0; //
gSys.Protocol := 1; // TODO: надо будет потом брать версию протокола (в описателе пригодится)
end;
procedure GlaiderOff;
begin
rly:=gSys.EnSendC(HStr('0b00dd01af00'+IDPlayer+'AD000000'));
WriteLog(rly);
end;
procedure GlaiderOn;
begin
rly:=gSys.EnSendC(HStr('2300dd01ae0000'+IDPlayer+'00000000'+IDPlayer+'AD0000005B1A'+
'0000000000000000000000000000'));
WriteLog(rly);
end;
procedure SpeedHackOn;
begin
rly:=gSys.EnSendC(HStr('2300dd01ae000000000000000000'+IDPlayer+'FF0000007f030000000000000000000000000000'));
WriteLog(rly);
rly:=gSys.EnSendC(HStr('2300DD01AE0000000000F0E81E00'+IDPlayer+'12000000730A00000DFF009F3F00000000000014'));
WriteLog(rly);
end;
procedure SpeedHackOff;
begin
rly:=gSys.EnSendC(HStr('0B00DD01AF00'+IDPlayer+'FF000000'));
WriteLog(rly);
rly:=gSys.EnSendC(HStr('0C0000015300'+IDPlayer+'FF00000000'));
WriteLog(rly);
end;
begin
if(gGlobal.Get('ID')<>Null) then begin
IDPlayer:=gGlobal.Get('ID');
if length( _gBuff ) = 26 then begin
ID := gInt( _gBuff, 5, 2 );
if (not _gFromServ) and ( ID = 97) then begin
ScanPck5( _gBuff, 19, 'ccc', G , L, O, null, null );
iG:=StrToInt(G);
iL:=StrToInt(L);
iO:=StrToInt(O);
GLO:=Chr(iG)+Chr(iL)+Chr(iO);
GLO:=Lowercase(GLO);
if(GLO='gon') then begin WriteLog('gon'); GlaiderOn; gBlockPacket; end;
if(GLO='gof') then begin WriteLog('gof'); GlaiderOff; gBlockPacket; end;
if(GLO='son') then begin WriteLog('son'); SpeedHackOn; gBlockPacket; end;
if(GLO='sof') then begin WriteLog('sof'); SpeedHackOff; gBlockPacket; end;
end;
end;
end else begin
if length( _gBuff ) = 39 then begin
ID := gInt( _gBuff, 5, 2 );
if (not _gFromServ) and ( ID = 136) then begin
ScanPck5( _gBuff, 6, 'hh', IDPlayerw, IDPlayerw2, null,null,null );
IDPlayer:=IntToHex(IDPlayerw,2);
IDP:=IntToHex(IDPlayerw,2);
IDP2:=IntToHex(IDPlayerw2,2);
if(length(IDP2)>2) then IDP2:=Copy(IDP2,length(IDP2)-1,2);
GLO:=Copy(IDP2,1,2);
Insert(GLO,IDPlayer,3);
gGlobal.Put('ID',IDPlayer,60000);
WriteLog('put: ');
writeLog(IDPlayer);
end;
end;
end;
end.
UPDATE v2.0
New:
Теперь по команде poz - летит под землю на 50000;
Теперь по команде naz - возвращается на землю;
Всем удачи ;)
>> Показать Скрипт
Код:
const Title = 'Glaider from chat especially for mmoru.com && rf-cheats.ru from Kp0c';
Var
ID: Integer;
G,L,O: Char;
iG,iL,iO,rly: Integer;
GLO:string;
IDPlayer,IDP,IDP2:string;
IDPlayerw,IDPlayerw2:word;
PZBool:Boolean;
X,Y,Z: String;
iX,iY,iZ: Integer;
Procedure OnCreate;
begin
gSys.TrafType := 6; // TT6 - AA
gSys.isGS := 1;
gSys.tPDecode := 0; //
gSys.tKeyType := 0; //
gSys.Protocol := 1;
end;
procedure GlaiderOff;
begin
rly:=gSys.EnSendC(HStr('0b00dd01af00'+IDPlayer+'AD000000'));
//WriteLog(rly);
end;
procedure GlaiderOn;
begin
rly:=gSys.EnSendC(HStr('2300dd01ae0000'+IDPlayer+'00000000'+IDPlayer+'AD0000005B1A'+
'0000000000000000000000000000'));
//WriteLog(rly);
end;
procedure SpeedHackOn;
begin
rly:=gSys.EnSendC(HStr('2300dd01ae000000000000000000'+IDPlayer+'FF0000007f030000000000000000000000000000'));
//WriteLog(rly);
rly:=gSys.EnSendC(HStr('2300DD01AE0000000000F0E81E00'+IDPlayer+'12000000730A00000DFF009F3F00000000000014'));
//WriteLog(rly);
end;
procedure SpeedHackOff;
begin
rly:=gSys.EnSendC(HStr('0B00DD01AF00'+IDPlayer+'FF000000'));
//WriteLog(rly);
rly:=gSys.EnSendC(HStr('0C0000015300'+IDPlayer+'FF00000000'));
//WriteLog(rly);
end;
procedure PodZemlu;
begin
gGlobal.Put('PZ',1,86400000);
end;
procedure NaZemlu;
begin
gGlobal.Put('PZ',0,86400000);
end;
begin
ID := gInt( _gBuff, 5, 2 );
if (not _gFromServ) and (ID=$012E) then begin gBlockPacket; WriteLog('Blocked'); end;
if (not _gFromServ) and ( ID = 136) then begin
ScanPck5( _gBuff, 16, 'z03z03z03', X, Y, Z, null, null );
iX := gInt(X,1,3);
iY := gInt(Y,1,3);
iZ := gInt(Z,1,3);
_gOutBuff := _gBuff;
if (gGlobal.Get('PZ')=1) then PInt(_gOutBuff,iZ-50000,22,3);
WriteLogln(format('IN X=%d Y=%d Z=%d',[iX,iY,iZ]));
ScanPck5( _gOutBuff, 16, 'z03z03z03', X, Y, Z, null, null );
iX := gInt(X,1,3);
iY := gInt(Y,1,3);
iZ := gInt(Z,1,3);
WriteLogln(format('OUT X=%d(%x) Y=%d(%x) Z=%d(%x)',[iX,iX,iY,iY,iZ,iZ]));
end;
if(gGlobal.Get('ID')<>Null) then begin
IDPlayer:=gGlobal.Get('ID');
if length( _gBuff ) = 26 then begin
if (not _gFromServ) and ( ID = 97) then begin
ScanPck5( _gBuff, 19, 'ccc', G , L, O, null, null );
iG:=StrToInt(G);
iL:=StrToInt(L);
iO:=StrToInt(O);
GLO:=Chr(iG)+Chr(iL)+Chr(iO);
GLO:=Lowercase(GLO);
if(GLO='gon') then begin WriteLog('gon'); GlaiderOn; gBlockPacket; end;
if(GLO='gof') then begin WriteLog('gof'); GlaiderOff; gBlockPacket; end;
if(GLO='son') then begin WriteLog('son'); SpeedHackOn; gBlockPacket; end;
if(GLO='sof') then begin WriteLog('sof'); SpeedHackOff; gBlockPacket; end;
if(GLO='poz') then begin WriteLog('poz'); PodZemlu; gBlockPacket; end;
if(GLO='naz') then begin WriteLog('naz'); NaZemlu; gBlockPacket; end;
end;
end;
end else begin
if length( _gBuff ) = 39 then begin
ID := gInt( _gBuff, 5, 2 );
if (not _gFromServ) and ( ID = 136) then begin
ScanPck5( _gBuff, 6, 'hh', IDPlayerw, IDPlayerw2, null,null,null );
IDPlayer:=IntToHex(IDPlayerw,2);
IDP:=IntToHex(IDPlayerw,2);
IDP2:=IntToHex(IDPlayerw2,2);
if(length(IDP2)>2) then IDP2:=Copy(IDP2,length(IDP2)-1,2);
GLO:=Copy(IDP2,1,2);
Insert(GLO,IDPlayer,3);
gGlobal.Put('ID',IDPlayer,60000);
WriteLog('put: ');
writeLog(IDPlayer);
end;
end;
end;
end.
P.S. У кого по каким-нибудь причинам не пашет, отправьте лог.
Если сообщение просто написалось в чат, то тут 1 из 2:
Цитата:
1)Попробуйте опять написать, возможно скрипт проверял ID перса
2)Возможно сам WP PPC не полностью подхватил подключение(у меня такое бывало)
|
Ребят, стоит делать апдейты в отдельные коды, или просто обновлять основной? (в отдельные коды - это так как сверху)
По идее, после последнего обновления должно работать как анти-афк, сегодня оставлю на ночь - проверю[/HIDE]
NEW [27.03.2014]
[HIDE="100"]
UPDATE v3.0 >> Открыть Скрипт
Код:
const Title = 'Glaider from chat especially for mmoru.com && rf-cheats.ru from Kp0c';
const constGlaiderOn='733800';
constGlaiderOff='743800';
constSpeedHackOn='753800';
constSpeedHackOff='763800';
constPodZemlu='793800';
constNaZemlu='7A3800';
constVNebo='7B3800';
constRefreshID='883800';
Var
ID: Integer;
G,L,O: Char;
iG,iL,iO,rly: Integer;
GLO:string;
IDPlayer,IDP,IDP2:string;
IDPlayerw,IDPlayerw2:word;
X,Y,Z: String;
iX,iY,iZ: Integer;
Procedure OnCreate;
begin
gSys.TrafType := 6; // TT6 - AA
gSys.isGS := 1;
gSys.tPDecode := 0; //
gSys****eyType := 0; //
gSys.Protocol := 1;
if(gGlobal.Get('Visota')=NULL) then gGlobal.Put('Visota',0,86400000)
end;
procedure GlaiderOff;
begin
rly:=gSys.EnSendC(HStr('0b00dd01af00'+IDPlayer+'AD000000'));
//WriteLog(rly);
end;
procedure GlaiderOn;
begin
rly:=gSys.EnSendC(HStr('2300dd01ae0000'+IDPlayer+'00000000'+IDPlayer+'AD0000005B1A'+
'0000000000000000000000000000'));
//WriteLog(rly);
end;
procedure SpeedHackOn;
var temp:string;
begin
temp:=Copy(IDPlayer,2,1);
rly:=gSys.EnSendC(HStr('2300dd01ae000000000000000000'+IDPlayer+'AA0000007f030000000000000000000000000000'));
//WriteLog(rly);
rly:=gSys.EnSendC(HStr('2300DD01AE0000000000F0E81E00'+IDPlayer+'BB000000730A00000DFF009F3F00000000000014'));
//WriteLog(rly);
Delete(IDPlayer,2,1);
rly:=gSys.EnSendC(HStr('2300dd01ae000000000000000000'+temp+IDPlayer+'AA0000007f030000000000000000000000000000'));
//WriteLog(rly);
rly:=gSys.EnSendC(HStr('2300DD01AE0000000000F0E81E00'+temp+IDPlayer+'BB000000730A00000DFF009F3F00000000000014'));
//WriteLog(rly);
WriteLog('ID for mount: '+temp+IDPlayer);
end;
procedure SpeedHackOff;
var temp:integer;
begin
rly:=gSys.EnSendC(HStr('0B00DD01AF00'+IDPlayer+'AA000000'));
//WriteLog(rly);
rly:=gSys.EnSendC(HStr('0B00DD01AF00'+IDPlayer+'BB000000'));
//WriteLog(rly);
end;
procedure PodZemlu;
begin
gGlobal.Put('Visota',-50000,86400000);
end;
procedure NaZemlu;
begin
gGlobal.Put('Visota',0,86400000);
end;
procedure NaNebo;
begin
gGlobal.Put('Visota',100000,86400000);
end;
begin
ID := gInt( _gBuff, 5, 2 );
if (not _gFromServ) and (ID=$012E) then begin gBlockPacket; WriteLog('Blocked'); end;
if (not _gFromServ) and ( ID = 136) then begin
ScanPck5( _gBuff, 16, 'z03z03z03', X, Y, Z, null, null );
iX := gInt(X,1,3);
iY := gInt(Y,1,3);
iZ := gInt(Z,1,3);
_gOutBuff := _gBuff;
PInt(_gOutBuff,iZ+gGlobal.Get('Visota'),22,3);
//WriteLogln(format('IN X=%d Y=%d Z=%d',[iX,iY,iZ]));
ScanPck5( _gOutBuff, 16, 'z03z03z03', X, Y, Z, null, null );
iX := gInt(X,1,3);
iY := gInt(Y,1,3);
iZ := gInt(Z,1,3);
//WriteLogln(format('OUT X=%d(%x) Y=%d(%x) Z=%d(%x)',[iX,iX,iY,iY,iZ,iZ]));
end;
if(gGlobal.Get('ID')<>Null) then begin
if length( _gBuff ) = 26 then begin
if (not _gFromServ) and ( ID = 97) then begin
ScanPck5( _gBuff, 19, 'ccc', G , L, O, null, null );
iG:=StrToInt(G);
iL:=StrToInt(L);
iO:=StrToInt(O);
GLO:=Chr(iG)+Chr(iL)+Chr(iO);
GLO:=Lowercase(GLO);
if(GLO='gon') then begin
WriteLog('gon');
IDPlayer:=gGlobal.Get('ID');
GlaiderOn;
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
GlaiderOn;
gBlockPacket;
end;
if(GLO='gof') then begin
WriteLog('gof');
IDPlayer:=gGlobal.Get('ID');
GlaiderOff;
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
GlaiderOff;
gBlockPacket;
end;
if(GLO='son') then begin
WriteLog('son');
IDPlayer:=gGlobal.Get('ID');
SpeedHackOn;
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
SpeedHackOn;
gBlockPacket;
end;
if(GLO='sof') then begin
WriteLog('sof');
IDPlayer:=gGlobal.Get('ID');
SpeedHackOff;
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
SpeedHackOff;
gBlockPacket;
end;
if(GLO='poz') then begin WriteLog('poz'); PodZemlu; gBlockPacket; end;
if(GLO='nan') then begin WriteLog('nan'); NaNebo; gBlockPacket; end;
if(GLO='naz') then begin WriteLog('naz'); NaZemlu; gBlockPacket; end;
if(GLO='rid') then begin WriteLog('rid'); gGlobal.Put('ID',gGlobal.Get('ID'),0); gGlobal.TimePurge; gBlockPacket; end;
end;
end;
if length(_gBuff)=19 then begin
if (not _gFromServ) and (ID=80) then begin
ScanPck5( _gBuff, 6, 'hh', IDPlayerw, IDPlayerw2, null,null,null );
IDPlayer:=IntToHex(IDPlayerw,2);
IDP:=IntToHex(IDPlayerw,2);
IDP2:=IntToHex(IDPlayerw2,2);
if(length(IDP2)>2) then IDP2:=Copy(IDP2,length(IDP2)-1,2);
GLO:=Copy(IDP2,1,2);
Insert(GLO,IDPlayer,3);
if(IDPlayer=constGlaiderOn)then begin
WriteLog('gon');
IDPlayer:=gGlobal.Get('ID');
GlaiderOn;
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
GlaiderOn;
gBlockPacket;
end;
if(IDPlayer=constGlaiderOff) then begin
WriteLog('gof');
IDPlayer:=gGlobal.Get('ID');
GlaiderOff;
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
GlaiderOff;
gBlockPacket;
end;
if(IDPlayer=constSpeedHackOn) then begin
WriteLog('son');
IDPlayer:=gGlobal.Get('ID');
SpeedHackOn;
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
SpeedHackOn;
gBlockPacket;
end;
if(IDPlayer=constSpeedHackOff) then begin
WriteLog('sof');
IDPlayer:=gGlobal.Get('ID');
SpeedHackOff;
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
SpeedHackOff;
gBlockPacket;
end;
if(IDPlayer=constPodZemlu) then begin WriteLog('poz'); PodZemlu; gBlockPacket; end;
if(IDPlayer=constVNebo) then begin WriteLog('nan'); NaNebo; gBlockPacket; end;
if(IDPlayer=constNaZemlu) then begin WriteLog('naz'); NaZemlu; gBlockPacket; end;
if(IDPlayer=constRefreshID) then begin WriteLog('rid'); gGlobal.Put('ID',gGlobal.Get('ID'),0); gGlobal.TimePurge; gBlockPacket; end;
end;
end;
end else begin
if length( _gBuff ) = 39 then begin
ID := gInt( _gBuff, 5, 2 );
if (not _gFromServ) and ( ID = 136) then begin
ScanPck5( _gBuff, 6, 'hh', IDPlayerw, IDPlayerw2, null,null,null );
IDPlayer:=IntToHex(IDPlayerw,2);
IDP:=IntToHex(IDPlayerw,2);
IDP2:=IntToHex(IDPlayerw2,2);
if(length(IDP2)>2) then IDP2:=Copy(IDP2,length(IDP2)-1,2);
GLO:=Copy(IDP2,1,2);
Insert(GLO,IDPlayer,3);
gGlobal.Put('ID',IDPlayer,60000);
WriteLog('put: ');
writeLog(IDPlayer);
end;
end;
end;
end.
Что изменилось: - Исправил добавление и убирание скилов сх.
- Исправил частый баг, при котором скрипт отказывался работать (по некоторым причинам он иногда не пашет до сих пор)
- Теперь можно отправляться и в небо.
- Добавил управление с помощью эмоций (то есть клацаете скилл - активируется сх)
- Добавил возможность рефрешить ID, дальше напишу зачем.
- Добавил возможность добавлять сх питомцу, дальше обьясню как (тут и пригодится рефреш).
Мини-гайды по скрипту:
Как менять хот кеи скилов:
По дефолту стоят:- constGlaiderOn-привет (врубает глайдер)
- constGlaiderOff-радость (вырубает глайдер)
- constSpeedHackOn-грусть (врубает сх)
- constSpeedHackOff-удивление (вырубает сх)
- constPodZemlu-недоумение (ТПшит под землю)
- constNaZemlu-злость (возвращает на землю)
- constVNebo-извинение (ТПшит в небо)
- constRefreshID-тайна (рефрешит ИД)
Как сменить: В начале кода стоят константы (выше написаны, как называются и что делают), около них ID скила, меняем их
Чтоб найти новое значение скила, юзаем эмоцию, идём в AutoLogger->выбираем Archeage ищем пакет StartSkill и копируем SkillID+'00'
Как добавить СХ волку:
- садимся на маунта
- пишем "rid" или юзаем эмоцию под константой "constRefreshID"
- ждём 20 сек.
- пишем "son" или юзаем эмоцию под константой "constSpeedHackOn".
Если не сработало, то отпишите мне в лс кусок лога скрипта, и настоящий ID(вытяните с пакета CSMoveUnit).
Если " son" просто отправилось в чат, напишите ещё раз
Стандартное вправление через чат:
- пишем в чат gon - врубает бесконечный глэйдер
- пишем в чат gof - вырубает бесконечный глэйдер
- пишем в чат son - врубает 2 спидхака, сумарная прибавка к скорости - 290%
- пишем в чат sof - вырубает спидхак.
- Пишем в чат poz - ТП под землю
- Пишем в чат naz - возврат на землю
- Пишем в чат nan - ТП на небо
- Пишем в чат rid - рефрешит ID
Текущие проблемы: - При летании на глайдере, эмоции не пашут, так что пока что можно вырубать только через чат.
Последний раз редактировалось Big Bad Sensey; 14.11.2014 в 16:50.
|