ДЕШИФРУЕМ ТРАФИК

[QaK]

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

К тому же кто-то уже писал на этом форуме, что вроде, разобрался с исходящим трафиком!

это был VOron

[nezabudkin]

QaK, несомненно VORON что-то ломанул и расписал здесь принцип взлома, но это был другой серв.

[QaK]

nezabudkin, VORON гамал именно на нем, просо после первой смены шифрации ее удалось ломануть, а потом они что-то накрутили там + VORON больше не пытался =)

[nezabudkin]

Продолжение обсуждения новой защиты на _L/2/S/e/r/v/ тут:
http://coderx.ru/showthread.php?t=1165

[LunaticCalm]

шифровка/дешифровка траффика давно решена в волкере. на каждом сервере существует , так называемый , Token - открытый ключ шифрования траффика и в самом боте эта муть давно работает ... так что на серверах, где разрешен торговый бот админы сами выкладывают Token для народа
Наткнулся в WPF на одну занимательную штуку - олгоритмы шифрования/дешифрования траффика. решил выложить ( может кто разберется)
Оффтоп

library tstdll5;

uses FastMM4, SysUtils, Windows;//, Classes;

type
  HWND = type LongWord;
  DWORD = LongWord;
  UINT = LongWord;

// демонстрационная DLL tstdll5.dll используется в скрипте 'demo_la2-endecGS-5.fsc'
// содержит ф-ции автоопределения трафика LA2 и де/кодирование трафика LA2 GS.
//


var /// ВНИМАНИЕ!!! Глобальные переменные ОБЩИЕ для всех соединений использующих эту DLL !!!
  global_i : integer;
  global_j : integer;
  // ...


function StrPosLen(const Str1, Str2: PChar; Str1Len, Str2Len: dword): PChar; assembler;
//  StrPosLen - ищет вхождение одного массива байт в другом, с заданной длиной.
// Str2 ищется в Str1 
asm
  // EAX - Str1, EDX - Str2, ECX - Str1Len,               str2 - sub
        PUSH    EDI
        PUSH    ESI
        PUSH    EBX
        OR      EAX,EAX         // Str1
        JE      @@2             // если строка Str1 пуста - на выход
        OR      EDX,EDX         // Str2 - подстрока
        JE      @@2             // если строка Str2 пуста - на выход
        MOV     EBX,[ESP+14H]   // Str2Len    - подстрока
        SUB     ECX,EBX         // ECX == разница длин строк : Str1 - Str2
        JBE     @@2             // если длина подсроки больше длины строки - выход
        DEC     EBX             // Str2Len-1
        MOV     EDI,EAX         // EDI  - начало строки Str1
@@1:    MOV     ESI,EDX         // ESI - смещение строки Str2
        LODSB                   // загужаем первый символ подстроки в AL
        REPNE   SCASB           // ищем этот символ в строке EDI
        JNE     @@2             // если символ не обнаружен - на выход
        MOV     EAX,ECX         // сохраним разницу длин строк
        PUSH    EDI             // запомним текущее смещение поиска
        MOV     ECX,EBX
        REPE    CMPSB           // побайтно сравниваем строки
        POP     EDI
        MOV     ECX,EAX
        JNE     @@1             // если строки различны - ищем следующее совпадение первого символа
        LEA     EAX,[EDI-1]
        JMP     @@3
@@2:    XOR     EAX,EAX
@@3:    POP     EBX
        POP     ESI
        POP     EDI
end;



function Trafic_Detector(pc1 : pchar; pc1_le : integer) : integer; stdcall;
var
  _gAbsNumPkt, TrafType, tPDecode, tKeyType, Protocol, isLS, isGS : pInteger;
  _dFromServ : boolean;
  _key, _Buff : pchar;
  _key_le : integer;  // размер буфера ключа
  _key_sz : pInteger; // указатель на реальный размер ключа (в буфере)
  _Buff_le : integer; // размер буфера пакета
  ss : shortstring;
  i : integer;
