## 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 ## ## Modified by Rudy Rucker, Jr. ## Thu Oct 25, 2001 ## ## To install: ## 1) Place this script in your cgi-bin and chmod 755. ## 2) Add the following line to your httpd.conf file: ## ScriptAliasMatch "^/mono/.*$" /www/cgi-bin/infinospam.pl ## 3) [Optional] add Disallow: /mono/ ## ## [Nota Bene: if you alter the 'BogusBasePath' in the settings below, ## you will need to alter the setup in #2 and #3] ##------------------------------------------------------------ ## Here are some settings you can tweak. ##------------------------------------------------------------ my $NamesPerPageMax = 120; ## Boost at will (this is a max and randomly configured below) my $FalseDomainBase = 'sesos'; my $RandomDomain = 8; ## Maximium additional random letters in domain name my $RandomUserMin = 3; ## Minimum length of random usernames my $RandomUserMax = 20; ## Maximum length of random usernames my $BogusBasePath = 'mono'; ##------------------------------------------------------------ ## Modify this HTML so that your site's spambot food looks ## different than food at other sites! (Trick em!) ##------------------------------------------------------------ my $htmlHeader = < Email addresses emails
These email friends can usually get a hold of me. Try emailing them!

Dude!

EOheader ##------------------------------------------------------------ ## Everything below here should remain the same. ## (Except maybe the HTML around the new URL...) ##------------------------------------------------------------ $|=1; print "Content-type: text/html\n\n", $htmlHeader; ## Create a pseudo-random domain: srand ( time() ^ ($$ + ($$<<15)) ); my $letters = int(rand $RandomDomain)+1; my $NamesPerPage = int(rand $NamesPerPageMax) + 1; my $domain = $FalseDomainBase; for (1..$letters) { $domain .= pack "C", int(rand 26)+97; } ## Create some pseudo-random (yet always invalid) email addresses: for my $x (1..$NamesPerPage) { $letters = int(rand $RandomUserMax)+1; my @newname = (); if ($letters < $RandomUserMin) { $letters = $RandomUserMin; } for my $y (1..$letters) { $newname[$y-1] = pack "C", int(rand 26)+97; } my $email = join(/1/, @newname) . '@' . $domain . ('.com', '.net', '.org')[int(rand 3)]; print "$email
\n"; } print "\n"; ## Now create a link to a new page! print "

\nMore arachnoid food is right here\n\n\n"; exit;