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

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

xkor · 08.12.2010, 01:11

Yegor, гы, я и не знал что там пакеты есть, я тупо прописывал пути к сорцам в путях поиска)

NLObP · 11.12.2010, 03:35

Выложил свежую версию 3.5.33.166.

Цитата:

Revision: 257
Author: nlobp
Date: 2:28:46, 11 декабря 2010 г.
Message:
[+] при смене языка загружается соответствующий ini файл.
[+] добавил файлы на английском языке: ClassIdEng.ini, ItemsIdEng.ini, NpcsIdEng.ini, SkillsIdEng.ini, SysMsgIdEng.ini (спасибо Breadfan)
[+] добавил галочку не вести никаких логов ни пакетов, ни сообщений.[*] добавил некоторые пакеты в packets.ini

Пробуем. Сообщаем о багах.

~ZooM~ · 11.12.2010, 20:16

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

//nlobp: ничего не видно. Попробуй версию обновить. Если будет ошибка, опиши после каких действий она происходит. И прикрепи к сообщению заархивированный файл l2ph.elf.

QaK · 12.12.2010, 20:49

~ZooM~, во-первых, для кого прикрепленные темы с говорящими за себя названиями в основном разделе созданы? Во-вторых, судя по скрину(глаза сломаешь ппц, пока поймешь) пакеты идут левые, отсюда 2 варианта: или шифрация дополнительная, или криво настроеный пакетхак. В любом случае не в эту тему.

skiner4119 · 21.12.2010, 13:46

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

Цитата:

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

Репозиторий находится тут (открывать через SVN клиент)
Удобный просмотр репозитория через браузер тут
Скомпилированные версии тут

Есть ли предложения по модернизации существующего кода с описанием как должно и что хотелось бы заменить/добавить?

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

новая версея пх на фрэе неработает! испробывал на 9джава серваках - гэйм гуард сразу её выпасает и отключает клиент- защиты внутри некакой клиент нс софтовский базовый патч я урезал так что внутри некакой хрени недолжно быть

alexteam · 21.12.2010, 19:50

для фреи над чуть чуть модифицировать обуфускатор айдишникоф пакетов..

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

delphi Код:

