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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 01.12.2008, 20:41   #11
Пользователь
 
Аватар для DjSeNseI
 
Регистрация: 18.10.2008
Сообщений: 47
Сказал Спасибо: 18
Имеет 0 спасибок в 0 сообщенях
DjSeNseI пока неопределено
По умолчанию

xkor:
Это шок-5 ип???:
217.13.197.170
Да да при конекти на этот ип этот обрубок приходит...
xkor скажи плиз вчём может быть причина на приходящий вот такой вота пакет.
DjSeNseI вне форума   Ответить с цитированием
Старый 01.12.2008, 23:18   #12
Местный
 
Регистрация: 18.02.2008
Сообщений: 141
Сказал Спасибо: 16
Имеет 66 спасибок в 30 сообщенях
ratvier
По умолчанию

Вот так отвечает 217.13.197.170:2106

on_init
__________________________________________________ ____
0x00 | ba 00 00 ea d6 07 00 21 c6 00 00 7b 27 4a 38 ce
0x10 | b7 69 fd 90 0d 79 b5 5c d8 e4 87 f2 a4 47 17 85
0x20 | d1 55 00 58 38 c9 49 bc 1c 8d ee c3 f1 30 7d 32
0x30 | bf 4c dc 92 6b e5 2d f7 69 55 fa 9c 55 55 25 16
0x40 | 91 36 1c aa 50 c5 d9 8a 02 59 b1 9f d7 28 bc f3
0x50 | 72 4b 43 f0 f8 b3 30 60 51 ca 33 1a 17 72 a1 b1
0x60 | 95 2e 35 fe 0d 25 6c da b5 31 e7 ad a3 08 36 3a
0x70 | 43 35 18 a7 92 58 7a db 65 57 be 9f 7b d9 0b 32
0x80 | f1 0d 8b 6d 81 4e 32 6c 3a c2 b8 00 00 00 00 00
0x90 | 00 00 00 00 00 00 00 00 00 00 00 f5 21 63 1e 9c
0xa0 | 7d db ce 9b 6d 3f 1b c4 60 9f 40 00 00 00 00 00
0xb0 | 00 00 e2 c6 69 5e 09 9e 00 00

on_ggauth
__________________________________________________ ____
0x00 | 2a 00 0b ea d6 07 00 00 00 00 00 00 00 00 00 00
0x10 | 00 00 00 00 00 00 00 d5 18 6f 78 98 bd a7 3d 27
0x20 | 1c 9a 4e 80 6f 55 3d 27 1c 9a


LoginFail reason 0x14
ratvier вне форума   Ответить с цитированием
Старый 01.12.2008, 23:46   #13
Admin!
 
Аватар для xkor
 
Регистрация: 04.08.2007
Сообщений: 2,360
Сказал Спасибо: 113
Имеет 1,566 спасибок в 651 сообщенях
xkor на пути к лучшему
По умолчанию

Цитата:
Сообщение от DjSeNseI Посмотреть сообщение
Это шок-5 ип???:
217.13.197.170
нет
__________________
Я здесь практически не появляюсь!, Skype - ikskor
xkor вне форума   Ответить с цитированием
Старый 02.12.2008, 07:31   #14
Пользователь
 
Аватар для DjSeNseI
 
Регистрация: 18.10.2008
Сообщений: 47
Сказал Спасибо: 18
Имеет 0 спасибок в 0 сообщенях
DjSeNseI пока неопределено
По умолчанию

ratvier: Ты через что делаешь конект к серваку???
Я пробовал через сокетTcp и через Indy idTcp всё равно приходит такой вот инит. Кстате ещё пробовал через Winapi конект тоже такой инит...
DjSeNseI вне форума   Ответить с цитированием
Старый 02.12.2008, 09:53   #15
Местный
 
Регистрация: 18.02.2008
Сообщений: 141
Сказал Спасибо: 16
Имеет 66 спасибок в 30 сообщенях
ratvier
По умолчанию

DjSeNseI, Юзаю winsocket 2.2
Есть подозрение, что ты что-то неправильно делаешь
ratvier вне форума   Ответить с цитированием
Старый 02.12.2008, 10:35   #16
Пользователь
 
Аватар для DjSeNseI
 
Регистрация: 18.10.2008
Сообщений: 47
Сказал Спасибо: 18
Имеет 0 спасибок в 0 сообщенях
DjSeNseI пока неопределено
По умолчанию

Ща тогда гляну что там у меня за глюк...
DjSeNseI вне форума   Ответить с цитированием
Старый 02.12.2008, 10:38   #17
Admin!
 
Аватар для xkor
 
