#!/usr/bin/perl
#
# bot-trap #1
#
# a quite simple bot-trap, to demonstrate
# the idea behind these 'tar-baby' traps
# feel free to steal and modify as you
# wish.
# these 'simple' spider-traps are easily
# avoided, you'll see, there are better
# ways.
# -sonofsamiam
#
print "Content-Type: text/html\n\n";
print "";
print "";
print "\"brer rabbit?\"
\"yes, brer fox?\"";
print "
\"the web is a minefield...\"
heheh...
";
$b=int(rand 25)+1;
for($i=0;$i<$b;$i++){ #how many links
$s='';
$c=int(rand 8)+1;
for($j=0;$j<$c;$j++){ #length of query
$s.=chr(int(rand 26)+97);
}
print "$s
\n";
}
print "";