c1zc0

#!/usr/bin/perl
#
# Name: c1zc0-ipv6bs.pl by rotor in 2007
# Description: ipv6 banner grabber
# Contact: irc.freenode.net #c1zc0 || http://c1zc0.org
# Shoutz: TO my girl madison 
#

use strict;
use warnings;
use IO::Socket::INET6;          
use Term::ANSIColor qw(:constants);
                                
if(@ARGV != 2){                 
        &usage;                 
}                               
                                
my $host = $ARGV[0];            
my $port = $ARGV[1];            
print(BOLD GREEN "Trying to Grab banner on $host | $port\n");
my $sock = IO::Socket::INET6->new(PeerAddr => $host,
                                  PeerPort => $port,
                                  Proto    => 'tcp')
                        or die("cant connect to host\n");
$sock->send("\n");              
my @recv = <$sock>;             
close($sock);                   
print(BOLD GREEN "Banner: @recv\n");
                                
sub usage{                      
        print(BOLD GREEN "$0 by rotor in 2007\n");
        print(BOLD GREEN "Usage: perl $0 [host] [port]\n");
        exit;                   
}