Сервера - Страница 2

NoFear · 03.12.2008, 18:18

Ну уж не такой тупой что б не додуматься акк вбить))
а на счет рестарта не знал

Добавлено через 48 секунд
скажите как подключиться к логин серверу?? всь день бьюсь.. инфы в инете ваще нету(

Добавлено через 6 минут

Код:

var
  packet:string;
  size:word;
function StringToHex(str1,Separator:String):String;
var
  buf:String;
  i:Integer;
begin
  buf:='';
  for i:=1 to Length(str1) do begin
    buf:=buf+IntToHex(Byte(str1[i]),2)+Separator;
  end;
  Result:=buf;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPClient1.Host:=Edit1.Text;
IdTCPClient1.Port:=StrToInt(Edit2.Text);
try
IdTCPClient1.Connect;
except
end;
end;

procedure TForm1.IdTCPClient1Connected(Sender: TObject);
begin
IdTCPClient1.ReadBuffer(size,2);
SetLength(packet, size-2);
IdTCPClient1.ReadBuffer(packet[1], size-2);
memo1.Lines.Add(StringToHex(packet,' '));
end;

мне приходит пакет 00 04 2B 28 45 5A 78 00 00 - причем 2 байт всегда разный ...
дальше как я понимаю должно быть RequestAuthLogin ... - скажите как правильно отправить пакет на RequestAuthLogin? и как правильно шифровать Логин и пароль .. если можно дайте компонент

xkor · 03.12.2008, 18:35

Цитата:

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

мне приходит пакет 00 04 2B 28 45 5A 78 00 00 - причем 2 байт всегда разный ..

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

delphi Код:

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;

NoFear · 03.12.2008, 18:46

Но все равно не вкуриваю

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

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

Цитата:

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

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

delphi Код:

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;