[NoFear]

Но все равно не вкуриваю (
Если кому не сложно можете сделать программу.. которая конектиться к серверу ...и показывает список серверов ...
очень хочу разобарться!!
ип 195.218.197.251
порт 2106
акк admin9999
пасс 123123123
протоком 656
хроники С4

Добавлено через 46 секунд

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

04 2B 28 45 - это ID сессии, на него при ревизии 5A 78 00 00 можн забить
пакетик с логином и паролем формируется примерно так:

procedure AddChecksum(var data:array of char; position: Word);
var
  i,k:Word;
begin
  k := (position div 4)-1;
  for i := 0 to k do
    PCardinal(@data[position])^:=PCardinal(@data[position])^ xor PCardinal(@data[i*4])^;
end;

function RequestAuthLogin_785a(const Login,
  Pasword: String): string;
var
  Packet: TPacket;
  LoginD:array[0..13] of Char;
  PaswordD:array[0..15] of Char;
begin
 with Packet do begin
  InitWrite;
  FillChar(LoginD,14,0);
  FillChar(PaswordD,16,0);
  Move(Login[1],LoginD,Length(Login));
  Move(Pasword[1],PaswordD,Length(Pasword));
  WriteB(0);                // Packet ID
  Write(LoginD,14);         // Login
  Write(PaswordD,16);       // Password
  WriteB(8);                // Seporator
  WriteD(0);
  WriteD(0);
  WriteD(0);                // Checksum
  WriteD(0);
  AddChecksum(data[3],40);
  Result:=data;
 end;
end;

Делфи 7 ругаеться на строчку Packet: TPacket;