begin
  // Внимание! не путайте переменные с указателями на переменные =)
  result := -1;
  try
    // установим указатели на соответствующие переменные
    // (FormatPck('dddddddbdcb',[_gAbsNumPkt, TrafType, tPDecode, tKeyType, Protocol, isLS, isGS, _kci, i2 , _dFromServ, _dBuff]);)
    //
    _gAbsNumPkt := pInteger(pc1);  // указатели на переменные...
    TrafType := pInteger(pc1+4);
    tPDecode := pInteger(pc1+8);
    tKeyType := pInteger(pc1+12);
    Protocol := pInteger(pc1+16);
    isLS := pInteger(pc1+20);
    isGS := pInteger(pc1+24);
    _key_le := pInteger(pc1+28)^; // указатель на размер буфера ключа
    _key := pc1+32;  // указатель на буфер ключа
    _key_sz := pInteger(pc1+32+_key_le); // указатель на размер ключа в буфере ключа
    _dFromServ := pByte(pc1+32+_key_le+4)^ <> 0;
    _Buff_le := pInteger(pc1+32+_key_le+5)^; // размер буфера пакета (тут рамер буфера пакета равен фактическому размеру пакета, так как изменять сам пакет не будем ...)
    _Buff := pc1+32+_key_le+9; // указатель на буфер пакета
    //
    // Определим тип трафика (в этом примере нас интересует только LA2)
    //
    if (TrafType^ = 0) and (_gAbsNumPkt^ = 1) then begin
      case _Buff_le of
        $0B,$9B,$AB,$BA: begin
                           TrafType^:= 2;  // LA2
                           isLS^ := 1;      // LS
                           if _Buff_le = $0B then tKeyType^ := 1 else tKeyType^ := 2; // это для LS, пока не потребуется
                         end;
        $107: begin
                TrafType^ := 2;  // LA2
                isGS^ := 1;      // GS
              end;
        $07: begin
               TrafType^ := 2;  // LA2
               isGS^ := 2;      // GS
             end;
       else if _Buff_le >= $107 then begin // более надежный способ определить LA2 GS
              ss := #$05#$52#$05#$54#$07#$51#$51#$55#$07#$02#$53#$53#$00#$52#$05#$52;
              if StrPosLen(_Buff, @ss[1], _Buff_le, 16) <> nil then begin
                //  если найдена строчка '.R.T.QQU..SS.R.R' (древний рим епть =) тогда это гейм сервер ла2.
                TrafType^ := 2;  // LA2
                isGS^ := 2;      // GS
              end;
            end;
      end;
      //
      if isGS^ > 0 then Protocol^ := pInteger(_Buff+3)^; // берем номер протокола GS
    end;
    //
    // определим ключ GS:
    //
    if (_gAbsNumPkt^ = 2) then
    if  (TrafType^ = 2) and (isGS^ > 0) and _dFromServ then begin
      if (_Buff_le = 12) then tKeyType^ := 1; // 12 байтный пакет - тип 1. GSDecodeJ (90% l2j)
      if (_Buff_le = 16) then tKeyType^ := 2; // 16 байтный пакет - тип 2. GSDecode (sub-off servers)
      if (_Buff_le = $1A) then tKeyType^ := 3; // часть фри серверов Interlude
      if (_Buff_le = $1C) then tKeyType^ := 3; // часть фри серверов Interlude
      if (_Buff_le = $15) then tKeyType^ := 3; // официальные сервера Interlude (на данный момент)
      if (tKeyType^ > 0) and (_key_le >= 16) then begin
        CopyMemory(_key, _Buff+4, 16);
        if tKeyType^ < 3 then begin
          ss := #$A1#$6C#$54#$87;
          CopyMemory(Pchar(_key+4), @ss[1], 4);  // C4/C5/псевдо интерлюд.
          _key_sz^ := 8;
        end;
        if tKeyType^ = 3 then begin
          ss := #$C8#$27#$93#$01#$A1#$6C#$31#$97;
          CopyMemory(_key+8, @ss[1], 8);  // интерлюд.
          _key_sz^ := 16;
        end;
      end;
    end;
    result := pc1_le;
  except
    result := -2;
  end;
end;



function DeXorGS(buff : pchar; buff_sz : integer; key : pchar; key_sz, keytype : integer) : integer; stdcall;
var  i,j : integer;
     b1,b2 : byte;
