Re: Все вопросы по пакетхаку(l2phx) задавать только здесь.
Друзья, здраствуйте. Интересует вопрос( думаю будет полезен многим) можно ли запустить л2пхс без клиента и приконектить к серверу? когда запускаю клиент, то конектится к серверу, все работает но в связи с тем что немогу найти настройки на оог бота на свой сервак, а самому настроить не получается уже 5 дней. Хочу написать свой оог бот через л2пхс, но каждый рас запускать клиент нет возможности, так как 20 клиентов комп у меня не вытягивает. Отлавливал пакеты л2брута, еслиб после проверки на правельность введения лог и пароля он не дисконектился, то подошел бы, но за секунду он уже запускает нового пользователя((((
Буду весьма благодарен за помощь.
Re: Все вопросы по пакетхаку(l2phx) задавать только здесь.
Сдраствуйте...Проше вашей помощи...
Решил вчера занятся пробыванием пользываться L2phx
Скачал, почитал о ней, в итоге нашел сервер без защиты и приконектился к нему
Поиск юзал, море бреда не понятного...суть моей просьбы...
1)Нужны пакеты (грация эпилог) на всё что возможно только
2)Как допустим можно завалить сервер? скорее какими коммандами
3)Как можно зайти от имени АДМ. что бы все видели что я пишу в (Обьявах)
4)Путь к мультиселам переписаных в пакеты на грацыя финал...только на ИТ нашел...
5)Как находить уязвимости сервера? пробывать все известные пакеты?
Пы.Сы. Понимаю такие как я запарили с такими унылыми, и глупыми вопросами, но надеюсь на вас ) и минусани репу
Re: Все вопросы по пакетхаку(l2phx) задавать только здесь.
Уважаемые жуковцы!
Прошу вашей помощи
Пользуюсь l2phx не так давно. Добрые люди научили быстрой точке через данную прогу.
Хочу испробывать другие его стороны, а именно:
1) дюп (эпик и прочее, так же интересует tatto of absolute и его аналоги,Колы и прочие валюты серверов )
2) дюп точеных итемов
Перелапатив пол форума не нашел четкого обьяснения интересующего меня.
От Вас хочу хотя бы ссылочку на интересующее меня и FAQ как это сделать.
З.Ы. С меня печеньки (жду ответ лс)
Ах да... сервех именно ХФ (сервер лично мой, так что с отправкой пакет проблем не возникнет)
Последний раз редактировалось 1rockez; 05.05.2014 в 20:37.
Re: Все вопросы по пакетхаку(l2phx) задавать только здесь.
Добрый день, люди добрые! Не сочтите за грубость или лень, но я ещё мало что понимаю в данных темах. Недавно заинтересовался такими вещами. У меня к вам просьба: Напишите как примерно выглядит пакет на адену в Gracia Final и что(где) и как менять, чтобы изменялось колличество адены? Какая именно часть и как отвечает именно за количество? На какие значения нужно менять? Я нуб, пытаюсь разобраться уже 3 дня, но ничего найти не могу, а время уже поджимает. Помогите пожалуйста! Желательно в личку. Заранее спасибо!
Re: Все вопросы по пакетхаку(l2phx) задавать только здесь.
Доброго времени суток, Жуковцы.
Хотелось бы поинтересоваться у знающих людей по поводу поиска нужных пакетов.
Суть дела:
L2phx успешно коннектится к серверу, пакеты летят, все, как положено.
Но нет пакетов Action(выделяем себя) и UseItem(тыкаем на айтем в инвентаре). Все это, как вам известно, нужно для дюпа. Как с этим бороться? как найти эти пакеты?
Для справки: сервер [Ссылки могут видеть только зарегистрированные пользователи. ]
версия л2пнх - последняя.
Жду ответов, заранее спасибо.
Re: Все вопросы по пакетхаку(l2phx) задавать только здесь.
Всем привет, у меня проблема когда нажимаю социальное действие (Yes) должно начинать точить, но у меня точиться на +1 и останавливается
Версия ph v3.5.33.166
Подскажите как исправить.
Забыл добавить, вещи стачиваются на +7
вот скрипт :
Код:
// Auto_enchant_maxlvl - interlude + покупка !!!!!!!!!!
// хроники Interlude
// ======================================
const
myname='TAMB1K'; //<<== пишем свой НИК
max=80;//<<== колличество ячеек в рюкзаке
xxx=10;//<<== колличество skrol при котором будет закупка
chat = 3;// <<== какой ЧАТ выводить сообщения
// 3 - Party; 4 - Clan; 9 - Alli; 10 - anons ; 17 - Hero;
// ======================================
// в пати чат пишем уровень заточки
// можно менять в процесе работы скрипта
// заточить один раз чтоб запомнить чем и что точить
// можно точить для запоминания несколько предметов соответствующие
// применяемому skrol
// СТАРТ нажать соцдействие ДА
// СТОП нажать соцдействие НЕТ
// включить системные сообщения соцдействие - приветствие \ hello
// выключить системные сообщения соцдействие - победа \ victory
// дальше скрипт сам точит до указаного уровня заточки
// все предметы одинаковые с первыми заточеными
// точит первый предмет до Заданного уровень заточки потом второй и т.д
//------------------------
// есть возможность для закупки skrol для этого
// поговорить с нпс и купить skrol столько ===сколько надо докупать
// скрипт должен запомнить
// нпс должен быть выделен
// АВТОР ==>>>> TAMBIK
var
BaseItems:array[1..max,1..9] of integer;
BaseID:array[1..max] of integer;
Timer01: TTimer;
Timer02: TTimer;
Timer03: TTimer;
Action,BypassToServer,MultiSell:string;
autostart,autoskrol:Boolean;
autoMsg:Boolean;
flag,start:Boolean;
mytext:string;
ListSize,ItemEnch:word;
textID,itemID:integer;
enchantObjectID:integer;
enchantID,skrolObjectID:integer;
ItemOID,objectOID: integer;
sumskrol,sumitemID,sumadena: integer;
x,y,ii:integer;
t,l,d,a,i:integer;
maxlvl: integer;
GetiD:integer;
skrolID,skrolObj:integer;
//-----------------------------------------
procedure SendMsg2(msg:string);
begin
if autoMsg then begin
buf:=#$4A;
WriteD(0);
WriteD(chat);// <<= куда выводить сообщения
WriteS('');
WriteS(msg);
SendToClientEx(myname);
end;
end;
//===========================================
procedure Resultmaxlvl;
var
i:integer;
begin
i:=2;
mytext:=ReadS(i);
textID:=ReadD(i);
if (textID=3) then begin
maxlvl:=StrToInt(mytext);
SendMsg2( ' Установлен MAX Уровень Заточки : '+IntToStr(maxlvl)+'' );
pck:='';
exit;
end;
end;
//.....................................
procedure ItemList;
var
i, j, k: integer;
count:integer;
begin
deleteBase;
j:=4;
ListSize:=ReadH(j);
for i:=1 to ListSize do
if (i<=ListSize) then begin
BaseItems[i,1]:=ReadH(j);
BaseItems[i,2]:=ReadD(j);//ObjectID
BaseItems[i,3]:=ReadD(j);//ItemID
BaseItems[i,4]:=ReadD(j);// count: 1интерлюд
BaseItems[i,5]:=ReadH(j);//
BaseItems[i,6]:=ReadH(j);//
BaseItems[i,7]:=ReadH(j);//
BaseItems[i,8]:=ReadD(j);//
BaseItems[i,9]:=ReadH(j);//-EnchantLevel:
inc(j,10);
end else for k:=1 to 9 do BaseItems[i,k]:=0;
if (skrolID > 0) then begin
sumskrol:=0;
sumskrol:=Getsumitem(skrolID,3,4);// счет скоко свитков
SendMsg2 (' = Всего = Skroll : '+IntToStr(sumskrol)+' Ш Т ');
end;
if (sumskrol = xxx) and (autoskrol = true) then begin
SendMsg2 (' _ З А К У П К А S K R O L L _ ');
SendMsg2 ('____________________________________ ');
start:=false;
Timer02.enabled:=false;
a:=1;
Timer01.enabled:=true;
end;
if start and (sumskrol > 0) then GetItemID ;//находим в базе ItemID
if start and (sumskrol = 0) then begin
autoMsg:=true;
start:=false;
SendMsg2 ('........ НЕДОСТАТОЧНО SKROL........ ');
SendMsg2 (' ___ О С Т А Н О В Л Е Н О ___ ');
Timer02.enabled:=false;
end;
end;
//-----------------------------------------
procedure OnTimer01(Sender: TObject);
begin
case a of
1:begin
buf:=Action;
SendToServerEx(myname);
inc(a);
SendMsg2( '............... Action ...............' );
end;
2:begin
buf:=BypassToServer;
SendToServerEx(myname);
inc(a);
SendMsg2( '..........BypassToServer..........' );
end;
3:begin
buf:= MultiSell;
SendToServerEx(myname);
a:=0;
SendMsg2( '.............MultiSell...............' );
Timer01.enabled:=false;
start:=true;
GetItemID ;//находим в базе ItemID Timer02.enabled:=true;
end;
end;
end;
//=============================
procedure EnchantResult;
var
i,j:integer;
begin
end;
//=============================
procedure deleteBase;
var
i,j,k:integer;
begin
for i:=1 to max do
if (BaseItems[i,2] > 0) then begin
BaseItems[i,1]:=0;
BaseItems[i,2]:=0; //ObjectID
BaseItems[i,3]:=0; //ItemID
BaseItems[i,4]:=0;
BaseItems[i,5]:=0;
BaseItems[i,6]:=0;
BaseItems[i,7]:=0;
BaseItems[i,8]:=0;
BaseItems[i,9]:=0;
end;
end;
//===========================================
// СЧИТАЕМ ПРЕДМЕТЫ
// НАХОДИМ ObjectID и ID ПРЕДМЕТа
//===========================
//счет скоко свитков и находим ObjectID, ItemID предметa
function Getitem(Obj,up,down:integer): integer;
var
i: integer;
begin
Result:= 0; //В начале у нас 0
for i:=1 to max do
if (BaseItems[i,up]=Obj) then begin
Result:=BaseItems[i,down];
end;
end;
//счет скоко всего предметов
//===========================
function Getsumitem(Obj,up,down:integer): integer;
var
i: integer;
begin
Result:= 0; //В начале у нас 0
for i:=1 to max do
if (BaseItems[i,up]=Obj) then begin
Result:=Result+BaseItems[i,down];
end;
end;
//=================================
//добавляем в базу ID предмета
procedure addIDtoarray(ItemOID:integer);
begin
sumitemID:=0;
SendMsg2( '------------------------------------- ' );
SendMsg2 (' -- Добавим в Базу ID предмета -- ');
flag:=false;
for ii:=1 to max do
if (BaseID[ii]=ItemOID) then begin // текущий ID уже есть в массиве,
flag := true;
sumitemID:=Getsumitem(ItemOID,3,4);//счет скоко предметов
SendMsg2 (' предмет в базе есть с ID : '+IntToStr(ItemOID)+' шт : '+IntToStr(sumitemID)+' ');
SendMsg2( '------------------------------------- ' );
Break; // прерываем дальнейший перебор массива.
end;
if (flag = false) then begin
for ii:=1 to max do
if (BaseID[ii]=0) then begin // добавим ID в массив,
BaseID[ii]:=ItemOID;
sumitemID:=Getsumitem(ItemOID,3,4);//счет скоко предметов
SendMsg2 (' Добавлен в Базу Предмет с ID : '+IntToStr(ItemOID)+' : '+IntToStr(sumitemID)+' ШТ ');
SendMsg2( '------------------------------------- ' );
Break; // прерываем дальнейший перебор массива.
end;
end;
end;
//=============================
procedure ChooseInventory;
begin
if start then begin
objectOID:=0;
objectOID:= GetObjectID(itemID);//находим по ItemID предмет с ObjectID
if (objectOID = 0) then begin
SendMsg2 ('Больше Предметов c ID : '+IntToStr(itemID)+' для заточки НЕТ !!! ');
for ii:=1 to max do
if (BaseID[ii] = itemID) then begin
BaseID[ii]:=0;
GetItemID ;//находим в базе ItemID предмет для Заточки
Break;
end;
end;
end;
end;
//=================================
//находим ItemID предмета для Заточки в базе ItemID
procedure GetItemID ;
begin
if start then begin
SendMsg2( '*******************************************' );
SendMsg2 (' ..... ПОИСК ______ ПРЕДМЕТА..... ');
SendMsg2( '------------------------------------- ' );
itemID:=0;
for ii:=1 to max do
if (BaseID[ii] <> 0) then begin
itemID:=BaseID[ii];
SendMsg2 (' Нашли Предмет с ID = '+IntToStr(itemID)+' ');
SendMsg2( '------------------------------------- ' );
skrolObj:=0;
skrolObj:=Getitem(skrolID,3,2);//находим ObjectID skrol
if (itemID > 0) and (skrolObj > 0) then Timer02.enabled:=true;
Break;
end;
if (itemID = 0) then begin
autoMsg:=true;
start:=false;
SendMsg2 (' ___ НЕТ ПРЕДМЕТОВ ДЛЯ ЗАТОЧКИ ___ ');
SendMsg2 (' ___ О С Т А Н О В Л Е Н О ___ ');
end;
end;
end;
//=================================
//находим enchantID предмета по ItemID для заточки
function GetObjectID(itemID:integer) : integer;
var
i:integer;
begin
SendMsg2 (' Находим по ID : ' +IntToStr(itemID)+' ObjectID Предмета ');
SendMsg2( '------------------------------------- ' );
enchantID:=0;
ItemEnch:=0;
Result:=0;
if (itemID > 0) then begin
for i:=1 to max do
if (BaseItems[i,3] = itemID) and (BaseItems[i,9] < maxlvl) then begin
Result:=BaseItems[i,2];
ItemEnch:=BaseItems[i,9];
enchantID:=BaseItems[i,2];
SendMsg2(' ..... Найден ObjectID Предмета ..... ');
SendMsg2(' ID : '+IntToStr(itemID)+' и ObjectID : '+IntToStr(enchantID)+' заточен до : '+IntToStr(ItemEnch)+' ');
SendMsg2( '------------------------------------- ' );
if start and (enchantID > 0) then Timer03.enabled:=true;
Break;
end;
end;
end;
//===================================
procedure OnTimer02(Sender: TObject);
begin
SendMsg2( ' Активирован SKROL ObjectID : '+IntToStr(skrolObj)+' ' );
SendMsg2( '------------------------------------- ' );
buf:=#$14;
WriteD(skrolObj);
WriteD(0);
SendToServerEx(myname);
Timer02.enabled:=false;
end;
//--------------------------
procedure OnTimer03(Sender: TObject);
begin
buf:=#$58;
WriteD(enchantID);
SendToServerEx(myname);
Timer03.enabled:=false;
SendMsg2( ' ..... Точим Предмет ..... ' );
SendMsg2( ' ID : '+IntToStr(itemID)+' и ObjectID : '+IntToStr(enchantID)+' до : '+IntToStr(maxlvl)+' ' );
SendMsg2( '------------------------------------- ' );
enchantID:=0;
end;
//-----------------------------------------
procedure Init;
begin
a:=0;t:=0;l:=0;d:=0;
flag:=false; start:=false;autoMsg:=true;
autoskrol:=false; autostart:=false;
GetiD:=0; objectOID:=0; itemID:=0;
sumskrol:=0;sumadena:=0;
enchantID:=0; ItemEnch:=0;
skrolObjectID:=0;enchantObjectID:=0;
maxlvl:=0;skrolID:=0;
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=1500; //<<== время между разговором
Timer02:=TTimer.Create(nil);
Timer02.OnTimer:=@OnTimer02;
Timer02.enabled:=false;
Timer02.interval:=1000; //<<== время выбора скролл
Timer03:=TTimer.Create(nil);
Timer03.OnTimer:=@OnTimer03;
Timer03.enabled:=false;
Timer03.interval:=1500; //<<== время между заточкой
SendMsg2( ' привет от TAMBIKa !' );
SendMsg2( 'в пати чат пишем уровень заточки' );
SendMsg2( ' заточить предмет ! ! !' );
SendMsg2( ' СТАРТ соцдействие ДА ' );
SendMsg2( ' СТОП соцдействие НЕТ' );
SendMsg2( ' В К Л сообщения соцдействие - приветствие \ hello ' );
SendMsg2( ' ВЫКЛ сообщения соцдействие - победа \ victory ' );
SendMsg2( '------------------------------------- ' );
deleteBase;
for ii:=1 to max do
BaseID[ii]:=0;
OpenInventory;//открыть инвентарь
end;
procedure Free;
begin
Timer01.free;
Timer02.free;
Timer03.free;
end;
//=========================
procedure OpenInventory;//открыть инвентарь.0F=RequestItemList
begin
buf:=hstr('0F');
SendToServerEx(myname);
end;
//=========================
procedure RequestActionUse;
begin
case ReadD(2) of
02:begin autoMsg:=true;end;
03:begin autoMsg:=false;end;
06:begin
if (maxlvl=0) then SendMsg2( ' НЕ ЗАДАН УРОВЕНЬ ЗАТОЧКИ !' );
if (autostart=false) then SendMsg2( 'предмет незаточен или пакеты неприняты !' );
if (ItemOID=0) then SendMsg2( 'ненайден ID предмета! заточите еще раз !' );
if autostart and (maxlvl > 0) and (ItemOID > 0) then begin
SendMsg2( ' ! ! ! П О Е Х А Л И ! ! !' );
start:=true;
OpenInventory;//открыть инвентарь
end;
end;
05:begin
deleteBase;
start:=false;
enchantID:=0;
ItemEnch:=0;
Timer03.enabled:=false;
Timer02.enabled:=false;
Timer01.enabled:=false;
SendMsg2( ' ! ! ! С Т О П ! ! ! ' );
SendMsg2 ('___ О С Т А Н О В Л Е Н О ___ ');
end;
end;
end;
//=========
begin
if pck='' then exit;
if FromServer and (pck[1]=#$6F) then begin
skrolID:=0;
skrolID:=ReadD(2);
ChooseInventory;
end;
if FromServer and (pck[1]=#$81) then begin EnchantResult;end;
if FromServer and (pck[1]=#$1B) then begin ItemList;end;
if FromClient and (pck[1]=#$38) then begin Resultmaxlvl;end;
if FromClient and (pck[1]=#$1B) then begin RequestActionUse;pck:='';exit;end;
if FromClient and (pck[1]=#$04) then begin Action:=pck;end;
if FromClient and (pck[1]=#$21) then begin BypassToServer:=pck;end;
if FromClient and (pck[1]=#$A7) then begin autoskrol:=true; MultiSell:=pck;
SendMsg2( '-- АВТОЗАКУПКА SKROL ВКЛ ----' );
end;
begin
if (start=false) and FromClient then
case pck[1] of
#$14:begin
t:=0;
autostart:=false;
skrolObjectID:=0;
skrolObjectID:=ReadD(2);
if (skrolObjectID > 0 ) then begin
SendMsg2( ' Активирован SKROLL с ObjectID : '+IntToStr(skrolObjectID)+' ' );
t:=1;
end;
end;
#$58:begin
d:=0;
ItemOID:=0;
enchantObjectID:=0;
enchantObjectID:=ReadD(2);
if (enchantObjectID > 0 ) then ItemOID:=Getitem(enchantObjectID,2,3);
if (ItemOID > 0) then begin
d:=1;
SendMsg2( ' Заточен Предмет с ID : '+IntToStr(ItemOID)+' ' );
addIDtoarray(ItemOID);
if (t=1) and (d=1) then autostart:=true;
end;
end;
end;
end;
end.
Re: Все вопросы по пакетхаку(l2phx) задавать только здесь.
Всё настроил всё отображает
Но т.к раньше смотрел видюхи где люди кидали пакеты на старых версиях где выделена специальная кнопка + есть кнопка выставления отправки по времени.
В новой версии такого нет
если отправка только скриптами то это беда т.к я уже забыл Паскаль
[Ссылки могут видеть только зарегистрированные пользователи. ]
как отправлять пакеты по времени?
Последний раз редактировалось Hedin.PWNZ; 07.06.2014 в 20:33.
Re: Все вопросы по пакетхаку(l2phx) задавать только здесь.
Настраивал Виртуалку VMware workstation чтобы в ней запустить l2phx, а на основной машине настроить Proxifier.
Проблема!!! нифига не перехватывает проксифаер. сделал проверку через proxy checker, вот че он выдал:
[27:13] Testing Started.
Proxy Server
Address: 192.168.108.130:7788
Protocol: SOCKS 5
Authentication: NO
[27:13] Starting: Test 1: Connection to the Proxy Server
[27:13] IP Address: 192.168.108.130
[27:34] Could not connect to 192.168.108.130:7788
Attempt to connect timed out without establishing a connection.
Check your network connection and make sure that the proxy server address and port are correct.
Also the error may indicate that the proxy server is down.
[27:34] Test failed.
[27:34] Testing Finished.
в общем помогите настроить перехват через виртуалку, пожалуйста.
в самом проксифайере вот че пишет:
[06.18 21:03:08]
[06.18 21:03:08] Welcome to Proxifier v3.21
[06.18 21:03:08]
[06.18 21:03:08] Error: Windows network (Winsock) is not properly configured to work with Proxifier.
[06.18 21:03:08] Proxifier or some of its parts may work incorrectly.
[06.18 21:03:08] It is highly recommended that you run SysSettings tool to address this problem.
настраивал все по видосу от овербафера. [Ссылки могут видеть только зарегистрированные пользователи. ]
Последний раз редактировалось Tihon0FF; 18.06.2014 в 21:38.
Re: Все вопросы по пакетхаку(l2phx) задавать только здесь.
Хотел спросить…может уже такой вопрос задавали ,не судите строго. Зашёл на сервер – отловил пакет и когда его отправляю игра как будто зависает,персонаж ничего не делает когда что то нажимаю…и выйти не могу , только через диспетчер задач , в чём проблема ? пакеты вижу...приходят...играю.. но как отсылаю - зависает
Добавлено через 3 часа 37 минут
Я КАК ВИЖУ !!! ТУТ ВСЕМ ОТВЕЧАЮТ !?!?
Последний раз редактировалось Andreator; 21.06.2014 в 13:57.
Причина: Добавлено сообщение
Re: Все вопросы по пакетхаку(l2phx) задавать только здесь.
Всем привет!
Сервер - l2evoke.com.
При попытке отправить любой пакет на сервер - дисконектит. Да и сами пакеты какие-то стрёмные (разные пакеты при одинаковых действиях, куча Unknown пакетов).
[Ссылки могут видеть только зарегистрированные пользователи. ]
Подскажите, пожалуйста, как решить проблему, ну или посоветуйте лоу-рейт ИЛ серверов (желательно международных), где всё работает нормально.
Re: Все вопросы по пакетхаку(l2phx) задавать только здесь.
Пацаны HELP короче программа l2phx работает на урааааа но я незнаю ее хорошо....помогите заточить пушку на +200 скайп tim_avatar спасибки от меня кто поможит