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

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 · 05.09.2008, 15:20

Цитата:

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

а как было в версии 3.3.3? она же работает без сбивки.

Попробуйте inject.dll и newxor.dll взять из версии 3.3.3 может это из-за них?

Emocean · 05.09.2008, 15:36

Взял newxor.dll от 3.3.3. Всё стало нормально. Чем они отличаются?

NLObP · 06.09.2008, 01:18

Цитата:

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

Взял newxor.dll от 3.3.3. Всё стало нормально. Чем они отличаются?

Делал
3.2.13 от 13.08.2008
+ добавил в newxor.dpr - CryptoInit: Boolean; //Добавил новый флаг by PanAm

delphi Код:

library newxor;

uses
  windows,
  Coding in 'Coding.pas';

type
  TXorCoding = class(TCodingClass)
  private
    keyLen: Byte;
    CryptoInit: Boolean; //Добавил новый флаг
  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;
  CryptoInit := false;
End;

procedure TXorCoding.DecryptGP(var Data; const Size: Word);
var
  k:integer;
  pck:array[0..$4FFF] of Byte absolute Data;
begin
  if pck[0] = 0 then begin //вставил проверку
    CryptoInit := true; //поднял флаг
    InitKey(pck[2]); //устанавил новый ключ шифрования, InitKey(pck[2], true); для интрерлюда
    exit; //дальнейшая обработка не нужна, вышел
  end;
  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 CryptoInit then begin  //это был CryptoInit
    CryptoInit := false; //сбосил флаг
    exit; //шифрация не требуется - вышел
  end;
  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.

PS: Надо из 3.2.0 newxor.dpr нормальный брать.

Добавлено через 9 часов 15 минут
3.3.6 от 05.09.2008
[-] вернул newxor.dpr как в версии 3.2.0;
[+] заменен TTRrayIcon на TJvTrayIcon;

Оффтоп

PanAm · 07.09.2008, 04:51

3.3.6 от 05.09.2008
не сохраняется при выходе состояние переключателя "способ внедрения.."

NLObP · 07.09.2008, 11:34

Цитата:

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

3.3.6 от 05.09.2008
не сохраняется при выходе состояние переключателя "способ внедрения.."

Никогда и не сохранялось.

[+] сохраняем выбранный метод внедрения;

ennot · 07.09.2008, 16:21

Версия 3.3.6. И есть два ноута: на первом стоит Vista Buissness x32, на втором Vista Home Premium SP1 x32. Копии линейки однаковые. Запуск от админа. Контроль юзеров выключен. FW нет. Антивирусов нет.

Так вот проблема в том что на первом ноуте все работает, а на втором линейка трапается с криками (крики ниже) сразу после авторизации (или после выбора сервера, но сообщение чуть иначе). Изменение способа inject не влияет.

Где искать камни?

ICQ 394054815

Код:

OS: Windows XP 5.1 (Build: 2600)
CPU: GenuineIntel PentiumPro-class processor @ 1796 MHz with 1023MB RAM
Video: NVIDIA GeForce 8400M GT (111)

General protection fault!

History: NConsoleWnd::RequestAuthLogin <- NCVirtualWndMain::PassToFocusedWindow <- NCVirtualWndMain::PassToFocusedWindow <- NCVirtualWndMain::PassToFocusedWindow <- NCVirtualWndMain::PassToFocusedWindow <- NCVirtualWndMain::DispatchWndMsg <- NConsoleWnd::DispatchWndMsgX <- NConsoleWnd::DispatchWndMsg <- UWindowsViewport::ViewportWndProc <- WWindow::StaticProc <- MessagePump <- MainLoop

xkor · 07.09.2008, 16:23

ennot, eula-e.dat есть в папке system клиента?, если нет то из за того что нет)

ennot · 07.09.2008, 16:42

Цитата:

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

ennot, eula-e.dat есть в папке system клиента?, если нет то из за того что нет)

Разумеется есть. Клиенты полностью одинаковые (специально синкнул).

Такой трап возникает если "перехват" включать после логина и перед выбором сервера.

Код:

OS: Windows XP 5.1 (Build: 2600)
CPU: GenuineIntel PentiumPro-class processor @ 1796 MHz with 1023MB RAM
Video: NVIDIA GeForce 8400M GT (111)

General protection fault!

History: UNetworkHandler::Tick <- Function Name=RevivePacket <- UGameEngine::Tick <- UpdateWorld <- MainLoop

Breadfan · 07.09.2008, 22:09

Чтобы исключить перехват до выбора гейм сервера, добавь в Неигровые порты 2106;

PanAm · 08.09.2008, 14:38

не писал, думал привыкну, а нет..

на вкладке "просмотр" в списке паетов, можно номер пакета поставить первым столбцом?