Вернуться   CoderX :: Forums > Основные форумы > Программинг
Войти через OpenID

Программинг Форум для тем связанных с программированием

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
 
 
Опции темы Опции просмотра
Старый 21.10.2009, 15:22   #1
Новичок
 
Регистрация: 26.01.2009
Сообщений: 4
Сказал Спасибо: 2
Имеет 1 спасибку в 1 сообщении
Stimer пока неопределено
По умолчанию Вопрос по AuthLogin

Приветствую!
Решил переписать своего старого бота С6 под Грацию финал, столкнулся с такой проблемой... прошел авторизацию на логине дошел до гейма отправил протокол - получил ключ и стопарнулся на пакете AuthLogin.
В интерлюде ет было так:

Код:
procedure GS_RequestAuthLogin(login: string);
var
  data: array[0..78] of byte;
  i,len: integer;
  ulogin: string;
begin
  len:=23+(length(login)*2);
  data[0]:=$08;
  for i:=1 to length(login) do begin
    ulogin:=UOrd(login[i]);
    data[i*2-1]:=byte(ulogin[1]);
    data[i*2]:=byte(ulogin[2]);
  end;
    data[len-22]:=$00;
    data[len-21]:=$00;
    data[len-20]:=SessionKey2[4];
    data[len-19]:=SessionKey2[5];
    data[len-18]:=SessionKey2[6];
    data[len-17]:=SessionKey2[7];
    data[len-16]:=SessionKey2[0];
    data[len-15]:=SessionKey2[1];
    data[len-14]:=SessionKey2[2];
    data[len-13]:=SessionKey2[3];
    data[len-12]:=SessionKey1[0];
    data[len-11]:=SessionKey1[1];
    data[len-10]:=SessionKey1[2];
    data[len-9]:=SessionKey1[3];
    data[len-8]:=SessionKey1[4];
    data[len-7]:=SessionKey1[5];
    data[len-6]:=SessionKey1[6];
    data[len-5]:=SessionKey1[7];
    data[len-4]:=$01;
    data[len-3]:=$00;
    data[len-2]:=$00;
    data[len-1]:=$00;
    SendGsp(data,len,true);

end;
Подампил пакеты клиента, заметил разницу, дописал константную постоянную:
Код:
procedure GS_RequestAuthLogin(login: string);
var
  data: array[0..78] of byte;
  i,len: integer;
  ulogin: string;
begin
  len:=35+(length(login)*2);
  data[0]:=$2B;
  for i:=1 to length(login) do begin
    ulogin:=UOrd(login[i]);
    data[i*2-1]:=byte(ulogin[1]);
    data[i*2]:=byte(ulogin[2]);
  end;
    data[len-34]:=$00;
    data[len-33]:=$00;
    data[len-32]:=SessionKey2[4];
    data[len-31]:=SessionKey2[5];
    data[len-30]:=SessionKey2[6];
    data[len-29]:=SessionKey2[7];
    data[len-28]:=SessionKey2[0];
    data[len-27]:=SessionKey2[1];
    data[len-26]:=SessionKey2[2];
    data[len-25]:=SessionKey2[3];
    data[len-24]:=SessionKey1[0];
    data[len-23]:=SessionKey1[1];
    data[len-22]:=SessionKey1[2];
    data[len-21]:=SessionKey1[3];
    data[len-20]:=SessionKey1[4];
    data[len-19]:=SessionKey1[5];
    data[len-18]:=SessionKey1[6];
    data[len-17]:=SessionKey1[7];
    data[len-16]:=$08;
    data[len-15]:=$00;
    data[len-14]:=$00;
    data[len-13]:=$00;
    data[len-12]:=$6B;
    data[len-11]:=$01;
    data[len-10]:=$00;
    data[len-9]:=$00;
    data[len-8]:=$00;
    data[len-7]:=$00;
    data[len-6]:=$00;
    data[len-5]:=$00;
    data[len-4]:=$01;
    data[len-3]:=$00;
    data[len-2]:=$00;
    data[len-1]:=$00;
    SendGsp(data,len,true);

end;
Посылаю в ответ тишина, смотрю дампы бота и клиента..
Клиент:
2B 73 00 74 00 69 00 6D 00 65 00 72 00 66 00 78 00 00 00 C6 02 F7 76 47 78 39 80 26 7F A2 87 19 54 D1 D2 08 00 00 00 6B 01 00 00 00 00 00 00 01 00 00 00
Бот:
2B 73 00 74 00 69 00 6D 00 65 00 72 00 66 00 78 00 00 00 8C 77 94 A3 3B 33 5D F4 00 00 00 00 00 00 00 00 08 00 00 00 6B 01 00 00 00 00 00 00 01 00 00 00
Собственно делаю выводы что с времен Ил чет изменилось, дайте ктонить информацию откуда растут значения выделенные.

Последний раз редактировалось Stimer, 21.10.2009 в 15:26.
Stimer вне форума   Ответить с цитированием
 

  CoderX :: Forums > Основные форумы > Программинг



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 22:41.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!