Блокируем порт 80

[ikot]

Добрый день ,уже не раз поднимал подобную тему на многих форумах. Необходимо из программы заблокировать доступ в интернет, т.е. порт 80.
Все получается, если соединение происходит не через proxy. Вопрос, как можно заблокировать доступ в интернет, если используется прокси.
Много советовали, просто закрыть порт 80, но как это сделать? Если средствами сокетов, то вылетает ошибка о том, что порт занят.

[BaronTreep]

Можно попробывать так, но за прокси я не ручаюсь, в принципе должно работать.

program BlockAdapter;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows, Winsock,
  winpkf in '..\winpkf.pas',
  iphlp in '..\iphlp.pas';

var
  iIndex: DWORD;
  hFilt: THANDLE;
  Adapts: TCP_AdapterList;
  AdapterMode: ADAPTER_MODE;
  hEvent: THANDLE;
  hAdapter: THANDLE;

procedure ReleaseInterface();
begin
  AdapterMode.dwFlags := 0;
  AdapterMode.hAdapterHandle := hAdapter;
  SetAdapterMode ( hFilt, @AdapterMode );
  SetPacketEvent (hFilt, hAdapter, 0);
  if hEvent <> 0 then CloseHandle(hEvent);
  CloseFilterDriver (hFilt);
  FreeNDISAPI();
end;

begin
  iIndex := 1;
  InitNDISAPI();
  hFilt := OpenFilterDriver('NDISRD');
  if IsDriverLoaded(hFilt) then begin
      ExitProc := @ReleaseInterface;
      GetTcpipBoundAdaptersInfo (hFilt, @Adapts);
      hAdapter := Adapts.m_nAdapterHandle[iIndex];
      AdapterMode.dwFlags := MSTCP_FLAG_SENT_TUNNEL or MSTCP_FLAG_RECV_TUNNEL;
      AdapterMode.hAdapterHandle := hAdapter;
      hEvent := CreateEvent(nil, TRUE, FALSE, nil);
      if (hEvent <> 0) and (SetPacketEvent (hFilt, hAdapter, hEvent) <> 0) then begin
          SetAdapterMode ( hFilt, @AdapterMode );
          while true do begin
            WaitForSingleObject ( hEvent, INFINITE );
            ResetEvent(hEvent);
          end;
      end;
  end;
end.

Этот код требует наличия драйвера WinpkFilter 3.0 ( http://www.ntkernel.com/products/winpkfilter.htm ), с дельфийскими заголовками winpkf.pas и iphlp.pas. Блокируется не порт, а целый сетевой адаптер (точнее бы сказать интефейс, ну да ладно) под номером iIndex (у меня 1, на нём и-нет висит).

[ikot]

Блокируется не порт, а целый сетевой адаптер (точнее бы сказать интефейс, ну да ладно) под номером iIndex (у меня 1, на нём и-нет висит).

Этот код будет работать, если нужно, чтобы локальная сеть при этом осталась активной?

[BaronTreep]

Да все остальные сетевые карты/устройства остаются нетронутыми, но на них тоже можно повесить подобные заглушки/сниферы/фаерволы. Это всё таки интерфейс. Кстати, их номера постоянно меняются, там в указанном пакете есть утилита listadapters.exe с её помощью можно посмотреть интерфейсы и их номера, ну или api использовать.

[ikot]

WinpkFilter - насколько я понял является платным продуктом, а нет ли решения без посторонних продуктов?

[BaronTreep]

free for private or educational use

Для меня это тайна :) у них лежит архив, исходники драйверов, примеры и справка... Все свободно и работает, даже не знаю. В любом случае нужен драйвер для такой функциональности, можете в принципе поискать, либо переделать то что у них открыто ;)

[ikot]

Сообщение от BaronTreep

Для меня это тайна у них лежит архив, исходники драйверов, примеры и справка... Все свободно и работает, даже не знаю. В любом случае нужен драйвер для такой функциональности, можете в принципе поискать, либо переделать то что у них открыто

Буду пробовать