begin
  result := 0;
  // стандартный алгоритм XOR декодирования GS la2
  if (key_sz = 0) or (buff_sz = 0) then exit;
  b1 := 0; j := 0;
  for i := 2 to buff_sz-1 do begin
    b2 := byte(buff[i]);
    buff[i] := char(b2 xor byte(key[j]) xor b1);
    b1 := b2;
    Inc(j,1);
    if j >= key_sz then j := 0;
  end;
  case keytype of
    1: if key_sz > 3 then Inc(pint(key)^, buff_sz-2);
    2: if key_sz > 7 then Inc(pint64(key)^, buff_sz-2);
    3: if key_sz > 15 then Inc(pint64(key+8)^, buff_sz-2);
  end;
end;

function EnXorGS(buff : pchar; buff_sz : integer; key : pchar; key_sz, keytype : integer) : integer; stdcall;
var  i,j : integer;
     b1 : byte;
begin
  result := 0;
  // стандартный алгоритм XOR декодирования GS la2
  if (key_sz = 0) or (buff_sz = 0) then exit;
  b1 := 0; j := 0;
  for i := 2 to buff_sz-1 do begin
    buff[i] := char((byte(buff[i]) xor byte(key[j]) xor b1));
    b1 := byte(buff[i]);
    Inc(j,1);
    if j >= key_sz then j := 0;
  end;
  case keytype of
    1: if key_sz > 3 then Inc(pint(key)^, buff_sz-2);
    2: if key_sz > 7 then Inc(pint64(key)^, buff_sz-2);
    3: if key_sz > 15 then Inc(pint64(key+8)^, buff_sz-2);
  end;
end;


{экспортируем ф-ции}
exports Trafic_Detector, DeXorGS, EnXorGS;

begin
end.

может, получится соорудить нечто подобное для пакет хака.
ЗЫ: желательно с привязкой к токену сервера , тогда головняков с дешифровкой трафика не будет вообще

[PanAm]

LunaticCalm, Хоть один здраво мыслящий человек!! а мы то тут год фигней страдаем, алгоритмы перебираем, а ответ прост до безобразия - найти токен и все в ожуре.

[QaK]

LunaticCalm, если ты не знаешь, о чем речь, нефиг "умными" словами бросаться.

[LunaticCalm]

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

LunaticCalm, если ты не знаешь, о чем речь, нефиг "умными" словами бросаться.

ну смотри смотри список токенов рабочего волкера
Оффтоп

[out]
ns3=www.elmore.ru (C3/ 21.08.05)
fs3=0 0
ts3=5B 35 33 30 5D 39 34 2D 33 31 3D 3D 2D 25 26 40 33 5E 2B 5D
ns4=(?) games.adsl.by
fs4=0 0
ts4=5B 3B 27 2E 5D 36 33 2D 34 32 3D 3D 2D 25 26 40 21 5E 2B 5D
ns2=www.la2.raid.ru (протокол 417)
fs2=100000 0
ts2=5B 3B 27 2E 5D 33 32 2D 39 35 3D 3D 2D 25 26 40 21 5E 2B 5D

