#!/usr/bin/perl
#############################################################################
use IO::Socket::INET;
use Term::ANSIColor;
#############################################################################

my $addr=$ARGV[1];
my $user=$ARGV[2];
my $pass=$ARGV[0];

$sock = IO::Socket::INET->new(PeerAddr => $addr,
                              PeerPort => 22,
                              Proto    => 'tcp');
$resp = <$sock>;

my $addr = $addr || '';
for ($addr) {
        s/^\s+//;
        s/\s+$//;
}
my $host;
my $host = gethostbyaddr(inet_aton($addr), AF_INET);
if ($host) {
print color 'bold green';
print "[2012] $user:$pass $addr <=> $host - using $resp\n";
print color 'reset';
                   open(OUT, ">>vuln.log");
                   print OUT "[2012] $user:$pass $addr <=> $host - using $resp\n";
                   close OUT;
}
else {
print color 'bold red';
print "[2012] $user:$pass $addr <=> NO PTR Reverse - using $resp\n";
print color 'reset';
                   open(OUT, ">>vuln.log");
                   print OUT "[2012] $user:$pass $addr <=> NO PTR Reverse - using $resp\n";
                   close OUT;
}