Закрыть порты TCP:135/UDP:445 програмным образом

← →
Arazel © (2006-02-27 17:03) [0]

Как?

← →
Dmitrij_K (2006-02-27 22:01) [1]

Повесить на них свой сервер?

← →
Arazel © (2006-02-28 12:27) [2]

Не получится! На них уже весят!

← →
umbra © (2006-02-28 12:52) [3]

по смыслу - проверять все пакеты, приходящие на сетевой интерфейс и не пускать ненужные.

← →
Arazel © (2006-02-28 17:07) [4]

Ну это совсем нето!

← →
umbra © (2006-02-28 17:19) [5]

а иначе никак. в винде эти порты заняты.

← →
Arazel © (2006-03-01 05:18) [6]

А какже тогда работают firewall(ы)?

Я решил это сделать из под драйвера
но я не когда не работал в драйвере с сокетами
может кто что знает?

← →
ZzzzZ (2006-03-03 07:14) [7]

Хех, это тебе на высм.ру
Вот а не судьба фаером их заблочить?

← →
umbra © (2006-03-03 11:32) [8]

2 Arazel © (01.03.06 05:18) [6]

> А какже тогда работают firewall(ы)?

проверяют все пакеты, приходящие на сетевой интерфейс и не пускают ненужные.

← →
Arazel © (2006-03-06 08:08) [9]

umbra © (03.03.06 11:32) [8]
Ну ладно как они там проверяют что-то до меня доходит

Но все же как закрыть насильно порты 135/445 даже пусть
сам Windows их использует!
Может есть у Windows кое какие примочки для этого?

← →
Volf_555 © (2006-03-06 15:45) [10]

Попробуй использовать следующий код.
Проверял - работает на УРА! :)

procedure TForm1.N16Click(Sender: TObject); var s:String; begin s:=InputBox("Введите порт, который необходимо закрыть","№ порта:",""); try IdTCPServer1.DefaultPort:=StrToInt(s); IdTCPServer1.Active:=False; except ShowMessage("Ошибка!!!"); end; end;

← →
Volf_555 © (2006-03-06 15:53) [11]

Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPServer1.DefaultPort:=135;
IdTCPServer1.Active:=False;

IdUDPServer1.DefaultPort:=445;
IdUDPServer1.Active:=False;
end;

← →
Dmitrij_K (2006-03-06 15:56) [12]

Гениально!

IdUDPServer1.Active:=False;
--------------
Тем более если Active:=True - то возникнит ошибка, тк порт уже закрыт

LOL

Почему тогда у меня порты закрываются на УРА?

← →
Dmitrij_K (2006-03-06 15:59) [14]

> Почему тогда у меня порты закрываются на УРА?

Может травка хорошая?

> Dmitrij_K (06.03.06 15:56) [12]
> Гениально!
>
> IdUDPServer1.Active:=False;
> --------------
> Тем более если Active:=True - то возникнит ошибка, тк порт
> уже закрыт
>
> LOL

К тому же я использую try...except...end чтобы не возникала ошибка при попытке закрытия порта

Допустим - UserGate пытается открыть порт, который уже открыт другой программой - и не получается соответственно.
Мои действия:
Пишу обработчик события на кнопке
procedure TForm1.Button1Click(Sender: TObject); begin try IdTCPServer1.DefaultPort:=8080; IdTCPServer1.Active:=False; except ShowMessage("Ошибка!"); end; end;
После этого перезапускаю UserGate и больше ошибок не возникают

← →
Dred (2006-07-01 18:34) [16]

Вообще-то в Виндах за открытый порт отвечают сетевые программы или сервисы! Хочешь закрыть порт - заверши процесс или останови службу! А вот какой процесс или службу... да поможет тебе F1!

Закрыть порты TCP:135/UDP:445 програмным образом Найти похожие ветки