[ServerToken]
ver=0.82
count=34
ns0=Оригинальный Original Std
fs0=0 0
ts0=5B 3B 27 2E 5D 39 34 2D 33 31 3D 3D 2D 25 26 40 21 5E 2B 5D
ns1=Второй Second Std
fs1=80078 0
ts1=5F 3B 35 2E 5D 39 34 2D 33 31 3D 3D 2D 25 78 54 21 5E 5B 24
ns2=www.la2.ru (dll: 06.07.05)
fs2=0 0
ts2=5B 3B 27 2E 5D 25 25 2D 33 27 3D 3D 2D 25 26 40 21 5E 2B 5D
ns3=www.la2.raid.ru (656)
fs3=100000 0
ts3=5F 3B 35 2E 5D 39 34 2D 33 31 3D 3D 2D 25 78 54 21 5E 5B 24
ns4=laonline2.ru
fs4=180078 0
ts4=5B 78 79 7A 5D 37 36 2D 38 32 3D 3D 2D 25 26 40 21 5E 2B 5D
ns5=games.adsl.by
fs5=0 0
ts5=5B 62 6F 74 69 00 6E 61 00 68 75 69 00 7A 61 65 62 61 6C 5D
ns6=l2online.ru Melcosoft (dll: 01.01.06)
fs6=180060 0
ts6=6E 63 73 6F 66 74 6C 69 6E 65 61 67 65 32 2E 63 6F 6D 20 20
ns7=games.alkar.net (dll: 28.07.05)
fs7=3 1E61
ts7=4C 38 37 2B 61 51 33 21 3D 37 41 67 25 6A 6B 35 2B 3D 26 46
ns8=www.lineage2.degunino.net
fs8=180078 0
ts8=5B 3B 27 2E 5D 31 37 2D 35 32 3D 3D 2D 25 26 40 21 5E 2B 5D
ns9=game.aaanet.ru/LineAge2 (dll: 01.08.05)
fs9=1 0
ts9=5B 3B 27 2E 5D 33 37 2D 35 32 3D 3D 2D 25 26 40 21 5E 2B 5D
ns10=(?) tenet.ua (протокол 416)
fs10=7 1E61
ts10=5B 3B 27 2E 5D 31 31 2D 39 30 73 61 73 25 FA FE 21 5E 2B 5D
ns11=(?) www.l2utopia.com (dll: 04.08.05)
fs11=0 0
ts11=38 23 31 3D 63 28 22 3E 2A 40 7D 2D 2A 24 30 78 3A 3B 2E 5D
ns12=lineage2.gamers-online.org
fs12=0 0
ts12=5B 35 33 30 5D 39 34 2D 33 31 3D 3D 2D 25 26 40 33 5E 2B 5D
ns13=l2.gamersx.ar
fs13=0 0
ts13=5B 3A 60 2C 5D 39 34 2D 33 31 3D 3D 2D 25 26 40 21 5E 2B 5D
ns14=www.l2extreme.com
fs14=0 0
ts14=5F 3B 35 2E 5D 39 34 2D 33 31 3D 3D 2D 25 78 54 21 5E 5B 24
ns15=la2.tomsk.ru
fs15=0 0
ts15=5B 3B 27 2E 5D 35 36 2D 34 30 3D 3D 2D 25 26 40 21 5E 2B 5D
ns16=www.hyperion2.org
fs16=0 0
ts16=5B 3B 27 2E 5D 39 34 2D 33 31 3D 3D 2D 25 26 40 21 37 2B 5D
ns17=www.iDragon3d.com (01.11.05)
fs17=0 0
ts17=5B 3B 27 2E 5D 37 37 2D 37 37 3D 3D 2D 25 26 40 21 5E 2B 5D
ns18=www.battlefordawn.net (bfd.icn.lt)
fs18=0 0
ts18=5B 3B 27 2E 5D 33 36 2D 34 35 3D 3D 2B 25 26 40 21 31 2B 5D
ns19=www.lin2hobby.com (12.08.05)
fs19=0 0
ts19=5B 3B 27 2E 5D 31 33 2D 36 39 3D 3D 2D 25 26 40 21 5E 2B 5D
ns20=la2.starnet.md
fs20=0 0
ts20=5B 65 00 78 00 63 00 65 00 70 00 74 00 69 00 6F 00 6E 00 5D
ns21=la2.kiev.ua
fs21=0 0
ts21=5B 73 1F D9 5D 39 34 2D 33 31 3D 3D 2D 25 26 40 21 5E 2B 5D
ns22=www.lineage2.wnet.ua
fs22=0 0
ts22=5B 3B 27 2E 5D 33 36 2D 34 35 3D 3D 2B 25 26 40 21 31 2B 5D
ns23=www.lin2.dp.ua
fs23=100000 0
ts23=5B 65 00 78 00 63 00 65 00 70 00 74 00 69 00 6F 00 6E 00 5D
ns24=club-ix.net.ua
fs24=0 0
ts24=5B 34 31 39 5D 39 34 2D 33 31 3D 3D 2D 25 26 40 33 5E 2B 5D
ns25=lineage.comandogp.com
fs25=0 0
ts25=5B 3B 27 2E 5D 31 32 2D 33 31 3D 3D 2D 25 26 40 21 5E 2B 5D
ns26=deviantrealms.com (Alexandria)
fs26=0 0
ts26=5B 65 00 78 00 63 00 65 00 70 00 74 00 69 00 6F 00 6E 00 5D
ns27=deviantrealms.com (Zephyr)
fs27=0 0
ts27=5B 3B 27 2E 5D 39 34 2D 33 31 3D 3D 2D 25 26 40 21 5E 2B 5D
ns28=l2hispano.com
fs28=0 0
ts28=5B 65 00 78 00 63 00 65 00 70 00 74 00 69 00 6F 00 6E 00 5D
ns29=l2elite.us
fs29=0 0
ts29=5B 69 3C 33 64 30 35 6D 34 63 74 65 68 65 6D 75 21 31 21 5D
ns30=splendor.ru
fs30=0 0
ts30=5B 34 31 39 5D 39 34 2D 33 31 3D 3D 2D 25 26 40 33 5E 2B 5D
ns31=Avalon lineage2.net.ua (03.06)
fs31=0 0
ts31=5F 3B 35 2E 5D 39 34 2D 33 31 3D 3D 2D 25 78 54 21 5E 5B 24
ns32=warsmith (03.06)
fs32=0 0
ts32=5B 34 31 39 5D 39 34 2D 33 31 3D 3D 2D 25 26 40 33 5E 2B 5D
ns33=reborn.bfd.lt (03.06)
fs33=80020 0
ts33=2A C9 0F A4 EE 08 D2 D7 0F C0 C1 88 C9 0F AF FD 89 FE 8A CE

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

