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

[alexteam]

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

правда не помню, один ли там стринглист под это дело отводился.. или несколько.. возможно он чистился при переключении активных соединений

[NLObP]

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

правда не помню, один ли там стринглист под это дело отводился.. или несколько.. возможно он чистился при переключении активных соединений

Стринглист на каждое соединение и чистится при превышении MaxLinesInPktLog. Можно прописать очень большое число в MaxLinesInPktLog в конфиге и не будет так часто сохраняться, но уж если начнет, то надолго привиснет.

[alexteam]

надо переделать под tfilestream

[alexteam]

из процедуры RefreshScripts..

Scripts[i].fsScript.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'Scripts\'+SearchRec.Name);
Scripts[i].fsScript.Clear;
Scripts[i].Name:=Copy(SearchRec.Name,1,Length(SearchRec.Name)-4);
Scripts[i].Compilled:=False;

я по поводу порядка первых 2х строчек..
за что отвечает клир ?

[xkor]

alexteam, мм, повидимому за обнуление скриптового движка, но не за обнуление сорцев скрипта

[alexteam]

Немного по ревизии 84.
во первых это АЛЬФА., со всемы вытекающими обстоятельствами.
очень много нового кода и большинство кусков которые брались из предыдущего ревижина переписаны,
соответственно может непредсказуемо выбить там где всегда было норм. и наоборот, там где выбивало пройти мягко.
багрепорты привествуються.

изменения в скриптинге.
UserTab, showtab; hidetab; заменены на
UserForm, ShowForm;,HideForm; соттветственно.
UserForm экземпляр Tform;

В плагины в SetStruct передается екземпляр следующего класса
Оффтоп

TPluginStruct = class (tobject)
    private
    public
    userFormHandle: THandle;
    ConnectInfo : tConnectInfo;
    function ReadC(const pck: string; const index:integer):byte; Virtual; Abstract;
    function ReadH(const pck: string; const index:integer):word; Virtual; Abstract;
    function ReadD(const pck: string; const index:integer):integer; Virtual; Abstract;
    function ReadF(const pck: string; const index:integer):double; Virtual; Abstract;
    function ReadS(const pck: string; const index:integer):string; Virtual; Abstract;
    function ReadCEx(const pck; const index:integer):byte; Virtual; Abstract;
    function ReadHEx(const pck; const index:integer):word; Virtual; Abstract;
    function ReadDEx(const pck; const index:integer):integer; Virtual; Abstract;
    function ReadFEx(const pck; const index:integer):double; Virtual; Abstract;
    function ReadSEx(const pck; const index:integer):string; Virtual; Abstract;
    procedure WriteC(var pck: string; const v:byte;    ind:integer=-1); Virtual; Abstract;
    procedure WriteH(var pck: string; const v:word;    ind:integer=-1); Virtual; Abstract;
    procedure WriteD(var pck: string; const v:integer; ind:integer=-1); Virtual; Abstract;
    procedure WriteF(var pck: string; const v:double;  ind:integer=-1); Virtual; Abstract;
    procedure WriteS(var pck: string; const v:string;  ind:integer=-1); Virtual; Abstract;
    procedure WriteCEx(var pck; const v:byte;    ind:integer=-1); Virtual; Abstract;
    procedure WriteHEx(var pck; const v:word;    ind:integer=-1); Virtual; Abstract;
    procedure WriteDEx(var pck; const v:integer; ind:integer=-1); Virtual; Abstract;
    procedure WriteFEx(var pck; const v:double;  ind:integer=-1); Virtual; Abstract;
    procedure WriteSEx(var pck; const v:string;  ind:integer=-1); Virtual; Abstract;

    function CreateAndRunTimerThread(const interval, usrParam: Cardinal;
                                     const OnTimerProc: TOnTimer): Pointer; Virtual; Abstract;
    procedure ChangeTimerThread(const timer: Pointer; const interval: Cardinal;
                                const usrParam: Cardinal = $ffffffff;
                                const OnTimerProc: TOnTimer = nil); Virtual; Abstract;
    procedure DestroyTimerThread(var timer: Pointer); Virtual; Abstract;
    function StringToHex(str1,Separator:String):String; Virtual; Abstract;
    function HexToString(Hex:String):String; Virtual; Abstract;
    function DataPckToStrPck(var pck): string; Virtual; Abstract;
    procedure SendPacketData(var pck; const tid: integer; const ToServer: Boolean); Virtual; Abstract;
    procedure SendPacketStr(pck: string; const tid: integer; const ToServer: Boolean); Virtual; Abstract;
    procedure SendPacket(Size: Word; pck: string; tid: integer; ToServer: Boolean); Virtual; Abstract;
    
    function getConnectionName(id : integer):string; Virtual; Abstract;
    function getConnectioidByName(name : string):integer; Virtual; Abstract;
    Function GoFirstConnection:boolean; Virtual; Abstract;
    Function GoNextConnection:boolean; Virtual; Abstract; 
    procedure ShowUserForm(ActivateOnly:boolean);  Virtual; Abstract;
    Procedure HideUserForm;  Virtual; Abstract;
  end;

