#!/usr/bin/perl -w # This script is designed to fill spammers databases with fake email addresses. # For more info see http://members.hostedscripts.com/antispam.html @letters=('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'); @extensions=('com','org','net'); for ($count=1; $count<101; $count++) { $email_part1 = ""; $ran_count = int(rand(5)) + 5; for ($count_let=1; $count_let<$ran_count; $count_let++) { $ran = int(rand(36)); $email_part1 = $email_part1 . $letters[$ran]; } $email_part2 = ""; $ran_count = int(rand(10)) + 10; for ($count_let=1; $count_let<$ran_count; $count_let++) { $ran = int(rand(36)); $email_part2 = $email_part2 . $letters[$ran]; } $email_part3 = ""; $ran = int(rand(3)); $email_part3 = @extensions[$ran]; $addresses_collection = $addresses_collection . "$email_part1\@$email_part2.$email_part3" . "
\n"; } # end for ($count=1; $count<101; $count++) print "Content-type: text/html\n\n"; $ran = int(rand(10000)); print < Random Email Address Generator

This page is here to fill up spammers databases with fake email addresses.

The idea for this script came from http://members.hostedscripts.com/antispam.html, where more information can be found about this practice.

$addresses_collection