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
;
  < A name = form > < / A >
    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)ThenExit;
  //заполним нолями значение указателя
  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, TotalAvial: Word;
  Res: Integer;
  N: Integer;
begin

  Items.Clear; //почистим Items
  FillChar(ShareInfo, SizeOf(ShareInfo), #0); //заполним буфер нолями
  Res := NetShareEnum(PChar('' + edComputerNetName.Text), 50, @ShareInfo,
    SizeOf(ShareInfo),
    EntriesRead, TotalAvial); //имя сетевой машины возьмем из строки ввода,
  //предварительно озаглавив его двумя обратными слэшами
  if
 Res = No_Error then
 //функция выполнена без ошибок
    for
 N := 0 to
 EntriesRead - 1 do

      //пройдемся по буферу считанных имен ресурсов
      if
 not
 (string
(ShareInfo[N].shi50_netname) = '') then

        Items.Add(string
(ShareInfo[N].shi50_netname));
          //добавим имя машины в список
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
 {With BrowseInfo}
    hwndOwner := Application.Handle; //хозяин окна - наше приложение
    pidlRoot := RootItemIDList; //полученный ранее идентификатор
    // объекта в списке объектов проводника
    pszDisplayName := Buffer; //имя компьютера будем принимать в Buffer
    lpszTitle := 'Подключенные компьютеры'; //заголовок диалога
    ulFlags := BIf_BROWSEFORCOMPUTER; //будут показаны имена только компьютеров
  end
; {With BrowseInfo}

  //выполним нужную функцию
  if
 SHBrowseForFolder(BrowseInfo) = nil
 ThenExit;
  Result := string
(Buffer); //вот оно - сетевое имя компьютера
  FreeMem(Buffer);
end
;

procedure
 TForm1.Button1Click(Snder: 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.

Другое по теме:

• Отправка письма средствами Borland Delphi
• Обзор компонентов InternetExpres
• Создание многопользовательских приложений на базе сокетов