Arsip: IP Network Scanning List

Ini dibuat karena ada Delphier yang minta tolong carikan untuk bagaimana list IP address yang ada didalam jaringan ...

Ini berguna untuk IPv4 saja ... IPv6 ... au ah gelap

Berikut Cuplikan untuk functionnya...

Uses Winsock;  // <-- jangan lupa



procedure TForm2.getIP;

var

  SAI: TSockAddrIn;

  HostEnt: PHostEnt;

  WSAData: TWSAData;

  IP: String;

  i: Integer;

begin

  WSAStartup(1, WSAData);

  for i := 0 to 255 do  // maksimum 255 host

  begin

    IP := '192.168.1.' + inttostr(i);  // jangan lupa titik ( . ) <-- ini juga format IPv4 xxx.xxx.xxx.xxx

    SAI.sin_addr.s_addr := inet_addr(PChar(IP));

    HostEnt := gethostbyaddr(@SAI.sin_addr.S_addr, 4, AF_INET);

    if HostEnt <> nil then

      Memo1.Lines.Add(IP + ' - ' + StrPas(Hostent^.h_name));

  end;

end;