L2PacketHackФорум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела!
Категорически запрещено:
* Просить пакеты/скрипты на шмот/адену/другие вещи;
* Просить (помочь) взломать/сломать сервак/аккаунт или раздеть/наказать кого-то на любом серваке;
* Просить научить работать с программой, если не понимаете элементарных вещей в отношениях клиент-сервер (так как, если вы их понимаете, то вопросов по основным возможностям программы быть недолжно);
* Все посты не удовлетворяющие этим запретам, а так же не относящиеся к теме будут удаляться при первой возможности.
* Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы.
* Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
* Данные запреты неподлежат обсуждению.
//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.
Код:
const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.
где я ошибся?
Последний раз редактировалось QaK, 30.08.2010 в 18:56.
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
//Say2if FromClient and(pck[1]=#$38)then//если от клиента пакет #$38 (это пакет сообщения НО для ц4, на других хрониках - другой номер будет) то:begin
Cmd:=ReadS(2); //в переменную Cmd записать string-блок из пакета, начинающийся со 2го байта пакетаif(Cmd[1]='-')then// если первый символ блока - "-" то выполнять:begin
Cmd:=Copy(Cmd,2,Length(Cmd)-1); //Cmd=считать из(Cmd, начать со 2го символа, слово длинной на 1 меньше чем Cmd) т.е. например если было 12345 - станет 2345case Cmd of//блок выбора: если в Cmd находится'follow':FollowLeader; //follow - то вызвать процедуру FollowLeader'heal':Heal('Vark'); // если heal - то вызвать проц-ру Heal передав в нее 'Vark''spoil':Spoil('Gnom'); // если spoil то проц-ру Spoil передав в нее 'Gnom''sweep':Sweep('Gnom'); // аналогично'attack': //если в CMD было аттак то вызвать проц-ру аттакbegin
Attack('Vark');
Attack('Gnom');
end;
end;
pck:=''; // тут тот самый пакет, в котором было написан текст - удаляется, чтоб не идти на сервер и не вызывать лишних подозрений по поводу странных диалогов в чате.end;
end
ну а дальше смотри процедуры сами что делают.
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Прошу помоч вставить функцию автоматического принятия пати от командира, послечего производится весь цикл скрипта, после чего вставить функцию автоматического выхода из пати. Буду очень благодарен.
Вот скрипт, где основной цикл к которуму сначало нужно авто принятие пати от командира, потом после выполения скрипта авто выход пати, и чтоб это повторялось каждый раз, когда бот примет пати.
Прошу помоч вставить функцию автоматического принятия пати от командира, послечего производится весь цикл скрипта, после чего вставить функцию автоматического выхода из пати. Буду очень благодарен.
Вот скрипт, где основной цикл к которуму сначало нужно авто принятие пати от командира, потом после выполения скрипта авто выход пати, и чтоб это повторялось каждый раз, когда бот примет пати.
у меня вот такой вопрос:
включаю хлапекс соединение есть ник перса пишет все норм,но когда вставляю значение пакета и нажимаю послать ничего не происходит.
что делать?
//J-Fobos: это форум программы PacketHack, вопросы по поводу хлапекса задавайте его разработчикам, они никакого отношения к нам не имеют.
//QaK:телепаты в отпуске, куда вставляешь какой пакет, что этим действием хочешь сделать. НЕ забудь сначала почитать правила форума.
Последний раз редактировалось QaK, 03.08.2010 в 19:43.
Мне скинули L2phx 3.4.1.68 по скайпу. Я выключил антивирус и даже брендмауэр... Если его распаковать, то просто не будет exe файла и inject.dll, а если открыть прямо в архиве вылезет ошибка Невозможно выполнить "C:\Users\Armani\AppData\Local\Temp\Rar$EX15.785\l 2phx.3.4.1.68\l2pbx.exe"... При попытке скопировать из архива inject.dll или exe файл ничего не происходит, в других версиях l2phx просто не распаковывается inject.dll, через другой способ "проникновения" на сервер не зайдет... Помогите плз.
//J-Fobos: Обратите внимание что программа называется пакетхак и папка с программой называется соответственно l2phx.3.4.1.68, но в самой папке присутствует файл который называется l2pbx.exe, неизвестно что вам скинули в скайп, рекомендую скачать программу с нашего сайта.
Теперь по поводу inject.dll: некоторые антивирусы действительно ругаются на него (причины понятны, это перехватчик), но если использовать LSP перехват, то этот файл не обязателен и его можно удалить. Если вы хотите его использовать, то добавьте файл в исключение своего антивируса.
Добавлено через 2 часа 0 минут
Дело в том, что нужен именно этот перехват, а антивирус я вообще закрыл, брэндмауэр выключен.
//J-Fobos: Программа поддерживает 3 вида перехвата (инжект в процесс, перехват через LSP драйвер и направление на сокс5) и только для одного из них требуется inject.dll, так что без него вполне можно обойтись. К тому же я выше написал "добавьте файл в исключение своего антивируса", а не "выключайте антивирус"
//Breadfan: PS: Добавить в исключения только если архив скачан отсюда, а не откуда-то там "из скайпа" - ибо мой антивирь - непротив этого файла (или я давно добавил в исключения да забыл уже ), если что - в разделе "файлы" есть ссылка.
Последний раз редактировалось Breadfan, 07.08.2010 в 21:40.
Если глянуть в исходники пакетхака (l2phx.3.4.1.68), то увидим, что там в итоге создается l2pbx.exe. Но это, так к слову, что реально скачали - не известно.
да как и обычные, proba:array [1..30000,1..2] of integer; - например 2у мерный.(пример - чисто теоретический!)
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 13.08.2010 в 13:33.