home *** CD-ROM | disk | FTP | other *** search
/ Hackers Toolkit v2.0 / Hackers_Toolkit_v2.0.iso / HTML / archive / Unix / c-src / findhosts.pl < prev    next >
Perl Script  |  1999-11-04  |  1KB  |  41 lines
  1. #!/usr/bin/perl -w
  2. # FindHosts.pl by Adam Rogoyski (apoc@laker.net)
  3. # Copyright (C) 1997 Adam Rogoyski
  4. # usage:  ./findhosts.pl ip
  5. # ex:    bash-2.00$ ./findhosts.pl 205.245.74.
  6. # --- GNU General Public License Disclamer ---
  7. # This program is free software; you can redistribute it and/or modify
  8. # it under the terms of the GNU General Public License as published by
  9. # the Free Software Foundation; either version 2 of the License, or
  10. # (at your option) any later version.
  11. # This program is distributed in the hope that it will be useful,
  12. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. # GNU General Public License for more details.
  15.  
  16. use strict;
  17. my ($baseip, $name, $aliases, $type, $length, $ip, $i, @addresses);
  18. $baseip = shift || die "usage: ./findhosts.pl xxx.xxx.xxx.";
  19. if ($baseip !~ /^\d+\.\d+\.\d+\.$/)
  20. {
  21.    print STDERR "usage: ./findhosts.pl xxx.xxx.xxx.\n";
  22.    print STDERR "ex   : ./findhosts.pl 205.245.74.\n";
  23.    exit 1;
  24. }
  25. $name = $aliases = $type = $length = 0;
  26. @addresses = ();
  27. for ($i = 1; $i <= 255; $i++)
  28. {
  29.    $ip = $baseip . $i;
  30.    ($name, $aliases, $type, $length, @addresses) =
  31.    gethostbyaddr(pack('C4', split('\.', $ip)), 2);
  32.    if ($addresses[0])
  33.    {
  34.       printf "$ip $name\n";
  35.    }
  36.    else
  37.    {
  38.       print "$ip \n";
  39.    }
  40. }
  41.