Spam Hunter

Viagra, penis enhancements, porn, mortgage rates, and much more are shoved into my inbox everyday. I'm not trying to win the spam war. I just like to vent by choosing one email a day, tracing down the jerk who sent it and publishing any antics that ensue.

Saturday, September 11, 2004

Creating false positives for spammers

Since he is trying to figure out who is "live" in his spam rolodex let's have a little fun.
The first tool to use would be a random text generator or in this case a simple encoder.
We don't need truely random here so Mime64 encoded using localtime() output will work just fine.


So here is what I came up with for blingcash so far

#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use MIME::Base64;

my $text= "spammersuck";

# Create a user agent object
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/8.0"); # pretend we are very capable browser :)


my $baseURL='http://birdgenus.com/web09.php/';

sub getPage
{
my $key = localtime();
#removing anything that is not a digit
$key=~s/\D//g;
$key=rand($key);
my $encoded = encode_base64("$key:$text");

#original email had a 16 char hash so just making sure mine is similar
my $hash=substr($encoded,0,15);

my $req = HTTP::Request->new(GET => $baseURL.$hash);
$req->header('Accept' => 'text/html');

# Pass request to the user agent and get a response back
my $res = $ua->request($req);

# Check the outcome of the response
if ($res->is_success) {
print $hash . " " .$res->status_line . "\n";
}
else {
print "Error: " . $res->as_string . "\n" if ($res->status_line!~/404/);
}
}

foreach my $try (1..5)
{
getPage();
}




3 Comments:

At 2:11 AM, Anonymous herman nainkin said...

where would we put your code to irritate spammers? im not a programmer - a novice, but would appreciate the advice

 
At 2:12 AM, Anonymous Herman Nainkin said...

where would we put your code to irritate spammers? im not a programmer - a novice, but would appreciate the advice

reply to herman7600@hotmail.com

sorry to provide that account but its just in case you are going to spam me too!

 
At 7:58 PM, Blogger djuti said...

The code is all written in a language called Perl. If you use Windows I would suggest downloading the Active Perl distribution from http://www.activestate.com
Without some programming expierence it would be pretty difficult to use most of what is provided.
Maybe it's time to start learning ;)

I would suggest the Learning Perl book from O'Reilly. Perl is one of the easiest scripting languages in the world to use.

 

Post a Comment

<< Home