#!/usr/bin/perl -- -*-Perl-*-
#
# Generate HTML containing bogus addresses
# The idea is to keep SPAMers and junkmailers who search web pages
# for addresses too busy with bogus addresses to flood valid ones.
# No good web site should be without a few thousand bogus addresses
# that are changed often.
#
# The code that generates the random addresses was written by someone else
# I don't remember where I found it. I don't know why they chose the
# algorithms they did, as they seem rather bizarre. I modified it to run
# on the command line, or as a cgi script and to generate html pages
# with addresses. Chris Seidel 1997
$verbose=0;
$body_only=0;
$title='SPAM bait';
$n_low=900;
$n_high=1100;
$thisdir = "/home/userdir/public_html/MailFriends"; #your directory path
$thisbaseurl = "http://www.mydomain.com/MailFriends"; #your base url to this script
@candidate_list = (
'abcdefghijklmnopqrstuvwxyz',
'abcdefghijklmnopqrstuvwxyz abcdefghijklmnopqrstuvwxyz0123456789',
'abcdefghijklmnopqrstuvwxyz0123456789',
'ABCDEFGHIJKLMNOPQRSTUVWXYZ ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789',
'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789',
);
@candidate_list_p = (
844,
125,
25,
5,
1,
);
@name_length_p = (
1,
49,
100,
150,
150,
125,
100,
75,
);
@parts_p = (
7,
2,
1,
);
@ending_list = (
'com',
'edu',
'org',
'gov',
'us',
'fi',
);
@ending_list_p = (
40,
30,
10,
1,
1,
1,
);
srand(time|$$);
print "Content-type: text/html\n\n";
print <
my junk mail friends
\n
All my friends who love to receive commercial e-mail
I have so many that they change with each reload.
EOM
# postmaster@localhost
local($n_mailto) = 50;
for(local($i)=0;$i<$n_mailto;$i++)
{
$address = &fake_address;
print "$address
\n";
}
print "
\n";
&AllPages();
print "
\n";
print "