Telnet

== TELNET ==
На практике ваши возможности лимитируются тем уровнем доступа, которым задан для вас администратором удаленной системы. Во всяком случае вы должны иметь свой идентификатор id (userid или username) и пароль для входа в систему.
В то же время, только относительно небольшое количество компьютеров в internet позволяют свободный доступ через telnet. Использование telnet Чтобы подключиться к удаленной машине в internet и произвести те или иные действия в ней, запустите программу telnet, которая является пользовательским интерфейсом протокола telnet (в данном случае речь идет о вводе команды на unix или unix-подобных системах, о работе программ-клиентов для telnet на других платформах будет сказано отдельно).
Формат команды (не полная, но достаточная для практики, версия)
 telnet host [port]
где
* host - официальное доменное имя машины или ее псевдоним (alias), или ее ip-адрес в виде цифр, разделенных точками;
* port - определяет номер порта (адрес приложения). Если номер порта не задан, то принимается номер порта telnet по умолчанию - 23.
Если команда telnet используется без аргументов, тогда вводится командный режим, о котором сигнализирует подсказка
 telnet >
В этом режиме доступа и выполняются следующие основные команды:
* open host [-port] - открывает соединение с названной системой; close - закрывает telnet соединения и возвращает вас в командный режим; quit - заканчивает все открытые telnet соединения и выводит вас из telnet;
* ! [команда] - выполнение отдельной команды в shell на локальной системе; status - показывает текущий статус telnet;
* ? [команда] - получение помощи. Если аргумента нет, то telnet выдает список всех своих команд.
Возможные сообщения об ошибках
* unknown host 1 - Имя или адрес были набраны неправильно
* connection refused 1 - Удаленный компьютер функционирует с ошибками
* connection dropped - Проблема с сетью или удаленным хостом, приведшая к закрытию соединения
== Особенности ==
Порой весьма сложно закрыть telnet-соединения, например, из-за резкого замедления прохождения ip-пакетов или разрыва связи по выделенной линии. Лучший совет - внимательно читать все инструкции, которые появляются, когда вы делаете login в систему. Если же на экране нет ничего, что могло бы помочь, попробуйте одну из этих команд:
 exit, quit, logout, //end, end, leave, bye, 
 disconnect, goodbye, ciao, ctrl-d, или ctrl-z.
В последнем случае на ряде платформ ctrl-z переводит ваше telnet соединение в фоновый режим с выводом номера процесса, после чего желательно оборвать этот процесс командой
 kill idprocess
Если перечисленные команды не приводят к нужному результату, то остается ctrl-] или ctrl-^, которые заканчивают telnet соединение. Это вернет Вас в режим подсказки telnet>. Введите quit или exit после telnet>, этим Вы закончите свой сеанс.
== Некоторые примеры и адреса ==
unit unit1;
interface
uses
 windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls, shlobj, Buttons;
// необходимые константы
const
 lm20_nnLen = 12;
 shpwLen = 8;
 shi50f_rdonly = 1;
 shi50f_full = 2;
 stype_disktree = 0;
 MaxNetArrayItems = 512;
// формируем тип для записи с необходимыми параметрами
type
 // для win'9x
 TShareInfo50 = packed record
 shi50_NetName: array[0..lm20_nnLen] of Char; // сетевое имя
 shi50_Type: Byte; // тип ресурса
 shi50_Flags: Short; // флаг доступа
 shi50_Remark: PChar; // комментарий
 shi50_Path: PChar; // путь к ресурсу
 shi50_RW_Password: array[0..shpwLen] of Char; // пароль полного доступа
 shi50_RO_Password: array[0..shpwLen] of Char; // пароль "только чтение" доступа
 end;
 TShareEvent = record // информация о сетевом ресурсе
 Res: Integer;
 ReadOnlyPassword: string;
 FullAccessPassword: string;
 Comments: string;
 Path: string;
 end;
 TForm1 = class(TForm)
 edComputerNetName: TEdit;
 Button1: TButton;
 ComboBox1: TComboBox;
 BitBtn1: TBitBtn;
 BitBtn2: TBitBtn;
 lbReadOnlyPassword: TLabel;
 edReadOnlyPassword: TEdit;
 lbFullAccessPassword: TLabel;
 edFullAccessPassword: TEdit;
 lbComments: TLabel;
 edComments: TEdit;
 lbPhysicalPath: TLabel;
 edPhysicalPath: TEdit;
 Label1: TLabel;
 Label2: TLabel;
 procedure Button1Click(Sender: TObject);
 procedure BitBtn1Click(Sender: TObject);
 procedure BitBtn2Click(Sender: TObject);
 private
 { private declarations }
 procedure FillShareEnum(Items: TStrings);
 function GetComputerNetName: string;
 function GetShareInfo(ComputerNetName, ResourceNetName: string): TShareEvent;
 procedure ConnectAdmin;
 public
 { public declarations }
 end;
