#!/usr/local/bin/perl
#
# make_bogus_addresses -- create a spam-hosing list of fake addresses
#
# This script can be copied, reproduced, reused, and rewritten as much as you
# like. The idea is pretty old, but I like the addresses it creates ;) No
# warranty is implied. Never run with scissors. If you do use it, please leave
# a credit for me in it somewhere, and put up a spam-hosing page of your own!
#
# -- Aug 18 1997 jmason
$num = $ARGV[0]+0;
die "usage: make_bogus_addresses num_addrs\n" if ($num == 0);
print STDERR "Making a list of $num bogus addresses...\n";
open (IN, "< /usr/dict/words") || die "no words db";
while () { chop; push (@words, $_); }
close IN;
$numwords = $#words;
@tlds = split (' ', 'com net org ie au nz uk gb il ir lu an ru hk ch');
$numtlds = $#tlds;
while () { print; }
srand ($$^time);
for ($i = 0; $i < $num; $i++) {
$_ = $words [rand ($numwords)]."@".
$words [rand ($numwords)].$words [rand ($numwords)].".".
$words [rand ($numwords)].$words [rand ($numwords)].".".
$tlds [rand ($numtlds)];
s/[^-_A-Za-z0-9@\.]/_/g;
print $words [rand ($numwords)]." ".$words [rand ($numwords)].", ".
$words [rand ($numwords)]." ".$words [rand ($numwords)].": ".
" $_
\n";
}
print "
\n"; exit 0;
__DATA__