CODE
#!perl
open( VULNFILE, ">>vuln.txt" );
#use strict;
use LWP::UserAgent;
use HTTP::Request;
$ua = new LWP::UserAgent;
$ua->timeout(2);
$ua->agent("Mozilla/6.0");
#Start and Filename input
print "Phpmyadmin Vuln Checker by flashlord\n";
print "hostfile: ";
$filename = <STDIN>;
chop($filename);
print VULNFILE "vuln test on ".$filename." started\n";
print VULNFILE "==================================\n";
close(VULNFILE);
#open file
open(FILEHANDLE,$filename);
@lines=<FILEHANDLE>;
#Count Ips
$linecount=@lines;
print $linecount." IPs found !\n";
$i=0;
while($i<$linecount){
$ip= pop(@lines);
chop($ip);
print "\n";
$url = "http://".$ip."/phpmyadmin/main.php";
print $ip.": ".$url;
$req = HTTP::Request->new('GET',$url);
$res = $ua->request($req);
$content= $res->content;
if(($content =~ /Welcome/) && ($content =~ /root/)) {
open( VULNFILE, ">>vuln.txt" );
print VULNFILE $ip."\n";
close(VULNFILE);
print " -> VULNERABLE";
}
print "\n";
$i=$i+1;
}
Well, i hope this works. Have phun
