#!/usr/bin/perl -w 

print "*Simple Remote SSH Grab Banner by y3dips*\n"; 

if(@ARGV==0) 
#Help Options 
	{ 
	print "Gunakan: perl $0 www.target.com:ssh \n"; 
	} 
else 

#Processing 
	{ 
	use IO::Socket; 
	my$server = shift; 
	my$love = IO::Socket::INET->new($server); 
	my$garis = <$love>; 
	print "Result = $garis"; 
	}

#y3dips(c)2005