sourcecode
wombat
<code>
#!/usr/bin/perl
use POSIX;
print "Content-type: text/html\n\n";
print "<html><head><title>A list of all my best friends email addresses!</title></head>\n";
#Include whatever other page fluff you want here.
open (DICT, "/usr/dict/words") or die "Canna open zee dictionary file!\n";
open (DOM, "/home/httpd/cgi-lib/dominia") or die "Canna open zee domain file!\n";
#dominia is just a list of (evil)domains, one per line.
while (<DOM>)
{
chomp;
push @domlist, $_;
$domcount++;
}
for(0..255)
{
do {
$randloc=floor(rand(409070));
#This is the size of my dictionary. Adjust as needed.
seek DICT, $randloc,0;
$discard = <DICT>;
$in = <DICT>; chomp $in;
}
while ((length $in)>5);
push @first, $in;
do {
$randloc=floor(rand(409070));
seek DICT, $randloc,0;
$discard = <DICT>;
$in = <DICT>; chomp $in;
}
while ((length $in)>7);
push @last, $in;
}
print "<table><tr>";
for (0..255)
{
$domseek = floor(rand($domcount));
print "<td>";
print "<a href=mailto:$first[$_]$last[$_]\@$domlist[$domseek]>$first[$_]$last[$_]\@$domlist[$domseek]</a>";
print "</td>";
if ($_ % 3 == 2) {print "</tr>\n<tr>";}
}
print"</table>";
print"</body></html>";
close DICT;
close DOM;
</code>
"Poisoning the well" is a term sometimes used to mean
feeding a bot false information, either to make it crash,
or to devalue the rest of the data that it is supposed to
be mining. We all hate spambots. They're the ones that
scour webpages, looking for little &lt;a href=mailto:&gt; tags.
They then take down your email address and some spammer
then sells it on a "100,000,000 VALID WORKING ADDRESSES"
CD-Rom to other unpleasent people. You can all help stop these
evil robots, by putting up a Poisoned Well on your homepage.
<br><br>Basically it's a list of randomly generated email addresses
that look valid (cause they're made of dictionary words), have valid DNS entries, but then bounce when
the spammers try to send mail to them. This program has
a twofold purpose. Older Poison Wells just generate &#091;a-z&#093;{random}@&#091;a-z&#093;{random}.&#091;com org net&#093;.
This one takes domains that you specify from a list. Thus,
you can put domains you don't like in the list, and then
cause THEM to have the burden of sending back lots of
bounced messages. As stated before, any spambot worth its
silicon would check to see if the address was a valid
domain. This would circumvent that.<br><br>
For my list of evil domains, I've put the six top generators of banner ads. Especially the ones that are suspected of selling personal data. >:-D
<br><br>Some of the amusing email addys that this generated were <ul>
<li>Colanderwax@someregistereddomain.com
<li>JesusRedmond@someregistereddomain.com
<li>crudbedbug@someregistereddomain.com
<li>tyingbabies@someregistereddomain.com
<li>leekchecker@someregistereddomain.com
<li>hottrousers@someregistereddomain.com
</ul>
Web Stuff
[wombat]