perl script for scan TCP ports .

deathcult

A simple perl script that scans a machine for reachable TCP ports.

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. $|=1;
   
5. $tghost = shift || $ENV{"HOSTNAME"};
   
6. $maxprt = shift || 1024;
   
7. 
   
8. $AF_INET=2;
   
9. $SOCK_STREAM=1;
   
10. $sockaddr='S n a4 x8';
    
11. 
    
12. ($name,$aliases,$proto)=getprotobyname('tcp');
    
13. foreach $port (1 .. $maxprt)
    
14. {
    
15.         ($name,$aliases,$type,$len,$thataddr)=gethostbyname($tghost);
    
16.         $this=pack($sockaddr,$AF_INET,0,$thisaddr);
    
17.         $that=pack($sockaddr,$AF_INET,$port,$thataddr);
    
18.        
    
19.         die "unknown host $tghost\n" if($thataddr eq "");
    
20. 
    
21.         socket(S,$AF_INET,$SOCK_STREAM,$proto) or die $!;
    
22.         bind(S,$this) or die $!;       
    
23. 
    
24.         if(connect(S,$that))
    
25.         {
    
26.                 ($srv_name, $srv_aliases, undef, undef)=getservbyport($port,'tcp');
    
27. 
    
28.                 printf("%5d %s\n", $port, $srv_name || "unknown serv");
    
29. 
    
30.                 close(S);
    
31.         }
    
32. 
    
33. }
    
34. 
    
35. exit 0;
    

复制代码

雨中漫步

perl socket编程，俺用的很少，学习一下！
这里真是高手如云呀！除了俺

juey

if(connect(S,$that))   这里  目标机器如果连不上  要等待好久 好久   甚至根本就不返回连接失败了    能设置TIMEOUT吗