«Реализация функционала Telnet для проверки портов в Delphi»

Delphi , Интернет и Сети , Telnet

Реализация функционала Telnet для проверки портов в Delphi

В процессе разработки и развертывания приложений в средах, где присутствуют строгие брандмауэры, часто возникает необходимость проверить, доступен ли определенный порт в сети. Одним из популярных способов сделать это является использование утилиты Telnet с командой Telnet [domainname или ip] [порт]. В данной статье мы рассмотрим, как реализовать подобную функциональность в Delphi.

Вопрос: Нужно ли просто пытаться открыть и закрыть сокет TCP/IP без отправки или приема данных, чтобы проверить, активен ли порт? Существует ли риск того, что это может привести к аварийному завершению работы приложения или службы, которые прослушивают на другом конце?

Код:

function IsPortActive(AHost: string; APort: Word): Boolean;
var
  IdTCPClient: TIdTCPClient;
begin
  IdTCPClient := TIdTCPClient.Create(nil);
  try
    try
      IdTCPClient.Host := AHost;
      IdTCPClient.Port := APort;
      IdTCPClient.Connect;
    except
      // Игнорирование исключений
    end;
  finally
    Result := IdTCPClient.Connected;
    IdTCPClient.Disconnect;
    FreeAndNil(IdTCPClient);
  end;
end;

Подтвержденный ответ:

Если вам просто нужно проверить, открыт ли порт, вы можете использовать следующий код:

function IsPortActive(AHost: string; APort: Word): Boolean;
var
  IdTCPClient: TIdTCPClient;
begin
  Result := False;
  try
    IdTCPClient := TIdTCPClient.Create(nil);
    try
      IdTCPClient.Host := AHost;
      IdTCPClient.Port := APort;
      IdTCPClient.Connect;
      Result := True;
    finally
      IdTCPClient.Free;
    end;
  except
    // Игнорирование исключений
  end;
end;

Однако этот код лишь сообщает вам, что какой-либо серверный экземпляр открыл порт. Если вы хотите убедиться, что именно ваше серверное приложение открыло порт, вам придется установить фактическое взаимодействие с сервером и убедиться, что его ответы соответствуют вашим ожиданиям. Многие распространенные протоколы сервера предоставляют первоначальное приветствие, которое позволяет клиентам идентифицировать тип сервера, к которому они подключены. Вы можете рассмотреть возможность добавления подобного приветствия в свой сервер, если имеете такую возможность.

Простое открытие подключения к серверу не представляет риска аварийного завершения работы сервера, так как оно лишь временно занимает место в списке клиентов сервера. Если вы действительно отправляете данные на сервер, и приложение сервера, к которому вы подключены, не является вашим приложением, то вы Runs a small risk only if the server cannot handle arbitrary data that does not conform to its expected protocol. But that is pretty rare. Sending a small command is not uncommon and usually pretty safe, you will either get back a reply (which may be in a format that does not conform to your protocol, so just assume failure), or you may not get any reply at all (like if the server is waiting for more data, or simply is not designed to return a reply) in which case you can simply time out the reading and assume failure.

Альтернативный ответ:

Если вы хотите действовать как клиент Telnet, вы можете использовать компонент TIdTelnet из Indy. Однако, когда подключение не может быть установлено, исключение будет возбуждено. В этом случае вы можете написать код, подобный следующему:

function IsPortActive(AHost: string; APort: Word): Boolean;
var
  IdTelnet: TIdTelnet;
begin
  IdTelnet := TIdTelnet.Create(nil);
  try
    IdTelnet.Host := AHost;
    IdTelnet.Port := APort;
    IdTelnet.Connect;
    Result := True;
  except
    // Игнорирование исключений
  end;
  finally
    IdTelnet.Free;
  end;
end;

Обратите внимание, что TIdTelnet ожидает настоящего сервера Telnet. Подключение может блокироваться "навсегда" с несовместимым сервером. Если ваш код предназначен для замены "использования Telnet для проверки, открыт ли порт в сети", это может не быть ожидаемым поведением.

Заключение:

Реализация функционала Telnet для проверки портов в Delphi может быть полезной в различных ситуациях, связанных с развертыванием приложений в средах с брандмауэрами. Однако важно учитывать риски и возможные последствия такой проверки. Используйте предложенные варианты кода с осторожностью и убедитесь, что они соответствуют вашим конкретным требованиям.

Создано по материалам из источника по ссылке.

Реализация функционала Telnet для проверки портов в Delphi заключается в создании функции, которая пытается открыть сокет TCP/IP для указанного хоста и порта, а затем проверяет, был ли он успешно открыт, чтобы определить, активен ли порт.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Telnet ::