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

[NLObP]

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

Ну или кто нибудь гляньте мою

И ты в серьез думаешь, что по этому кусочку тебе помогут?

[DjSeNseI]

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

Добавлено через 3 минуты
И ещё кто нибудь знает с4 яву сборку с плохой защитой для эксперементов. Кто знает скажите название или адрес... Пожалуйста

[NLObP]

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

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

Добавлено через 3 минуты
И ещё кто нибудь знает с4 яву сборку с плохой защитой для эксперементов. Кто знает скажите название или адрес... Пожалуйста

Я это к тому, что по тому куску, что ты выложил много не понятно, что в нём делается.
Могу посоветовать локальный С4 сервер, тренеруйся сколько влезет.

Вот, я как то пробовал делать:

function pkt_ckecksum(pos: integer; count: integer):cardinal;
var
  i, j : integer;
  crc, chksum : longint;
begin
  j:=pos; //начало для подсчета контрольной суммы
  crc:=0;
  chksum:=0;
        for i:=0 to (count div 4) do //длину считаем блоками по 4
  begin
                crc:=PacketB[j];
                crc:=crc or (PacketB[j+1] shl 8);
                crc:=crc or (PacketB[j+2] shl 16);
                crc:=crc or (PacketB[j+3] shl 24);
        chksum := chksum xor crc;
    j:=j+4;
  end;
  //move(chksum,PacketB[count+pos],4);
  result:=chksum;
end;

procedure build_RequestAuthLogin();
begin
  //pos начинается с 0!!!
  InitPkt; //инициализируем пакет
  WriteW($32); //"\x32\x00" - длина пакета постоянна и равна 0x30 + 0x02
  WriteID($00); //"\x00" - тип пакета (0x00 - RequestAuthLogin)
  {pos:=$03;}
  WriteS(DefaultAccount); //"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00" - login
  pos:=$11; WriteS(DefaultPassword); //"\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00" - password
  pos:=33; WriteB($08); //"\x08" - означает конец секции login/password
//  WriteD($0); //"\x00\x00\x00\x00\x00\x00\x00\x00" - в c3 не применяется (зарезервированно?)
//  WriteD($0); //
  pos:=$2a; WriteD(pkt_ckecksum(2,40)); // чексумма
  WriteD($0); //"\x00\x00\x00\x00";
  //к.сумма считается для блока начиная со смещ. 2, длиной 40 байт
//  add_ckecksum(2,40);
end;

PS: придумал не сам, брал из материалов на разных сайтах.

[DjSeNseI]

Cпс тебе за помощь ща поробую...
А насщёт лакал серва у мя он стоит.

Добавлено через 1 час 9 минут
Всё равно у мя ни чего не получается.Вот такое вылазиет:
Client is not using latest Authentication method. (Min is 0)
Client is not using latest Authentication method. (Min is 0)
Client is not using latest Authentication method. (Min is 0)

[DjSeNseI]

Помогите плиз с отправкой пакетов через TcpClient...
Я совсем запутался и инфы в нете совсем нету про TcpClient.!.

[PanAm]

DjSeNseI, ИМХО, я тоже пробовал делать через TcpClient, вроде как через жо.. получается
похоже, если хочешь использовать компоненты, лучше делать через TClientSocket, в его свойстве Socket вроде все что нужно есть.

[DjSeNseI]

Что то мне кажется что через TClientSocket нельзя для Л2 проги мутить...
Ну не знаю ща попробую что нибудь замутить.

PanAm: Если ты что нибудь найдешь про TcpClient поделись пожалуйста.

[DjSeNseI]

Подскажите пожалуйста в чём ошибка может тут быть.
Помогите плиз)))
Вот скрин ошибки:

Вот мой исходник:
http://zdjsensei.ucoz.ru/Src.rar

[dmitry501]

Ошибка в твоем сервере. Это не Л2 протокол. Ты пытаешься идентицицировать первые 2 байта как длину пакета, а это не так.
Смени IP на нормальный сервер, например на руофф - 89.249.27.112 и ты не получишь ошибку.

[DjSeNseI]

Не ничего не помогает...
У мя на локалке ява стоит даже туда когда конекчусь то пакет приходит маленикий но всё равно ошибка вылазиет.
На русоф пробовал туда у меня даже не хочет конектится...

Мне кажет в приёме пакетов у меня где-то ошибка но не могу понять в чём ошибка. Пробовал разными способами получать пакеты но всё равно ошибка...

Да кстате в лист-бокс у меня приходит пакет нормально но только корявый.
А в мемо ни как не хочет.