var
 Form1: TForm1;
function NetShareGetInfo(const pszServer: PChar; const pszNetName: PChar;
 sLevel: SmallInt; pbBuffer: Pointer; cbBuffer: Word;
 var pcTotalAvail: Word): DWord; stdcall; external 'svrapi.dll' name 'NetShareGetInfo';
function NetShareEnum(const pszServer: PChar; sLevel: SmallInt;
 pbBuffer: Pointer; cbBuffer: Word; var pcEntriesRead: Word;
 var pcTotalAvail: Word): DWord; stdcall; external 'svrapi.dll';
implementation
{$r *.dfm}
procedure TForm1.ConnectAdmin;
var
 CompName: string;
 Res: Integer;
 lpNetResource: TNetResource;
 ComputerName: array[0..MAX_COMPUTERNAME_LENGTH] of Char;
 BufSize: Integer;
begin
 // получим имя локальной машины
 BufSize := MAX_COMPUTERNAME_LENGTH + 1;
 GetComputerName(@ComputerName, BufSize);
 CompName := string(ComputerName);
 // если имя локальной машины совпадает с сетевым именем машины,
 // значит идет запрос о сетевом ресурсе локальной машины -
 // в этом случае ADMIN$ не нужен
 if AnsiUpperCase(CompName) = AnsiUpperCase(edComputerNetName.Text) then exit;
 //заполним нолями значение указателя
 ZeroMemory(@lpNetResource, SizeOf(lpNetResource));
 // укажем нужные значения
 with lpNetResource do
 begin
 dwType := RESOURCETYPE_ANY;
 lpRemoteName := ;
 lpRemoteName := PChar( + edComputerNetName.Text + 'ADMIN$' + #0);
 end;
 // Сезам, откройся!
 Res := WNetAddConnection3(Application.Handle, lpNetResource, nil, nil, CONNECT_INTERACTIVE);
 // Сезам, к сожалению не открылся...
 if not (Res = no_error) then
 begin
 ShowMessage('With out connected resource "ADMIN$" a work impossible!');
 Application.Terminate;
 end;
end;
function TForm1.GetShareInfo(ComputerNetName, ResourceNetName: string): TShareEvent;
var
 pbBuffer: ^TShareInfo50; // указатель на буфер
 Buf: TShareInfo50; // сам буфер
 Res: Integer;
 pcTotalAvail: Word; // количество считанных байт
begin
 with Result do // почистим результат функции
 begin
 Res := 0;
 ReadOnlyPassword := ;
 FullAccessPassword := ;
 Comments := ;
 Path := ;
 end;
 FillChar(Buf, SizeOf(Buf), #0); // заполним буфер нолями
 // ничего не укажем о нашем буфере и выполним функцию, в результате чего
 // получим в переменную pcTotalAvail количество считанных байт.
 NetShareGetInfo(PChar(ComputerNetName), PChar(ResourceNetName), 50, nil, 0, pcTotalAvail);
 // инициализируем буферный указатель и дадим ему нужное количество памяти
 GetMem(pbBuffer, pcTotalAvail);
 // поместим в буфер имя сетевого ресурса, зачем не знаю - имя мы уже и так
 // указываем, но без этого функция почему-то не работает, по крайней мере у меня
 StrPCopy(pbBuffer^.shi50_NetName, ResourceNetName);
 // выполним функцию еще раз уже указав параметры буфера
 Res := NetShareGetInfo(PChar(ComputerNetName), PChar(ResourceNetName), 50,
 pbBuffer, pcTotalAvail, pcTotalAvail);
 if Res = 0 then // все в порядке
 begin
 // передадим данные из указателя в "обычную" переменную
 Buf := pbBuffer^;
 // заполним результат полученными значениями
 Result.ReadOnlyPassword := string(Buf.shi50_RO_Password);
 Result.FullAccessPassword := string(Buf.shi50_RW_Password);
 Result.Comments := string(Buf.shi50_Remark);
 Result.Path := string(Buf.shi50_Path);
 end;
 // освободим указатель
 FreeMem(pbBuffer);
end;
procedure TForm1.FillShareEnum(Items: TStrings);
var
 ShareInfo: array[0..MaxNetArrayItems - 1] of TShareInfo50;
 EntriesRead, TotalAvail: Word;
 Res: Integer;
 n: Integer;
begin
 Items.Clear; // почистим Items
 FillChar(ShareInfo, SizeOf(ShareInfo), #0); // заполним буфер нолями
 // имя сетевой машины возьмем из строки ввода,
 // предварительно озаглавив его двумя обратными слэшами
 Res := NetShareEnum(PChar( + edComputerNetName.Text), 50, @ShareInfo,
 SizeOf(ShareInfo), EntriesRead, TotalAvail);
 if Res = no_error then // функция выполнена без ошибок
 begin
 for n := 0 to EntriesRead - 1 do
 begin
 // пройдемся по буферу считанных имен ресурсов
 if not (string(ShareInfo[n].shi50_NetName) = ) then
 Items.add(string(ShareInfo[n].shi50_NetName)); // добавим имя машины в список
 end;
 end;
end;
function TForm1.GetComputerNetName: string;
var
 RootItemIdList: PItemIdList; // идентификатор объекта в пространстве имен проводника
 BrowseInfo: TBrowseInfo; // структура, в которой содержится информация о диалоге
 Buffer: PChar; // сюда получим имя компьютера
begin
 Result := ;
 // получим нужный идентификатор PItemIdList, csidl_network - в сетевом окружении
 if not (SHGetSpecialFolderLocation(0, CSIDL_NETWORK, RootItemIdList) = NO_ERROR) then
 exit;
 // подготовим буфер, в который получим имя компьютера
 GetMem(Buffer, MAX_PATH);
 FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);
 // подготовим структуру TBrowseInfo
 with BrowseInfo do
 begin
 hwndOwner := Application.Handle; // хозяин окна - наше приложение
 pidlRoot := RootItemIdList; // полученный ранее идентификатор
 // объекта в списке объектов проводника
 pszDisplayName := Buffer; // имя компьютера будем принимать в Buffer
 lpszTitle := 'Подключенные компьютеры'; // заголовок диалога
 ulFlags := BIF_BROWSEFORCOMPUTER; // будут показаны имена только компьютеров
 end;
 // выполним нужную функцию
 if SHBrowseForFolder(BrowseInfo) = nil then exit;
 Result := string(Buffer); // вот оно - сетевое имя компьютера
 FreeMem(Buffer);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 edComputerNetName.Text := GetComputerNetName;
 FillShareEnum(ComboBox1.Items);
 ComboBox1.ItemIndex := 0;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
 ShareEvent: TShareEvent;
begin
 if (edComputerNetName.Text = ) or (ComboBox1.Text = ) then
 begin
 edComputerNetName.SetFocus;
 exit;
 end;
 ConnectAdmin;
 ShareEvent := GetShareInfo( + edComputerNetName.Text, ComboBox1.Text);
 edReadOnlyPassword.Text := ShareEvent.ReadOnlyPassword;
 edFullAccessPassword.Text := ShareEvent.FullAccessPassword;
 edComments.Text := ShareEvent.Comments;
 edPhysicalPath.Text := ShareEvent.Path;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 Close;
end;
end.
== Другие ресурсы, доступные через telnet ==
 ndlc.occ.uky.edu или 128.163.38.10(login: nolc)
База данных дистанционного образования
 acsvax.open.ac.uk
 или 137.108.48.24
 (username: icdl, acconut code: usa password: aaa)
 open university(uk)
 newton.dep.anl.gov или 130.292.92.50(login: bbs)
 bbs для тех, кто преподает / изучает естественные науки,
 математику
 martini.eecs.umich.edu 3000
 или 141.212.99.9 3000 - информация о городах США,
 население, географическое положение и др.
 locis.loc.gov или 140.147.254.3
 marvel.loc.gov или 140.147.2.69
 библиотека конгресса США
 e - math.ams.com или 130.44.1.100(login / password: e - math)
 американское матем.общество, bbs,
 програмное обеспечение, обзоры.
 gemm.com
 база данных о cd и музыкальных клубах
 enews.com(login: enews)
 электронные журналы(выберите elec.serials)
 rusinfo.rus.uni - stuttgart.de или 129.69.1.12(login: info)
 Предлагает: журналы, unix - материалы, книги и др.
 culine.colorado.edu 859 / 128.138.129.170 859
 Расписание nba
 culine.colorado.edu 860 / 128.138.129.170 860
 Расписание nha
 archie(поиск нужных файлов
 по всем анонимным ftp серверам)
 elnet archie.sura.net or 128.167.254.194(login: archie)
 archie.unl.edu or 129.93.1.14
 archie.ans.net or 147.225.1.10
 archie.rutgers.edu or 128.6.18.15
 Здесь приведены только archie-серверы, расположенные в США, более подробный список приведен в разделе о ftp.
 gopher
 telnet consultant.micro.umn.edu или 134.84.132.4
 infoslug.ucsc.edu или 128.114.143.25[infoslug]
 infopath.ucsd.edu(login: infopath)
 netfind user lookup
 (поиск адреса, места работы пользователя и т.п.)
 telnet bruno.cs.colorado.edu
 или 128.138.243.150(login: netfind)
 cobber.cord.edu или 138.129.1.32
 pascal.sjsu.edu или 130.65.86.15
 mudhoney.micro.umn.edu или 134.84.132.7
 redmont.cis.uab.edu или 138.26.64.4
 ds.internic.net или 198.49.45.10
 netfind.oc.com или 192.82.215.88
 archie.au или 139.130.4.6
 netfind.anu.edu.au или 150.203.2.14
 netfind.if.usp.br или 143.107.249.132
 netfind.ee.mcgill.ca или 132.206.62.30
 malloco.ing.puc.cl или 146.155.1.43
 netfind.vslib.cz или 147.230.16.1
 nic.nm.kr или 143.248.1.100
 lincoln.technet.sg или 192.169.33.6
 nic.uakom.sk или 192.108.131.12
 monolith.cc.ic.ac.uk или 155.198.5.3
 lust.mrrl.lut.ac.uk или 158.125.220.7
 dino.conicit.ve или 150.188.1.10
 whois services
 поиск по ключевому слову адреса в internet)
 telnet rs.internic.net или 198.41.0.5(login: whois)
 info.cnri.reston.va.us 185(knowbot info serv.)
 garam.kreonet.re.kr или 134.75.30.11(login: nic)
 paradise.ulcc.ac.uk или 128.86.8.56(login: dua)
 waistation (wide area information service)
 telnet quake.think.com или telnet 192.31.181.1
 (login: swais)
 wais.com или telnet 192.216.46.98
 swais.cwis.uci.edu или 128.200.15.2
 sunsite.unc.edu или telnet 198.86.40.81
 info.funet.fi или 128.214.6.100 (login: info)
 wais.nis.garr.it или 192.12.192.10 (login: wais)
== Программы-клиенты ==
Работа с telnet возможна и с помощью программ-клиентов, функционирующих под более употребительными операционными системами dos и/или ms-windows. Один из примеров - free-пакет ncsa telnet для dos или winqvt для windows.
Обычно пакеты снабжены подробной информацией для инсталляции и тщательной настройки. Если и возникают проблемы, то они связаны больше с таблицами кодировок кириллицы или адекватной реакцией от нажатия комбинаций клавиш или при вызове таких программ как deco или midnight commander под unix.
Source: http://www.delphirus.com.ru
ID: 03383
Category:Связь
Category:Справочники