Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Вниз

telnet 


Zerul   (2002-01-08 15:14) [0]

может глупо, но где мне можно посмотреть исходники простенького клиента телнета или как его можно написать?



Polevi   (2002-01-08 17:11) [1]

procedure TForm1.FormCreate(Sender: TObject);
begin
ClientSocket1.Address:= some IP address..
ClientSocket1.Port:= some Port..
ClientSocket1.Active:=true;
end;

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add(Socket.ReceiveText);
end;

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=VK_RETURN) then ClientSocket1.Socket.SendText(Memo1.Lines[Memo1.Lines.Count-1]+#13#10);
end;



zerul   (2002-01-08 17:33) [2]

большое "спасибо" вам!!!!!!!!



Zerul   (2002-01-09 02:05) [3]

Выше приведёный код отлично работает, НО почему-то(я не могу объяснить почему) при попытке подсоединиться на 23 порт(т.е. порт телнета) моего прова он выдаёт:

"яэяэ яэ#яэ"

вместо приветствия которое выдаёт обычный(майкрософтский) телнет:

"Red Hat Linux release 7.2 (Enigma)
Kernel 2.4.9-13 on an i686
login:"


или

"яэ%яыяэяэяэ"

вместо

"Server allows NTLM authentication only.
Server has closed connection"


а вопрос такой: как это можно обьяснить? и как можно "научить" мой телнет выдавать то что выдаёт обычный телнет?



nikkie   (2002-01-09 09:41) [4]

почитать rfc, например. в протоколе телнета есть небольшой набор управляющих комманд - они начинаются с символа IAC (FF), если мне память не изменяет...



Zerul   (2002-01-09 14:51) [5]

2nikkie © (09.01.02 09:41)
где об этом можно почитать7

и всё таки: как можно "научить" мой телнет выдавать то что выдаёт обычный телнет?



Vitaly   (2002-01-09 16:16) [6]

http://teor.ysn.ru/CIE/RFC/854/




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.028 c
1-80519           Rail                  2002-03-13 07:28  2002.03.25  
QReport ГЛЮЧИТ !!!


1-80604           fag2000@ok.ru         2002-03-11 13:10  2002.03.25  
Как сделать так чтобы окно появлялось над чужим окном


1-80458           sany                  2002-03-08 08:10  2002.03.25  
Решил сделать прогу, которая заменяла бы в html файлах ...


1-80582           Monk                  2002-03-10 19:13  2002.03.25  
E-mail!


14-80691          Zerul                 2002-02-10 00:50  2002.03.25  
*.iso - hto uto takoe i shem ego edyt?