UDP TCP Firewall

[C0pa]

Ich verwende die TSnoop Komponente. Projekt dazu wurde glaube ich mittlerweile eingestellt.

Delphi-Quellcode:

procedure TForm1.SnoopUDP1CaptureUDP(Sender: TObject;
  PacketHeader: PPCAP_PKTHDR; EthernetHeader: PETHERNET_HDR; IPHeader: PIP_HDR;
  UDPHeader: PUDP_HDR);
begin
  if ( isBanned(snoopIP2Str(IPHeader.Source)) ) then
  // TODO - blockiere das Paket
end;