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 искать в файловом архиве.

[Grinch]

vovanchik, mysql мда крути.

[alexteam]

xkor,а че так слабо берешь ? фильтры, настройки, все инишки.. скрипты.. все на майскуель

зы. если комуто поддержка скуеля нужна - плагины в зубы и вперед нращивать потенциал скриптового двигла. никто не ограничивает.

[Yegor]

Я делал програмку для себя по созданию плей листов для винампа на основе имеющейся на Пк музыки, так тоже заморочился и зделал используя БД. Прикольно получилось. Но тут я думаю это лишнее.

[J-Fobos]

У меня возник вопрос: пропускается ли пакет отправленый с вкладки "посылка" через включенные скрипты?

И в связи с этим вопросом появилось предложние Добавить в опциях галочку "Не обрабатывать пакет с владки "посылка" скриптами". Галочка снята - пакет проходит через все включенные скрипты и потом на сервер, галочка стоит - пакет идет сразу на сервер.

[xkor]

не вижу смысла обрабатывать такой пакет скриптами...

[J-Fobos]

А смысл все-таки есть ) Проверка скриптов упростится чуть. Например, я хочу проверить верно ли скрипт среагирует на какой-то пакет от сервера, мне не надо будет в клиенте выполнять какие-то действия чтоб такой пакет пришел, просто в опциях поставлю галочку и отошлю нужный пакет, сразу наглядно увижу что произойдет. Аналогично и со стороны клиента.

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

[alexteam]

А смысл все-таки есть ) Проверка скриптов упростится чуть. Например, я хочу проверить верно ли скрипт среагирует на какой-то пакет от сервера, мне не надо будет в клиенте выполнять какие-то действия чтоб такой пакет пришел, просто в опциях поставлю галочку и отошлю нужный пакет, сразу наглядно увижу что произойдет. Аналогично и со стороны клиента.

подумаю -)

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

скрипты зачем ?

Добавлено через 43 секунды
NLObP, я пользуюсь тем что на фтпхе. на бдс2к6.

[NLObP]

Выложил на ФТП и СВН.
3.5.10.115
Author: nlobp
Date: 02:55:00, 20 мая 2009 г.
Message:
[-] при выборе библиотеки перехвата пропадала возможность повторной работы с диалогом выбора библиотеки
[+] выгружается LSP библиотека после завершения работы программы

//alexteam: ..релиз забыл сменить...
+выгружать библиотеку - лишнее. во всяком случа по дефолту.. сделаю пожалуй галочку..
обосновать - легко. допустим есть ланчер который сканирует процессы при запуске линейки.
т.е. при запуске ланчера пх должен быть выкл.

[alexteam]

э...
обьясни мне...
какой смысл было править с

procedure TfSettings.ChkLSPInterceptClick(Sender: TObject);
begin
  isLSP.Enabled := not ChkLSPIntercept.Checked;
  BtnLsp.Enabled := not ChkLSPIntercept.Checked;
  if ChkLSPIntercept.Checked then
  begin
    ChkSocks5.Checked := false;
    ChkIntercept.Checked := false;
  end;
  dmData.LSPControl.setlspstate(ChkLSPIntercept.Checked);
end;

на

procedure TfSettings.ChkLSPInterceptClick(Sender: TObject);
begin
  if ChkLSPIntercept.Checked then
  begin
    isLSP.Enabled := false;
    BtnLsp.Enabled := false;
    ChkSocks5.Checked := false;
    ChkIntercept.Checked := false;
  end else
  begin
    isLSP.Enabled := true;
    BtnLsp.Enabled := true;
  end;
  dmData.LSPControl.setlspstate(ChkLSPIntercept.Checked);
end;

Добавлено через 1 минуту
порадовало:

if ChkLSPIntercept.Checked then
    dmData.LSPControl.setlspstate(not ChkLSPIntercept.Checked);

[NLObP]

alexteam, по поводу выгрузки. Мне не понравилось, что в то время когда не нужен пакетхак, библиотека перехвата все равно установлена.

PS: Напаролся на косяк. Не знаю почему пакетхак стал писать, что у меня нет прав на правку реестра. Галочку LSP снять нельзя. Долго не мог понять почему, пока не глянул в лог. Полази в реестре и потер все вхождения path=lspprovider.dll. После этого пакетхак перестал ругаться на невозможность редактирования реестра и дал возможность снять/поставить галочку LSP. Может быть это из-за того, что библиотека устанавливалась из одной папки, а я хотел выгрузить из другой? (У меня много версий ПХ и все в разных папках.)

Добавлено через 23 минуты

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

э...
обьясни мне...
какой смысл было править

Наверное не было. Тогда и здесь надо для однообразия исправить на это

procedure TfSettings.iInjectClick(Sender: TObject);
begin
  if iInject.Checked then
    if not LoadLibraryInject (isInject.Text) then iInject.Checked := false
  else
  begin
    ChkIntercept.Checked := false;
    FreeMem(pInjectDll);
    pInjectDll := nil;
    AddToLog(format(rsUnLoadDllSuccessfully,[isInject.Text]));
  end;
  isInject.Enabled := not iInject.Checked;
  BtnInject.Enabled := not iInject.Checked;
  HookMethod.Enabled := iInject.Checked;
  ChkIntercept.Enabled := iInject.Checked;
  JvSpinEdit1.Enabled := iInject.Checked;

  if not InterfaceEnabled then exit;
  GenerateSettingsFromInterface;
end;