Ради интереса запустил утилиту netstat/a и удивился количеству открытых портов посмотрел номера по листу портов троянцев оказалось   кое какие из них у меня на компе оказались. Ну эту гадость убил антивиром. Но возник вопрос. А можно создать программу которая будет сверять порты с моим листом и которые лишние закрывать, а также предупреждать о попытках открытия новых. Раньше на 98 форточке у меня была такая самоделка. Но на хр  работать отказалась. Не надо только говорить про фаерволы, брандмауеры и т.д. Всё это пробовал. Тут чисто спортивный интерес. Хочу сам понять как это работает. Заранее БОЛЬШОЕ СПАСИБО!!! 

видимо ни кто такими вещами не занимается. Ладно как сам придумаю напишу.

можно. эта программа называется FireWall. как писать ответит поиск (возможно придется искать что-нить типа файрвол)...

Тебе надо поставить Outpost FireWall он отлично может перекрывать порты,
у меня довно была проблемка, так с помощью него у меня всего один порт был
открыт все он перекрывал...
Насчёт написать на Delphi конечно можно, просто делаешь сканер портов,
и делаешь его обсолютно сам! Из Delphi глазами хипера, там который на низком
уровне он не подойдёт тебе...
Допустим ты написал быстрый сканер, загружаешь своё список доступных
портов в TStrings и сканируешь порты, просканил записал в TString 2, и всё сравиниваешь
(У сканера будет удобнее чтоб он найденные порты выдовал как числа) потом сравниваешт числа и закрываешь лишнии, вот собственно и всё ...