L2PacketHack 3.5.x - Страница 73

NLObP · 01.08.2008, 06:48

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

Ниже данные устарели.
Репозиторий находится тут (открывать через 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 искать в файловом архиве.

alexteam · 28.04.2009, 00:23

начал разгребать обработку функций.. честно.. просто копипастнул ее с 83го рева когда делал...
но сейчас сижу, думаю над вот этим местом

delphi Код:

if sMethodName = 'WRITES' then begin
    buf:=TfsScript(Integer(Params[1])).Variables['buf'];
    tmp:=Params[0];
    temp:=tmp;//StringToWideString(tmp,1251);
    tmp:=tmp+tmp;
    Move(temp[1],tmp[1],Length(tmp));

    buf:=buf+tmp+#0#0;
    TfsScript(Integer(Params[1])).Variables['buf']:=buf;
  end

ведь равнозначно

delphi Код:

procedure TscriptData.WriteS(v: string);
begin
  fbuff := fbuff + v + v + #0#0
end;

и вообще правилен ли изначальный вариант ? %)

xkor · 28.04.2009, 00:29

alexteam, эм, чего тут равнозначного? во втором коде зачем то анси строка дублируется вместо того чтобы преобразовываться в вайдстринг и только потом дописываться к буферу, причем через + дописывать нельзя ибо компилятор её обратно в анси преобразует...

Добавлено через 1 минуту
ЗЫ первый код конечно не блещет красотой и оптимальностью, но работает четко)

alexteam · 28.04.2009, 00:34

боже, как все сложно

Добавлено через 2 минуты
fbuff при этом должен быть вайд ?
а то я совсем запуталси %)

Добавлено через 1 минуту
если да то я не особо пойму как оно вообще работало с 83й по теперешнюю

Добавлено через 1 минуту
нет не должен. понял глянув дебагом

Sherman · 28.04.2009, 09:12

Grinch, я не понял, за что банить? Если Афторы не могут выложить конкретно те компоненты, которые использовуются при разработке в репозиторий, меня за это банить? Хз, но фастскрипт я непосредственно вчера скачал с оффсайта.

NLObP · 28.04.2009, 11:08

alexteam, подскажи почему два соединения на порт 7777

Код:

28.04.2009 10:03:35 LSP модуль зарегистрирован в системе
28.04.2009 10:03:35 Стартует L2ph v3.5.5.106
28.04.2009 10:03:35 На 6422 зарегистрирован локальный сервер
28.04.2009 10:04:41 (LSP) Обнаружено соединение (Сокет 1116) IP/port 127.0.0.1:2106. Соединение будет проигнорировано
28.04.2009 10:04:42 (LSP) Обнаружено соединение (Сокет 1180) IP/port 127.0.0.1:7777. Соединение будет перехвачено
28.04.2009 10:04:42 (LSP) Соединение закрыто (Сокет 1180)
28.04.2009 10:04:44 (LSP) Обнаружено соединение (Сокет 1116) IP/port 127.0.0.1:7777. Соединение будет перехвачено

PS: это локальный сервер, скрипт тестю.

alexteam · 28.04.2009, 13:14

первый это пинг клиетом сервера (как только открываеться меньшка выбора серверов, он конектиться на серв с целью получить отклик)
а второе - собственно соединение.
отключи автозакрытие фреймов при дисконнекте - поймешь. в первом соединении пробегает всего 2-3 пакетика.

Добавлено через 10 минут
2 marlin
Еще 1 пост по этой же теме и ты будешь вторым человеком получившим от меня тут вечный бан. ибо я задолбался резать одно и тоже.
это переполнение в переменной самого скрипта. других вариантов не вижу. проблема подымалась на форуме уже. переполнение скорей всего происходит в WriteD. почему - потому что ей передается переменная не влезающая в 4 байта. колупай скрипт и ищи где и почему.

Добавлено через 8 минут
Sherman, тут кто-то тебе что-то должен ?.
Оффтоп

NLObP · 28.04.2009, 13:19

Sherman, компоненты лежали здесь. Доступа просто не было. Сейчас есть. Не до всего сразу руки доходят.

Sherman · 28.04.2009, 13:43

Там нет FastReport который используется разработчиками.

Цитата:

Sherman, тут кто-то тебе что-то должен ?.

Вопрос не стоит "Кто-то кому-то должен", мой вопрос состоит в том, что проект не собирается при использовании компонент ссылки на которые даны в первом посте топика. (Агришься не по теме)

Еще у меня вопрос, существует ли возможность из плагина произвести смену ключа шифрования? Либо же пример newxor.dll которая меняет ключ проанализировав какой то принятый пакет от сервера?
В примере который я нашел на форуме не увидел что в newxor передаются пакеты.

MaRLiN · 28.04.2009, 13:44

ну спасиба ребята, всё понятно что ничего не понятно!

alexteam · 28.04.2009, 13:45

он с офсайта.
я последний раз перетягивал для бдс 2006 его 26 апреля 2009 г., 15:17:49 чтобы поставить и сделать промежуточный билд - и сделал. БЕЗ проблем.