Жил был васяя

#!/usr/bin/perl -w

#(c) Alego;

use strict;

use LWP;



my $server="http://www.alipr.com/captcha/";



my $ua = LWP::UserAgent->new;

$ua->agent("Hey humans! I am a bot, and I am pass u tests");



my $res = $ua->get($server);

my @array=split(/
/, $res->content);

my $str;

my $picture;

foreach $str (@array){

		if ($str=~m/img1.src[^"]*"([^"]*)"/){

			$picture=$1;

			print "Picture path: $1
";

			last;

		}

}



#lets start check random values xD;

my $x;

my $y;

my $status=undef;

my $counter=0;

while (not $status){

	$counter++;

	#center any image could't be in border;

	$x = 100 + int rand 600; 

	$y = 100 + int rand 400;

	$res = $ua->post("$server"."process.php", , [x => $x , y=> $y,debug => 'false', source=>'image_center', img=>$picture], 'referer'=>$server);

	if (not $res->header('Location')=~m/fail/){

		print $x."x".$y;

		print " - Found ($counter)!
";

		last;

	}

}



#second test



$res = $ua->get($server."index2.php");

@array=split(/
/, $res->content);



foreach $str (@array){

	if ($str=~m/img1.src[^"]*"([^"]*)"/){

		$picture=$1;

		print "Distorted picture path: $1
";

		last;

	}

}





my $content;

# you allready have 15 option in  form, so:

for ($counter=1;$counter<16;$counter++){

	$content=$counter;

	$res = $ua->post("$server"."process.php", , [source => 'false', source=>'image_content', img=>$picture,content=>$content], 'referer'=>$server);

 	if (not $res->header('Location')=~m/fail/){

 		print $content;

 		print " - Found ($counter)!
";

 		last;

 	}

}



print "
";



#thank for you time.

#Good Luck.



1;