думаю труда разобратся не составит.

сама SetStruct должна выглядеть приблизительно так:
function SetStruct(const struct: PPluginStruct): Boolean; stdcall;
begin
ps := TPluginStruct(struct^);
Result:=True;
end;

TPacket в OnNewPacket:
Оффтоп

TCharArray = array[0..$FFFF] of AnsiChar;
TPacket = packed record case Integer of
    0: (Size: Word;
        Data: array[0..$FFFD] of Byte);
    1: (PacketAsByteArray: array[0..$FFFF] of Byte);
    2: (PacketAsCharArray: TCharArray);
    3: (pckSize: Word;
        pckId: Byte;
        pckData: array[$FFFC] of Byte);
  end;

перебор ВСЕХ имеющихся соединений происходит приблизительно вот так
Оффтоп

(вырезка из старого демо)

with ps do
    if GoFirstConnection then
      repeat
      cntHP := ConnectInfo.ConnectID;
      Say('Для выбора нужного соединения наберите в чате слово set и отправьте');
      until GoNextConnection;

в общем можно просто глянуть демо в PluginCodding\
Структуры в units\usharedstructs.pas

при использовании LSP прописывать ПОЛНЫЙ путь к длл.
попытайтесь исключить пробелы в пути и русские буквы.
лучше кинуть на c:\ саму длл.
сам лсп модуль в тестовом режиме.

[xkor]

alexteam, ух, вот это я понимаю изменения)

Добавлено через 45 минут
эх, думал у тебя LSP будет лучше реализован чем у меня.., но основательно полазив по сорцам установки/удаления провайдера понял что у тебя ещё хуже.., с нодом может и пашет но со всякими проксифиерами, трафик компрессорами и т.п. пахать это будет крайне врятли...

ЗЫ не понимаю почему автор примеров (которые ты использовал) для работы со списком провайдеров юзает реестр ибо это до хрена трудно читаемого кода, который при необходимости изменить не очень просто, и вообще при этом много лишнего делать приходиться
всё что делается через реестр можно сделать намного проще, удобнее и нагляднее с помощью функций:
WSCEnumProtocols
WSCInstallProvider
WSCWriteProviderOrder
WSCDeinstallProvider

[alexteam]

хм, а по какой причине не должно работать ? -)
что там трудно читаемо ? добавление ветки реестра регистрирующего модуль в систему и удаление онной ?
мы этим просто возлагаем процедуру подгрузки в приложение на саму систему.

хотя, покручу в сторону этих самых функций, авось чегото напишу получше -)

зы. да и больше интересует сама работоспособность пх. лсп пока второстепенен.
зы2. хотелось бы увидеть на свн систему тикетов.

зы3. сам профиксиер ставиться так же.
-----( HKLM\SYSTEM\CurrentControlSet\Services\WinSock2\Pa rameters\Protocol_Catalog9\Catalog_Entries )-----
"PROXIFIER LSP" - "Initex Software" - C:\WINDOWS\system32\PrxerDrv.dll

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

[NLObP]

По 84 версии. Сумбурно.
1. Очень не привычна много-оконность.
2. RAW-лог сам сохраняется, если стоит галочка "Дать возможность сохранять RAW логи трафика"? Мне нужно чтобы в автомате сохранялось.
3. Как отключить показ закладок типа [Proxy]#1234? На каждой кнопку жать?
4. Кнопка показать/спрятать фильтры - только показывает.
5. Если нажать в фильтре "Применить", то сбивается текущая закладка (обновляются все по очереди) и останавливается на последней.
6. Кнопка "Следить за последним пришедшим пакетом" следит в отжатом состоянии, может переименовать ее тогда типа в лок/унлок?
7. У пакетов ProtocolVersion, KeyInit ID - однобайтное, а здесь двухбайтное.

Пробовал на русоффе, астериосе (грация) - на выборе сервера привисает.
Пробовал на абиссе (интерлюдия), перехватывает, пакеты показывает, девять закладок с [Proxy]#... и одну с моим чаром.
Через некоторое время коннект привисает.

[murc]

NLObP, на Руофе подвисает из-за того что там ШилдКонсоль шаманит сразу после выбора сервера.

Народ дайте тоже потестить