[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