Нужна помощь...

[DjSeNseI]

xkor:
Это шок-5 ип???:
217.13.197.170
Да да при конекти на этот ип этот обрубок приходит...
xkor скажи плиз вчём может быть причина на приходящий вот такой вота пакет.

[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

[xkor]

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

Это шок-5 ип???:
217.13.197.170

нет

[DjSeNseI]

ratvier: Ты через что делаешь конект к серваку???
Я пробовал через сокетTcp и через Indy idTcp всё равно приходит такой вот инит. Кстате ещё пробовал через Winapi конект тоже такой инит...

[ratvier]

DjSeNseI, Юзаю winsocket 2.2
Есть подозрение, что ты что-то неправильно делаешь

[DjSeNseI]

Ща тогда гляну что там у меня за глюк...

[xkor]

ты точно из сокета читаеш весь пакет а не ту часть что первой придти успела?, прост обычно функции чтения из сокета читают стока данных скока уже пришло и не ждут того количества которое ты просишь

[PanAm]

ИМХО, народ вы не туда смотрите, по ссылке что я давал, подтвержденный факт что приходит именно такой пакет, вопрос только в том, что это - ЛС линейки, какой либо антибот или вообще левый сервис. Автор проверь на 100% куда именно ты конектишся.

[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]

Помогите пожалуйста.
Кому не валко выложите функцию на пакет 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;