IP in einer IP-Range finden

[sx2008]

Wenn du die Adressen mit der Funktion inet_addr() in einen 32-Bit Wert umwandelst, dann kannst du den Bereich direkt abprüfen:

Delphi-Quellcode:

uses ...,WinSock;
var
  ip, ip_start, ip_end: u_long;
begin
  ip := inet_addr(ip_string);
  // wichtig: prüfen, ob inet_addr() einen Fehler geliefert hat
  
  ip_start := inet_addr(...);  

  ...
  if (ip >= ip_start) and (ip <= ip_end) then
    ShowMessage('bingo');