home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / SATAN11.ZIP / PERL / SUBNETS.PL < prev    next >
Text File  |  1995-04-11  |  2KB  |  108 lines
  1. #
  2. # sift by subnets
  3. #
  4. # Output to: 
  5. #
  6. # $all_subnets{subnet}: hosts per subnet
  7. #
  8. # $host_subnet{host}: subnet of this host
  9. #
  10. # $subnet_count{subnet}: number of hosts in this subnet
  11. #
  12. # $subnet_severities{subnet}: nr of vulnerable hosts in subnet
  13. #
  14. # $subnet_flag: reset whenever the tables are updated. To recalculate,
  15. # invoke make_subnet_info().
  16. #
  17. # Standalone usage: perl subnets.pl [data directory]
  18. # 
  19.  
  20. #
  21. # Generate subnet statistics.
  22. #
  23. sub make_subnet_info {
  24. local($subnet, $host);
  25.  
  26. if ($subnet_flag > 0) {
  27.     return;
  28.     }
  29. $subnet_flag = time();
  30. %all_subnets = ();
  31.  
  32. &make_severity_info();
  33.  
  34. print "Rebuild subnet type statistics...\n" if $debug;
  35.  
  36. %all_subnets = ();
  37. %host_subnet = ();
  38.  
  39. for $host (keys %all_hosts) {
  40.     if ($host) {
  41.         ($subnet = $all_hosts{$host}{'IP'}) =~ s/\.[^.]*$//;
  42.         $subnet = "unknown" unless $subnet;
  43.         $all_subnets{$subnet} .= "$host ";
  44.         $host_subnet{$host} = $subnet;
  45.         }
  46.     }
  47.  
  48. # Cheat in case the facts file has names not in all-hosts.
  49.  
  50. for $host (keys %hosttype, keys %severity_host_count) {
  51.     next unless $host;
  52.     next if defined($host_subnet{$host});
  53.     if ($host =~ /^([0-9]+\.[0-9]+\.[0-9]+)\.[0-9]+$/) {
  54.         $subnet = $1;
  55.     } else {
  56.         $subnet = "unknown";
  57.     }
  58.     $all_subnets{$subnet} .= "$host ";
  59.     $host_subnet{$host} = $subnet;
  60. }
  61.  
  62. for $subnet (keys %all_subnets) {
  63.     $subnet_count{$subnet} = split(/\s+/, $all_subnets{$subnet});
  64.     $subnet_severities{$subnet} = 0;
  65.     for $host (split(/\s+/, $all_subnets{$subnet})) {
  66.         $subnet_severities{$subnet}++ if exists($severity_host_type_info{$host});
  67.         }
  68.     }
  69. }
  70.  
  71. #
  72. # erase the subnet info tables
  73. #
  74. sub clear_subnet_info {
  75.     %all_subnets = ();
  76.     %host_subnet = ();
  77.     %subnet_count = ();
  78.     %subnet_severities = ();
  79.     $subnet_flag = 0;
  80. }
  81.  
  82. #
  83. # Stand-alone mode
  84. #
  85. if ($running_under_satan == 0) {
  86. warn "subnets.p in stand-alone mode...";
  87. $running_under_satan = 1;
  88. $debug = 1;
  89. require 'perl/targets.pl';
  90. require 'perl/severities.pl';
  91. require 'perl/facts.pl';
  92.  
  93. &read_all_hosts("$ARGV[0]/all-hosts");
  94. &read_facts("$ARGV[0]/facts");
  95. &make_subnet_info();
  96.  
  97. print "Subnet info\n";
  98.  
  99. for (keys %all_subnets) {
  100.     print "Subnet: $_ $subnet_severities{$_}/$subnet_count{$_}\n";
  101.     for (split(/\s/, $all_subnets{$_})) {
  102.         print "\t$_\n";
  103.         }
  104.     }
  105. }
  106.  
  107. 1;
  108.