[clug] Sitar@home; Indirectly targeting veri greedy people
Michael.James at csiro.au
Michael.James at csiro.au
Thu Sep 25 16:59:05 EST 2003
As Shakespear said, "If brevity is the soul of wit, hack on."
#!/usr/bin/perl -w
# (C) Kim Holburn 2003
# released under GNU Public License
# http://www.gnu.org/copyleft/gpl.html
# script to generate pseudo-random strings
# and download robots.txt files from random websites.
use strict;
use LWP::Simple;
@ARGV and die "Just run it man, it's not configurable.\n";
my @chars=(
"a","b","c","d","e","f","g","h","i","j","k","l","m","n",
"o","p","q","r","s","t","u","v","w","x","y","z","-",
"0","1","2","3","4","5","6","7","8","9",
);
while (1) {
my $url = 'http://www.';
for ( 1..int(rand(17)+3) )
{ $url .= $chars[int(rand($#chars))]; }
$url .= ".com/robots.txt\t";
print "\nTrying $url";
get($url) and print "OK";
sleep 1;
}
--
Michael James michael.james at csiro.au
System Administrator voice: 02 6246 5040
CSIRO Bioinformatics Facility fax: 02 6246 5166
More information about the linux
mailing list