Ну уж не такой тупой что б не додуматься акк вбить))
а на счет рестарта не знал
Добавлено через 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? и как правильно шифровать Логин и пароль .. если можно дайте компонент