#!/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]#################################