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

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

NLObP · 28.04.2009, 13:47

Sherman, мы их с офф-сайта качаем.

alexteam · 28.04.2009, 14:03

Цитата:

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

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

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

Sherman · 28.04.2009, 14:04

Более интересен ответ на второй вопрос.

Цитата:

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

Цитата:

где мы используем фастрепорт ?

FastScript, простите.

alexteam · 28.04.2009, 14:10

Цитата:

В примере который я нашел на форуме не увидел что в newxor передаются пакеты.

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

Добавлено через 53 секунды
FastScript, с оффсайта.
я перекачивал его на выходных по причине того что перешел на бдс2к6.
и прекрасно сбилдил работающий проект.

Sherman · 28.04.2009, 14:16

Есть какой то готовый пример newxor.dpr? Возможно у меня вариант из очень старого пакетхака.

PHP код:


			
library newxor;



uses

  windows,

  Coding in 'Coding.pas';



type

  TXorCoding = class(TCodingClass)

  private

    keyLen: Byte;

  public

    constructor Create;

    procedure InitKey(const XorKey; Interlude: Boolean = False);override;

    procedure DecryptGP(var Data; const Size: Word);override;

    procedure EncryptGP(var Data; const Size: Word);override;

  end;



  TXorCodingOut = class(TCodingClass)

  private

    keyLen: Byte;

  public

    constructor Create;

    procedure InitKey(const XorKey; Interlude: Boolean = False);override;

    procedure DecryptGP(var Data; const Size: Word);override;

    procedure EncryptGP(var Data; const Size: Word);override;

  end;



function CreateCoding(Value:PCodingClass): HRESULT; stdcall;

begin

  Result:=0;

  try

    Value^:=TXorCoding.Create;

  except

    Result:=-1;

    Value^:=nil;

  end;

end;



function CreateCodingOut(Value:PCodingClass): HRESULT; stdcall;

begin

  Result:=0;

  try

    Value^:=TXorCodingOut.Create;

  except

    Result:=-1;

    Value^:=nil;

  end;

end;



exports CreateCoding, CreateCodingOut;



{ TXorCoding }



constructor TXorCoding.Create();

begin

  FillChar(GKeyS[0],SizeOf(GKeyS),0);

  FillChar(GKeyR[0],SizeOf(GKeyR),0);

  keyLen := 0;

End;



procedure TXorCoding.DecryptGP(var Data; const Size: Word);

var

  k:integer;

  pck:array[0..$4FFF] of Byte absolute Data;

begin

  for k:=size-1 downto 1 do

    pck[k]:=pck[k] xor GKeyR[k and keyLen] xor pck[k-1];

  if size<>0 then pck[0]:=pck[0] xor GKeyR[0];

  Inc(PLongWord(@GKeyR[keyLen-7])^,size);

end;



procedure TXorCoding.EncryptGP(var Data; const Size: Word);

var

  i:integer;

  pck:array[0..$4FFF] of Byte absolute Data;

begin

  if size<>0 then pck[0]:=pck[0] xor GKeyS[0];

  for i:=1 to size-1 do

    pck[i]:=pck[i] xor GKeyS[i and keyLen] xor pck[i-1];

  Inc(PLongWord(@GKeyS[keyLen-7])^,size);

end;



procedure TXorCoding.InitKey(const XorKey; Interlude: Boolean = False);

const

  KeyConst: array[0..3] of Byte = ($A1,$6C,$54,$87);

  KeyIntrl: array[0..7] of Byte = ($C8,$27,$93,$01,$A1,$6C,$31,$97);

var key2:array[0..15] of Byte;

begin

  if Interlude then begin

    keyLen:=15;

    Move(XorKey,key2,8);

    Move(KeyIntrl,key2[8],8);

  end else begin

    keyLen:=7;

    Move(XorKey,key2,4);

    Move(KeyConst,key2[4],4);

  end;

  Move(key2,GKeyS,16);

  Move(key2,GKeyR,16);

end;



{ TXorCodingOut }



constructor TXorCodingOut.Create;

begin

  FillChar(GKeyS[0],SizeOf(GKeyS),0);

  FillChar(GKeyR[0],SizeOf(GKeyR),0);

  keyLen := 0;

end;



procedure TXorCodingOut.DecryptGP(var Data; const Size: Word);

var

  k:integer;

  pck:array[0..$4FFF] of Byte absolute Data;

begin

  for k:=size-1 downto 1 do

    pck[k]:=pck[k] xor GKeyR[k and keyLen] xor pck[k-1];

  if size<>0 then pck[0]:=pck[0] xor GKeyR[0];

  Inc(PLongWord(@GKeyR[keyLen-7])^,size);

end;



procedure TXorCodingOut.EncryptGP(var Data; const Size: Word);

var

  i:integer;

  pck:array[0..$4FFF] of Byte absolute Data;

begin

  if size<>0 then pck[0]:=pck[0] xor GKeyS[0];

  for i:=1 to size-1 do

    pck[i]:=pck[i] xor GKeyS[i and keyLen] xor pck[i-1];

  Inc(PLongWord(@GKeyS[keyLen-7])^,size);

end;



procedure TXorCodingOut.InitKey(const XorKey; Interlude: Boolean);

const

  KeyConst: array[0..3] of Byte = ($A1,$6C,$54,$87);

  KeyIntrl: array[0..7] of Byte = ($C8,$27,$93,$01,$A1,$6C,$31,$97);

var key2:array[0..15] of Byte;

begin

  if Interlude then begin

    keyLen:=15;

    Move(XorKey,key2,8);

    Move(KeyIntrl,key2[8],8);

  end else begin

    keyLen:=7;

    Move(XorKey,key2,4);

    Move(KeyConst,key2[4],4);

  end;

  Move(key2,GKeyS,16);

  Move(key2,GKeyR,16);

end;



begin



end.

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

alexteam · 28.04.2009, 14:36

метод подключения newxor в ревизиях выше 83 (включая 83) и его структура как таковая не менялись.
обрабатывай выходные данные с
DecryptGP(var Data; const Size: Word);
и меняй GKeyS/C сам.

на выходе у него - расшифрованый пакет.
сам декрипт вызываеться в пх воттак
DecryptGP(packet.data, Packet.Size - 2);
где packet - структура

delphi Код:

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[0..$FFFC] of Byte);
  end;

Добавлено через 17 минут
и вообще.
в модуль uEncDec загляни.
глянь DecodePacket, EncodePacket
поймеш порядок вызовов. и что где.

Sherman · 28.04.2009, 15:39

Спасибо. Собственно uEncDec.pas я и изменял для своих целей, но скомпелированный мной пакетхак не захотел работать.

Yegor · 29.04.2009, 09:55

Насколько реально достать исходник промежуточной версии phx, скажем 3.4.1.83 - это ещё до коренных изменений в интерфейсе, но выше чем 3.2.0. Там меньше всего наворочено и мне будет проще разобраться с механизмом перехвата траффика.

Зы: не пинать мечты вслух.

alexteam · 29.04.2009, 12:05

Сделать Checkout указав номер ревизии.

Sherman · 29.04.2009, 15:01

Код:

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[0..$FFFC] of Byte);
  end;

Я так понимаю в том примере который я привел (newxor.dpr) ошибка размера пакета:

Код:

procedure TXorCoding.DecryptGP(var Data; const Size: Word); 
var 
  k:integer; 
  pck:array[0..$4FFF] of Byte absolute Data; <<< Ошибка
 должно быть
pck:array[0..$FFFF] of Byte absolute Data;
begin

я прав?