#!/usr/bin/perl
#$domain = "snts.eu.org";
$domain = "kma.will-spam-for-food.eu.org";
#
# The seed is designed to generate the same page for the same IP client,
# during 2 days. This should make detection more difficult.
#
$randseed = int(time/86400/2);
$remote_ip = $ENV{'REMOTE_ADDR'};
for ($r = 0; $r < length($remote_ip); $r++) {
$randseed += ord(substr($remote_ip, $r, 1));
}
srand($randseed);
$numaddr = 200 + 50*rand();
print "Content-type: text/html\n\n\n";
for ($i = 0; $i < $numaddr; $i++) {
$uid = int(rand()*10000);
$salt = rand() * 26 * 26;
$addr = sprintf ("%c%c%04d\@$domain", 97 + ($salt % 26),
97 + ($salt / 26), $uid);
$j = $i % 4;
print "Contact us at $addr\n"
if ($j == 0);
print "
For info about ${salt} please contact $addr\n"
if ($j == 1);
print "
Send stuff to: mqlkeu.org-cuivre${uid}sdjf\@cuivre.freenix.fr\n"
if ($j == 2);
print "
Send dung to: mqlkeu.org-droopi${uid}sdjf\@droopi.eu.org\n"
if ($j == 3);
}
print "\n";