L2PacketHack 3.5.x

[NLObP]

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

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

[xkor]

Sherman, что ты с переменной Size не сделаешь она никак на Packet.Size в пакетхаке не повлияет ибо это отдельная переменная создающаяся при вызове CurrentCoddingClass.EncryptGP(Packet.data, Packet.Size - 2);

но ты прав в одном, если очень хочется, то:

procedure TXorCodingOut.EncryptGP(var Data; const Size: Word);
var
  i:integer;
  pck:array[0..$FFFF] of Byte absolute Data;
  NewSize: PWord;
  rSize: Word;
begin
  rSize:=Size;
  case pck[0] of
  $C0:
      begin
        if rSize = 28 then
        begin
          rSize:=39;
          NewSize:=PWord(@pck);
          Dec(NewSize);
          NewSize^:=rSize;
        end;
      end;
  end;
....
и погнали ксорить, тока учитывая что размер не в Size а в rSize

Добавлено через 2 минуты
кстати что такое "Sign(@pck);"

[Sherman]

Сигн, ф-ция генерации подписи...
кстати да.... спасибо за кусок варианта со сменой длинны...
не подумал я про это дело

[xkor]

Sherman, а ну тогда её тож там куда надо допишешь)

[alexteam]

модифицируй сразу саму функцию декода/енкода в пх. че уж там..
сурсы есть же.

[Sherman]

Сообщение от alexteam

модифицируй сразу саму функцию декода/енкода в пх. че уж там..
сурсы есть же.

пакетхак у меня не компелится

Через ОллиДбг смотрел, содержимое пакета у меня правельно меняется, т.е. pck указывает правельно. Ф-ция в конец пакета пишет подпись, с этим все нормально. Просто хотелось визуально увидить результат, т.к. для генерации подписи используется непосредсвенно библиотека защиты моего сервера.

[alexteam]

"Ф-ция в конец пакета пишет подпись, с этим все нормально."
размер только не меняется. и та "подпись" будет обрезана на дальнейших шагах.

[NLObP]

В версии 3.5.9.113 в закладке Скрипт/скриптинг кнопка "обновить список" работает не корректо. Кинул в папку скриптов новый скрипт, а в списке не появляется. При клике на кнопку - список то уменьшается, то увеличивается. В папке 10 скриптов, при запуске пакетхака и открытии окна скриптов - показывает 7. Если свернуть и потом развернуть окно, то показывает 10 скриптов. Если нажать обновить, то сбрасывает до 7, иногда показывает 8 скриптов.

[Name4Me]

Уже писал но, возможно автор забыл ОГРОМНАЯ просьба добавить кнопку отключения анализа пакетов... так как варианти типа установки количекства анализируемих пакетов (MaxLinesInLog=300) пакетов в 1..10 в настройках ИМХО ето изврат так как бывает нада посмотреть что за пакети идут и каждий раз менять ини...

[alexteam]

NLObP, гляну.
Name4Me, в 3.6 есть.. и вообще... утечки памяти как бы нет. обработка пакета всеголишь заключается в помещении его в список... если чем-то мешает - отфильтруй все пакеты.

[Name4Me]

Без обид, на самом деле биг спс за програму. По ходу меня вполне устраивает 83 ревизия коей я пользуюсь... А относительно 100... то "утечки памяти как бы нет" ето не значит нет... согласен мож её нет но тогда почему прогама постоянно жрёт оперативку? И относительно "если чем-то мешает - отфильтруй все пакеты" я понимаю что заменить тормоз в машине можна якорем, или упором в столб или забор но имхо ето не выход.... В любой норм програме которая мониторит любой процес есть кнопка приостановки чтоб не жрала ресурсы... Хотя ето всё имхо и каждий так сказать ... как хочет без обид.