Решение проблемы с не закрывающимися портами UPnP после завершения работы приложения на Delphi

Delphi , Файловая система , Порты

Вопрос, поднятый в данной статье, связан с проблемой использования UPnP для перенаправления портов в приложениях на Delphi. Пользователи часто сталкиваются с ситуацией, когда после завершения работы приложения перенаправленные порты не закрываются, что может привести к нежелательному доступу к устройствам в локальной сети.

Описание проблемы

Пользователи, применяющие библиотеку HNetCfg.NATUPnP для создания статических портов, сталкиваются с проблемой, когда после завершения работы приложения, использующего перенаправление портов, порт остается открытым. Это может быть опасно, так как порт остается доступным для внешних подключений, даже после перезагрузки компьютера. В некоторых случаях, для закрытия порта требуется перезагрузка роутера, что не является удобным и надежным решением для конечных пользователей.

Пример кода для перенаправления портов

procedure AddUPnPEntry(Port: Integer; ServiceName, LocalIP: string);
var
  NAT: Variant;
  Ports: Variant;
begin
  NAT := CreateOleObject('HNetCfg.NATUPnP');
  Ports := NAT.StaticPortMappingCollection;
  Ports.Add(Port, ServiceName, LocalIP, LocalIP, 'TCP');
end;

AddUPnPEntry(1234, 'Hello3', '192.168.1.34');

Пример кода для удаления порта

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

procedure RemoveUPnPEntry(Port: Integer);
var
  NAT: Variant;
  Ports: Variant;
begin
  try
    NAT := CreateOleObject('HNetCfg.NATUPnP');
    Ports := NAT.StaticPortMappingCollection;
    Ports.Remove(Port, 'TCP');
  except
    ShowMessage('Ошибка при удалении порта UPnP: ' +
      'Убедитесь, что ваш роутер поддерживает UPnP и он включен.');
  end;
end;

RemoveUPnPEntry(1234);

Подтвержденное решение

Согласно найденному решению, для закрытия порта после завершения работы приложения, используется метод Remove() интерфейса IStaticPortMappingCollection. Однако, некоторые пользователи сообщают об ошибках при попытке закрыть порт, даже если открытие порта происходило без проблем.

Альтернативные подходы

В качестве альтернативного подхода, стоит отметить, что для проверки факта открытия порта можно использовать инструменты типа telnet для подключения к порту и netstat -ano для проверки процессов, слушающих порт. Также полезно проверить, действительно ли порт открыт для внешних подключений, используя сервисы вроде canyouseeme.org.

Важные замечания

Необходимо помнить, что перезагрузка роутера не является надежным решением для автоматического закрытия портов после завершения работы приложения. Это временная мера, которая может быть приемлема в тестовых целях, но не подходит для постоянного использования.

Заключение

Таким образом, для решения проблемы с не закрывающимися портами UPnP после завершения работы приложения на Delphi, рекомендуется использовать метод Remove() для удаления порта из коллекции статических портов. Однако, в случае возникновения ошибок, стоит обратиться к разработчику библиотеки HNetCfg.NATUPnP, так как проблема может быть связана с самой реализацией.

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

Проблема связана с тем, что после завершения работы приложения на Delphi, использующего UPnP для перенаправления портов, порты не закрываются, что может быть потенциальной угрозой для безопасности локальной сети.

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

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

:: Главная :: Порты ::