第一章:获取服务器服务banner

1 #!c:\\perl\\bin\\perl.exe
2 #读取服务器的首行(banner)
3 
4 use IO::Socket;
5 
6 my $service = '121.201.67.177:ssh';
7 my $remove = IO::Socket::INET->new($service);
8 my $banner = <$remove>;
9 print $banner;


#注意这个banner获取， 最好设置一个超时值， 可以查看这个链接:http://www.cnblogs.com/perl6/p/6136200.html

 

转载于:https://www.cnblogs.com/perl6/p/6417432.html