procedure _init_tables(seed: integer; _2_byte_size: integer);
  var
    i : integer;
    x : Char;
    x2: Word;
    rand_pos : integer;
    cur_pos : integer;
  begin
    with CorrectorData^ do begin
      _1_byte_table := '';
      _2_byte_table := '';

      _2_byte_table_size := _2_byte_size;

      for i := 0 to $D0 do begin
        _1_byte_table := _1_byte_table + chr(i);
      end;
      for i := 0 to _2_byte_size do begin
        _2_byte_table := _2_byte_table + chr(i) + #$0;
      end;
      _pseudo_srand(seed);
      for i := 2 to $D1 do begin
        rand_pos := (_pseudo_rand mod i) + 1;
        x := _1_byte_table[rand_pos];
        _1_byte_table[rand_pos] := _1_byte_table[i];
        _1_byte_table[i] := x;
      end;

      cur_pos := 3;
      for i := 2 to _2_byte_size+1 do begin
        rand_pos := _pseudo_rand mod i;
        x2 := PWord(@_2_byte_table[rand_pos * 2 + 1])^;
        PWord(@_2_byte_table[rand_pos * 2 + 1])^:=PWord(@_2_byte_table[cur_pos])^;
        PWord(@_2_byte_table[cur_pos])^:=x2;
        cur_pos := cur_pos + 2;
      end;

      {$ifdef FREYA}
      cur_pos := Pos(#$11, _1_byte_table);
      x := _1_byte_table[$12];
      _1_byte_table[$12] := #$11;
      _1_byte_table[cur_pos]:=x;
      {$endif}

      cur_pos := Pos(#$12, _1_byte_table);
      x := _1_byte_table[$13];
      _1_byte_table[$13] := #$12;
      _1_byte_table[cur_pos]:=x;

      cur_pos := Pos(#$B1, _1_byte_table);
      x := _1_byte_table[$B2];
      _1_byte_table[$B2] := #$B1;
      _1_byte_table[cur_pos]:=x;

      {$ifdef FREYA}
      cur_pos := Pos(#$D0, _1_byte_table);
      x := _1_byte_table[$D1];
      _1_byte_table[$D1] := #$D0;
      _1_byte_table[cur_pos]:=x;
      _id_mix := true;
      {$endif}
    end;
  end;

думаю понятно.

Breadfan · 21.12.2010, 20:14

Цитата:

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

новая версея пх на фрэе неработает! испробывал на 9джава серваках - гэйм гуард сразу её выпасает и отключает клиент- защиты внутри некакой клиент нс софтовский базовый патч я урезал так что внутри некакой хрени недолжно быть

"- Вранье!
- И интереснее всего в этом вранье то, что он - вранье от первого до последнее слова." (М.Булгаков)
Все там работает, я именно новой версией и подключался и делал инишки с итемами\скилами.

unknowned · 21.12.2010, 20:48

skiner4119 и
Breadfan, вы бы написали какие сервера, а то не понятно где у вас работает, а где не работает. Короч бред

Breadfan · 21.12.2010, 20:52

что писать то? на сервере без защит - буит работать, на сервере с защитой - не будет...Или тяжело понять данный принцип?

unknowned · 21.12.2010, 21:10

Цитата:

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

для фреи над чуть чуть модифицировать обуфускатор айдишникоф пакетов..

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

delphi Код:

procedure _init_tables(seed: integer; _2_byte_size: integer);
  var
    i : integer;
    x : Char;
    x2: Word;
    rand_pos : integer;
    cur_pos : integer;
  begin
    with CorrectorData^ do begin
      _1_byte_table := '';
      _2_byte_table := '';

      _2_byte_table_size := _2_byte_size;

      for i := 0 to $D0 do begin
        _1_byte_table := _1_byte_table + chr(i);
      end;
      for i := 0 to _2_byte_size do begin
        _2_byte_table := _2_byte_table + chr(i) + #$0;
      end;
      _pseudo_srand(seed);
      for i := 2 to $D1 do begin
        rand_pos := (_pseudo_rand mod i) + 1;
        x := _1_byte_table[rand_pos];
        _1_byte_table[rand_pos] := _1_byte_table[i];
        _1_byte_table[i] := x;
      end;

      cur_pos := 3;
      for i := 2 to _2_byte_size+1 do begin
        rand_pos := _pseudo_rand mod i;
        x2 := PWord(@_2_byte_table[rand_pos * 2 + 1])^;
        PWord(@_2_byte_table[rand_pos * 2 + 1])^:=PWord(@_2_byte_table[cur_pos])^;
        PWord(@_2_byte_table[cur_pos])^:=x2;
        cur_pos := cur_pos + 2;
      end;

      {$ifdef FREYA}
      cur_pos := Pos(#$11, _1_byte_table);
      x := _1_byte_table[$12];
      _1_byte_table[$12] := #$11;
      _1_byte_table[cur_pos]:=x;
      {$endif}

      cur_pos := Pos(#$12, _1_byte_table);
      x := _1_byte_table[$13];
      _1_byte_table[$13] := #$12;
      _1_byte_table[cur_pos]:=x;

      cur_pos := Pos(#$B1, _1_byte_table);
      x := _1_byte_table[$B2];
      _1_byte_table[$B2] := #$B1;
      _1_byte_table[cur_pos]:=x;

      {$ifdef FREYA}
      cur_pos := Pos(#$D0, _1_byte_table);
      x := _1_byte_table[$D1];
      _1_byte_table[$D1] := #$D0;
      _1_byte_table[cur_pos]:=x;
      _id_mix := true;
      {$endif}
    end;
  end;

думаю понятно.

На каком конкретней сервере это нужно ? пока обходился ваще без обфускации.