1. Драйвер прерываний системы сетевой защиты Windows (IPFWHook.sys) -20.32Kb
2. Обёртка управления для него в виде ActiveX (IPFWHook.Dll) -36Kb
Судя по документации достаточно:
1 - Copy IPFWHook.sys file to c:windowssystem32drivers directory
2 - Register TFWHook.dll by issuing the following at command line : "regsvr32
3 - в блокноте написать файл-протокол политики безопастности. (типа нипель )
Ну и:
function StartFirewall(bstrPolicyFile:BSTR); // тут запуск фаервола с именем файла
function StopFirewall; // типа стоп
function OnLog(bstrMessage:BSTR): HResult; // лог (помоему там делиметр "|" используется
function OnError(bstrError:BSTR): HResult; // ну и вывод ошибок
function StopFirewall; // типа стоп
function OnLog(bstrMessage:BSTR): HResult; // лог (помоему там делиметр "|" используется
function OnError(bstrError:BSTR): HResult; // ну и вывод ошибок
Вот так возможно получится простой фаервол даже в HiAsm (оговорюсь сразу что сам не пробовал)