L2PacketHack 3.5.x

[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, на Руофе подвисает из-за того что там ШилдКонсоль шаманит сразу после выбора сервера.

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

[xkor]

murc, там уже не ШК шаманит.., шаманит с шифрацией уже сам клиент, ШК что то другое делает...

[alexteam]

1. дело времени. имхо.
2. в опциях галочка разрешает создавать tmemorystream. для каждого соединения. сохранения равлога по требованию. могу сделать автоматом но надо ли ?
3. Обрати внимание на "кнопку-замок" в правой части тулбара в фрейме соединения, и на опцию "не закрывать "окно" соединения после дисконнекта" в опциях которая влияет на установку этой "кнопки-замка" при создании фрейма.
если этот замок не стоит то фрейм будет автоматически дестроится после дисконекта (оставляя только рабочие соединения и соединения в которых этот замок установлен вручную), в противном случае, дестроиться только по кнопке рядом с замочком -)
а те вкладочки - это скорей всего пинг при выборе сервера. соединение осуществляется и проходит всего лишь 1 пакет.
4. поправлю -)
5. ой, это с введением прогрессбара связано. исправлю.
6. добавлю not (был невнимателен)
7. хм, гдето в отрисовке накосячил, или ты только что подсказал о наличии более серьезного бага.

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

про абисс я знаю. там чтото станное, сейчас бегаю на шоке 3м. такого не наблюдаю (специфика клиента абиса ? м.б. защита ?)

добавлено:
murc, бери, кто недает. ссылки в первом посту. еще со вчера лежит -)

Добавлено через 43 минуты
кажется нашел баг в uencdec связаный с скапливанием вызовов sendmessage :X
этот баг теоретически влечет за собой сбои в работе с лсп. и является первопричиной вылетов при вмешивании в протокол (измененние пакета/отсылка своего)
капец. -(

[NLObP]

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

2. в опциях галочка разрешает создавать tmemorystream. для каждого соединения. сохранения равлога по требованию. могу сделать автоматом но надо ли ?

Может быть, если были пакеты, то сохранять автоматом?

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

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

а те вкладочки - это скорей всего пинг при выборе сервера. соединение осуществляется и проходит всего лишь 1 пакет.

Во всех есть KeyInit, NetPing

[xkor]

alexteam, вот кста мой вариант установки/удаления провайдера а так же показа списка провайдеров и всех их параметров + мой провайдер логирующий трафик shieldConsole в файлы - LSP_sample.rar
ЗЫ тока из за неудачных попыток совместной работы с другими провами я сделал жесткую привязку перехвата к провайдеру с CatalogEntryId = 1001, тоесть стандартному провайдеру TCP/IP

[NLObP]

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

про абисс я знаю. там чтото станное, сейчас бегаю на шоке 3м. такого не наблюдаю (специфика клиента абиса ? м.б. защита ?)

На абиссе иногда бывает такое, клацаешь бежать куда-нибудь, чар разворачивается и бежит в другую сторону, и показалось окошки отрываются без запроса. Может трафик подпорчивается?