Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Разработка
Войти через OpenID

Разработка Раздел для совместной разработки/доработки программы

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 01.08.2008, 06:48   #1
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию L2PacketHack 3.5.x

Исходники здесь
Вот такие скомпилированные версии есть у меня.

Ниже данные устарели.
Репозиторий находится тут (открывать через SVN клиент)
Удобный просмотр репозитория через браузер тут
Скомпилированные версии тут Пароль к архиву: coderx.ru

Есть ли предложения по модернизации существующего кода с описанием как должно и что хотелось бы заменить/добавить?

Программа пишется в среде Delphi 2007 и Delphi 7 с использованием следующих дополнительных библиотек компонентов:
- FastScript (http://fast-report.com/ru/products/fast-script.html)
- JCL (http://sourceforge.net/projects/jcl/)
- JVCL (http://sourceforge.net/projects/jvcl/)

Дополнительные компоненты брать тут. (<-- TPerlRegEx есть только там)

/upd:
для компиляции последних ревизий понадобятся JCL, JVCL (ссылки выше) а так же:
jwapi2.2a, SyntEdit, TRichView.v11.0+ScaleRichView.v2.0, TsiLang (letitbit / upload.com.ua)
Немного подправленный FastScript искать в файловом архиве.

Последний раз редактировалось NLObP, 17.10.2016 в 00:02.
NLObP вне форума   Ответить с цитированием
За это сообщение NLObP нажился 111 спасибками от:
-=Ma}{imuS=-, 4erteg, Agat, ak47, Alan, alexsl, alexteam, AoWpwnz, APXAHGEJI, Asmalaa Asrety, Benefit, BISMARCK_555, boy200007, boypush, Breadfan, BuKbI4, CCCP, Crypto, Curious, cutter, DashKAaa, Denis63RUS, dyh9l, Elecktron, Emocean, Evgeniy, FatalHistori, Fer123, Ferrari3200, FFALL777, Fim, freeworld, GameCoder, gavr1l0, gexiss, goodvin1709, Green, Grinch, HacPaTyc, INFERION, isya, Johnson, Keeper, Keisei, Kotyara2014, lomoWAR, lordka), LostQ, Lotar, Ma3aXakA, march, marslem, mat1s, MHz, micoach, MiRoN, mirt, MoD_Hanes, MrIICUX, Mulder, Murdoc, neonv1, nezabudkin, Nigga, Niros, NoFear, OleSha, OMOH8787, PanAm, pascalpwnz, PerioH, PIONER, QaK, rastaman_228, ratvier, RockTeam, RoZ, Rubicosha, Rysis, Ryth, saxa24111, shunder, skaner, skiner4119, Snowbars, StekloReZ, stopicot, TAMBIK, Tchep, Therapyst, TryLaw, vahes, Velizarx, victor_rvm, Vilson, Vklu4atel^^, vlad00777, vovanchik, vul-test, wanick, wasabi_100, WhiteDevil, Xelat, xkor, Yegor, Yellowboy, zDiablik, АлисаХочетСекс, Арти, женька
Старый 20.08.2008, 20:52   #71
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

В версии 3.3.0 не надо галочку Перехват отключать. У меня без ошибок с ней стало работать.
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума   Ответить с цитированием
За это сообщение NLObP нажился спасибкой от:
Старый 21.08.2008, 13:46   #72
Пользователь
 
Аватар для Emocean
 
Регистрация: 04.02.2008
Сообщений: 63
Сказал Спасибо: 44
Имеет 25 спасибок в 15 сообщенях
Emocean
По умолчанию

Комментарии опять синие А мне так нравились зелёные

Добавлено через 2 часа 24 минуты
А можно сделать для фильтра переключатели "Все|Отмеченные|Неотмеченные"? А то иногда так устаёшь искать нужный тип пакета среди отключенных...

Добавлено через 4 минуты
Или сортировку списка по "отмеченности"... или по имени...

Последний раз редактировалось Emocean, 21.08.2008 в 13:46. Причина: Добавлено сообщение
Emocean вне форума   Ответить с цитированием
Старый 22.08.2008, 02:21   #73
Admin!
 
Аватар для xkor
 
Регистрация: 04.08.2007
Сообщений: 2,360
Сказал Спасибо: 113
Имеет 1,566 спасибок в 651 сообщенях
xkor на пути к лучшему
По умолчанию

Цитата:
Сообщение от NLObP Посмотреть сообщение
[+] рефакторинг вызова скриптов;
шо ещё за рефакторинг??
Цитата:
Рефакторинг или Реорганизация — процесс полного или частичного преобразования внутренней структуры программы при сохранении её внешнего поведения. В его основе лежит последовательность небольших эквивалентных (т.е., сохраняющих поведение) преобразований. Поскольку каждое преобразование маленькое, программисту легче проследить за его правильностью, и в то же время, вся последовательность может привести к существенной перестройке программы и улучшению её согласованности и четкости. Рефакторинг позволяет разрабатывать архитектуру программы постепенно, откладывая проектные решения до тех пор, пока не станет более ясной их необходимость.
и какое это отношение имеет к вызову скриптов???
__________________
Я здесь практически не появляюсь!, Skype - ikskor
xkor вне форума   Ответить с цитированием
Старый 22.08.2008, 02:21   #74
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от Emocean Посмотреть сообщение
Комментарии опять синие
Вернул зеленый цвет комментариям.
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума   Ответить с цитированием
За это сообщение NLObP нажился спасибкой от:
Старый 22.08.2008, 02:23   #75
Admin!
 
Аватар для xkor
 
Регистрация: 04.08.2007
Сообщений: 2,360
Сказал Спасибо: 113
Имеет 1,566 спасибок в 651 сообщенях
xkor на пути к лучшему
По умолчанию

NLObP, кстати, будет время глянь на расцветку в моём кусочке 4го пакетхака, че то я там помойму с оттенками намудрил...
__________________
Я здесь практически не появляюсь!, Skype - ikskor
xkor вне форума   Ответить с цитированием
Старый 22.08.2008, 02:28   #76
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Цитата:
Сообщение от xkor Посмотреть сообщение
шо ещё за рефакторинг??
и какое это отношение имеет к вызову скриптов???
Ну, может неправильно обозвал. У тебя там через три п. вызов был, я укоротил.

delphi Код:
...     procedure ExecuteScripts(var msg: TMessage); Message WM_ExecuteScripts; ... procedure TL2PacketHackMain.ExecuteScripts(var msg: TMessage); var   i: Integer;   packet: string;   FromServer: boolean;   id: byte; begin   packet:=pstr(msg.WParam)^;   FromServer:=Boolean(msg.LParamLo);   id:=msg.LParamHi;   SetCurrentDir(ExtractFilePath(ParamStr(0)));   EnterCriticalSection(_cs);   for i:=0 to CheckListBox2.Count-1 do begin     if CheckListBox2.Checked[i] then begin       Scripts[i].fsScript.Variables['pck']:=packet;       Scripts[i].fsScript.Variables['ConnectID']:=id;       Scripts[i].fsScript.Variables['ConnectName']:=Thread[id].Name;       Scripts[i].fsScript.Variables['FromServer']:=FromServer;       Scripts[i].fsScript.Variables['FromClient']:=not FromServer;       Scripts[i].fsScript.Execute;       packet:=Scripts[i].fsScript.Variables['pck'];     end;   end;   LeaveCriticalSection(_cs); end; ... procedure PacketProcesor(PacketData: array of Byte; SendSocket: TSocket; id, From: Byte); ...         //>>>>>>>>!!!!!!!!!<<<<<<<<         //пакет от сервера - клиенту         a.a:=Word(true);         a.b:=id;         SendMessage(L2PacketHackMain.Handle, WM_ExecuteScripts, Integer(@temp),a.ab);         //>>>>>>>>!!!!!!!!!<<<<<<<< ... end;
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума   Ответить с цитированием
За это сообщение NLObP нажился спасибкой от:
Старый 22.08.2008, 09:45   #77
Пользователь
 
Аватар для Emocean
 
Регистрация: 04.02.2008
Сообщений: 63
Сказал Спасибо: 44
Имеет 25 спасибок в 15 сообщенях
Emocean
По умолчанию

Цитата:
Сообщение от NLObP Посмотреть сообщение
[+] в расшифровке пакетов смещение значений теперь в HEX для выравнивания;
А для чего так? Разве не удобнее было подставлять в Read и Write значения смещения в десятичной системе? Как теперь правильно надо писать? 0x02, 0x06, 0x0A?..
Emocean вне форума   Ответить с цитированием
Старый 22.08.2008, 11:44   #78
Новичок
 
Регистрация: 22.08.2008
Сообщений: 2
Сказал Спасибо: 0
Имеет 0 спасибок в 0 сообщенях
AlexS пока неопределено
По умолчанию

Присваиваю переменной pck пустой пакет, но пакет на сервер отправляется без изменений, а хотелосьбы чтобы при обнулении пакета он на сервер не отправлялся.
Пример кода:

if FromClient and (pck=HStr('34 0B 00 00 00')) then // Социальное действи "Аплодисменты"
begin
// Требуемые действия
pck := '';
exit;
end;

В результате этого кода персонажь выполняет соц. действие "Аплодисменты".
AlexS вне форума   Ответить с цитированием
Старый 22.08.2008, 12:48   #79
Пользователь
 
Аватар для Emocean
 
Регистрация: 04.02.2008
Сообщений: 63
Сказал Спасибо: 44
Имеет 25 спасибок в 15 сообщенях
Emocean
По умолчанию

Да, только что тоже столкнулся с такой же неприятностью.
Emocean вне форума   Ответить с цитированием
Старый 22.08.2008, 12:51   #80
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Цитата:
Сообщение от AlexS Посмотреть сообщение
if FromClient and (pck=HStr('34 0B 00 00 00')) then // Социальное действи "Аплодисменты"
begin
// Требуемые действия
pck := '';
exit;
end;
В результате этого кода персонажь выполняет соц. действие "Аплодисменты".
так пакет отправляется на сервер, или перс выполняет соц действие?
по просмотру смотрите, а не в окно клента/бота.
QaK вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Разработка



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 02:45.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!