Регистрация: 04.08.2007
Сообщений: 2,360
Сказал Спасибо: 113
Имеет 1,566 спасибок в 651 сообщенях
xkor на пути к лучшему
По умолчанию

ты точно из сокета читаеш весь пакет а не ту часть что первой придти успела?, прост обычно функции чтения из сокета читают стока данных скока уже пришло и не ждут того количества которое ты просишь
__________________
Я здесь практически не появляюсь!, Skype - ikskor
xkor вне форума   Ответить с цитированием
Старый 02.12.2008, 15:25   #18
Местный
 
Аватар для PanAm
 
Регистрация: 18.01.2008
Сообщений: 286
Сказал Спасибо: 24
Имеет 133 спасибок в 80 сообщенях
PanAm
По умолчанию

ИМХО, народ вы не туда смотрите, по ссылке что я давал, подтвержденный факт что приходит именно такой пакет, вопрос только в том, что это - ЛС линейки, какой либо антибот или вообще левый сервис. Автор проверь на 100% куда именно ты конектишся.
PanAm вне форума   Ответить с цитированием
Старый 02.12.2008, 21:10   #19
Пользователь
 
Аватар для DjSeNseI
 
Регистрация: 18.10.2008
Сообщений: 47
Сказал Спасибо: 18
Имеет 0 спасибок в 0 сообщенях
DjSeNseI пока неопределено
По умолчанию

Да принцепи всё хочу чрез TcpClient сделать. Но по этому компаненту мало инфы. Хотя у мя есть не сколько вареантов на отправку пакетов.Ща занова пишу клиента

Добавлено через 1 час 44 минуты
Народ может быть чексума у мя не правельная???


----------------------------------------------------------------------
procedure TL2Control.LSSetCheckSum; LSSetCheckSum
var
Pkt : String;
I : Integer;
Chksum, ECX: Longint;
begin
Pkt := '';
for I := 1 to Packet.Size-8 do Pkt := Pkt + Packet.Body[i];

chksum := 0;
i := 1;

while (i < Length(Pkt)) do
begin
ecx := Ord(pkt[i]);
ecx := ecx or Ord(pkt[i+1])shl 8;
ecx := ecx or Ord(pkt[i+2])shl 16;
ecx := ecx or Ord(pkt[i+3])shl 24;
chksum :=chksum xor ecx;
i := i+4;
end;

Pkt := IntToHex(Chksum, 8);
Packet.Body[Packet.Size-4] := Chr(StrToInt('$'+Copy(Pkt,1,2)));
Packet.Body[Packet.Size-5] := Chr(StrToInt('$'+Copy(Pkt,3,2)));
Packet.Body[Packet.Size-6] := Chr(StrToInt('$'+Copy(Pkt,5,2)));
Packet.Body[Packet.Size-7] := Chr(StrToInt('$'+Copy(Pkt,7,2)));
end;

Последний раз редактировалось DjSeNseI, 02.12.2008 в 21:10. Причина: Добавлено сообщение
DjSeNseI вне форума   Ответить с цитированием
Старый 04.12.2008, 17:39   #20
Пользователь
 
Аватар для DjSeNseI
 
Регистрация: 18.10.2008
Сообщений: 47
Сказал Спасибо: 18
Имеет 0 спасибок в 0 сообщенях
DjSeNseI пока неопределено
По умолчанию

Помогите пожалуйста.
Кому не валко выложите функцию на пакет RequestAuthLogin.
Ну или кто нибудь гляньте мою:
Цитата:
function TL2Control.LSRequestAuthLogin; // <- LSRequestAuthLogin
var
Login,
Password: String;
begin
Result.Info := 'RequestAuthLogin';
Result.Size := 48;
Result.Body := #$00+
#$00+#$00+#$00+#$00+#$00+#$00+#$00+#$00+#$00+#$00+ #$00+#$00+#$00+#$00+
#$00+#$00+#$00+#$00+#$00+#$00+#$00+#$00+#$00+#$00+ #$00+#$00+#$00+#$00+#$00+#$00+
#$08+#$00+#$00+#$00+#$00+#$00+#$00+#$00+#$00+
#$00+#$00+#$00+#$00+
#$00+#$00+#$00+#$00;

// приводим к нужному виду логин и пароль
Login := InAccount.Username;
Password := InAccount.Password;
while Length(Login) < 14 do Login := Login + #$00;
while Length(Password) < 16 do Password := Password + #$00;

SetPeace( Login, Result, 2, 15);
SetPeace(Password, Result, 16, 31);

LSSetCheckSum(Result);
LSEncryptPacket(Result);
end;
DjSeNseI вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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