#!/usr/local/bin/perl -- -*-fundamental-*- ## Infinospam.pl ## Written by Greg Mullane ## Please see http://www.turnstep.com/Spambot/ ## ## This program creates a [never]ending series of pages ## with false emails for a spambot to eat ## Use at your own risk $NamesPerPage = 100; ## Boost at will $FALSEDOMAIN = "ksdasoiasddas"; $RootUrl = "http://yoursite"; $RootDir = "/home/your/directory/cgi-bin"; $Template = "$RootDir/Infinospam.pl"; $VirtualOne = "FBKB"; $VirtualUrl = "$RootUrl/$VirtualOne"; $VirtualDir = "$RootDir/$VirtualOne"; $SearchDir = "/cgi-bin/$VirtualOne"; $Unique = "ZZ"; $rm = "/bin/rm"; $RandomDomain = 26; ## Maximium additional random letters in domain name $RandomUserMin = 3; ## Minimum length of random usernames $RandomUserMax = 26; ## Maximum length of random usernames $|=1; print "Content-type: text/html\n\n"; print "Email addresses\n\n"; print "

Here's a list of my friends! (NOT)

\n"; ## Figure out which script this is: $VirtualScript=0; if ($ENV{"SCRIPT_NAME"} =~ m#$SearchDir/(.*)#) { $VirtualScript = "$VirtualDir/$1"; } ## Create a pseudo-random domain: srand ( time() ^ ($$ + ($$<<15)) ); $domain = "\@$FALSEDOMAIN"; $letters = int(rand $RandomDomain)+1; for $x (1..$letters) { $domain .= pack "C", int(rand 26)+97; } $domain .= ".com"; ## Create some pseudo-random (yet always invalid) email addresses: print "\n"; ## Now create a link to a new page! $newpage = "$VirtualDir/$Unique$nn"; $newurl = "$VirtualUrl/$Unique$nn"; symlink($Template, $newpage); print "Here's a great link for ya: Wow check it out!\n"; ## Erase the current page, if it's a link: if ($VirtualScript) { ## You can also try leaving VirtualScript alone $VirtualScript="$VirtualDir/*"; system("$rm -f $VirtualScript"); } exit;