|
TELNET
Оформил: DeeCo Протокол TELNET позволяет вам подсоединиться к
удаленному компьютеру, находящемуся где-то “на просторах” Internet, и
работать с ним как будто бы вы используете локальную систему, скажем,
непосредственно в техническом университете. На практике ваши возможности
лимитируются тем уровнем доступа, которым задан для вас администратором
удаленной системы. Во всяком случае вы должны иметь свой идентификатор ID
(userid или username) и пароль для входа в систему. В то же время, только
относительно небольшое количество компьютеров в Internet позволяют
свободный доступ через TELNET. Использование TELNET Чтобы подключиться к
удаленной машине в Internet и произвести те или иные действия в ней,
запустите программу telnet, которая является пользовательским интерфейсом
протокола TELNET (в данном случае речь идет о вводе команды на UNIX или
UNIX-подобных системах, о работе программ-клиентов для telnet на других
платформах будет сказано отдельно). telnet > В этом режиме доступа и выполняются следующие основные команды: open host [-port], - открывает соединение с названной системой; close - закрывает TELNET соединения и возвращает вас в командный режим; quit - заканчивает все открытые TELNET соединения и выводит вас из telnet; ! [команда] - выполнение отдельной команды в shell на локальной системе; status - показывает текущий статус telnet; ? [команда] - получение помощи. Если аргумента нет, то telnet выдает список всех своих команд. Возможные сообщения об ошибках Unknown Host 1. Имя или адрес были набраны
неправильно Порой весьма сложно закрыть 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. |
Автор проекта: ___Nikolay