#!/usr/local/bin/perl -- -*-fundamental-*- ## Shovel.pl ## Written by Greg Mullane ## Please see http://www.turnstep.com/Spambot/ ## ## This program outputs a bunch of junk for a spambot ## Use at your own risk $|++; ## Crank this up for more effectiveness: $MaxChars=1000; ## Chance of a tease appearing (as in "1 in $Chance") $Chance=100; ## Add your own teasers! $Tease= "Email addresses!\n\n"; print "

Yum Yum!

\n"; srand ( time() ^ ($$ + ($$<<15)) ); for $x (1..$MaxChars) { if ($q =int(rand $Chance)) { printf("%c", int(rand 255)); } else { print "$Tease"; } } exit;