[dmitry501]

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

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

Еще раз и получишь бан за нубизм

[KASH]

Всем привет! В общем проблема такая на моем сервере сменили сборку на платную и соответственно защиту (ГФШ Gracia Part 2 есть подозрения что сборка описана здесь: http://www.coderx.ru/showthread.php?...t=Kerio&page=3). Поюзав скилл Greate Battle Heal в сидячем положении 20 раз вот что я получил:
Оригинальный пакет:
39 C2 04 00 00 00 00 00 00 00

60 A2 E5 FB B0 A0 EF A3 E2 E8
60 A2 E5 FB B0 A0 EF A3 94 9F
60 A2 E5 FB B0 A0 EF A3 8E 85
60 A2 E5 FB B0 A0 EF A3 80 8B
60 A2 E5 FB B0 A0 EF A3 BA B1
60 A2 E5 FB B0 A0 EF A3 AC A7
60 A2 E5 FB B0 A0 EF A3 A6 AD
60 A2 E5 FB B0 A0 EF A3 58 53
63 A2 E5 FB B0 A0 EF A3 52 59
63 A3 E5 FB B0 A0 EF A3 44 4F
63 A3 E2 FB B0 A0 EF A3 7E 75
63 A3 E2 FA B0 A0 EF A3 70 7B
63 A3 E2 FA B3 A0 EF A3 6A 61
63 A3 E2 FA B3 A1 EF A3 1C 17
63 A3 E2 FA B3 A1 EC A3 16 1D
63 A3 E2 FA B3 A1 EC A2 08 03
63 A3 E2 FA B3 A1 EC A2 05 09
63 A3 E2 FA B3 A1 EC A2 33 3C
63 A3 E2 FA B3 A1 EC A2 29 26
63 A3 E2 FA B3 A1 EC A2 27 28

Цветом выделена закономерность которая сразу бросилась в глаза (и я почему то сразу подумал раз в байт изменяются закономерно то и ключ 8 байт хотя наверно я заблуждаюсь).
Помогите пожалуйста разобраться.

Добавлено через 4 минуты
Сразу уточняю трафик от клиента к серверу

Добавлено через 1 час 53 минуты
Проведя еще пару "испытаний" я выяснил, что ключь(для маленьких пакетов) меняется через каждые 8 пакетов (вне зависимости от длинны пакета):

6F 66 3F 6C 78
6F 66 3C 6C 78
6F 66 3C 6D 78
6F 66 3C 6D 79
6F 66 3C 6D 79
6F 66 3C 6D 79
6F 66 3C 6D 79
6F 66 3C 6D 79
6F 66 3C 6D 79
6F 66 3C 6D 79
6F 66 3C 6D 79
6F 66 3C 6D 79
6F 66 3C 6D 79
6F 66 3C 6D 79
6F 66 3C 6D 79
6C 66 3C 6D 79
6C 65 3C 6D 79
6C 65 3D 6D 79
6C 65 3D 62 79
6C 65 3D 62 7E
6C 65 3D 62 7E
6C 65 3D 62 7E
6C 65 3D 62 7E
6C 65 3D 62 7E
6C 65 3D 62 7E
6C 65 3D 62 7E
6C 65 3D 62 7E
6C 65 3D 62 7E
6C 65 3D 62 7E
6C 65 3D 62 7E