帮忙看看那里错了一个扫描软件代码

哈哈 · 发表于 2004-9-27 11:42:31

#!usr/bin/perl #perl程序开头标式
use IO::Socket; #载如IO::Socket包
print "请输入你要扫描的主机：";
 $ARGV[0]=<STDIN>; #从键盘上输入数据到 $ARGV[0]
chop($ARGV[0]); #把最后一个字符删除
 $host=$ARGV[0];
 $file="ports.txt";
open(FILE," $file")||die " $file端口文件是不是你搞丢了啊？自己重写一个吧\n"; #打开文件
while(@all=<FILE>){ #循环读取文件中的端口
print"正在扫描 $host……\n";
foreach  $port (@all){
 $sock=IO::Socket::INET->new(PeerAddr=> $host,PeerPort=> $port,Timeout=>60); #新建IO::Socket::INET对象  $sock
if( $sock){ #判断端口是否打开
print(" $host主机-> $port端口打开着!\n"); $sock->close; #关闭SOCKET对象
}else{
print " $port关闭着!\n";
}
}print("\n");
}print("端口扫描结束,谢谢使用!");
exit 1;

我觉得好象是循环那里出错没有循环扫描端口啊而且问问ports.txt里的端口是否是竖着排列还是用空格横着排? 谢谢老大门了

bst · 发表于 2004-9-27 15:34:23

虽然不知道.
顶

cmdline · 发表于 2004-9-27 20:53:48

while(@all=<FILE> ){ #循环读取文件中的端口
print"正在扫描 $host……\n";
foreach  $port (@all){
 $sock=IO::Socket::INET->new(PeerAddr=> $host,PeerPort=> $port,Timeout=>60); #新建IO::Socket::INET对象  $sock
if( $sock){ #判断端口是否打开
print(" $host主机-> $port端口打开着!\n"); $sock->close; #关闭SOCKET对象
}else{
print " $port关闭着!\n";
}
}print("\n");
}print("端口扫描结束,谢谢使用!");

while(<FILE>)
{
print"正在扫描 $host……\n";
$sock=IO::Socket::INET->new(PeerAddr=> $host,PeerPort=> $_,Timeout=>60);
## skip ...

复制代码

哈哈 · 发表于 2004-9-29 18:53:30

谢谢大哥不过运行时好象说无法辨认ports。txt的东西我试过横或者竖排列都不行究竟是什么回事还是程序本来还有些不完善的地方谢谢大哥的耐性指点

cmdline · 发表于 2004-9-30 10:19:18

sh-2.05b$ cat ports.txt
21
22
25
80

复制代码

use IO::Socket;
$host = "linuxsir.cn";
open PORTS, "ports.txt" or die "$!\n";
while(<PORTS>)
{
next if /^\s/;
chop;
$socket = IO::Socket::INET->new(PeerAddr=>$host,PeerPort=>$_,Timeout=>60);
print "$host:$_ is open!\n" if defined $socket;
## skip..
}

复制代码

你地 ports.txt 是什么内容?

哈哈 · 发表于 2004-9-30 20:34:42

谢谢老大的不吝指教~
我是这样写的ports.txt里不知道对不对
80
25
139
3389
有的端口我知道是打开了的我又试过这样的格式
80，455，1025
也是不行
不过用老大的可以了也不知道是不是原来程序的问题谢谢老大了

A_Banknote · 发表于 2004-10-3 15:48:48

我用你的源程序没有一点问题
文件里面应该竖着排列

哈哈 · 发表于 2004-10-19 20:39:21

谢谢楼上那位大哥不过我就是不行也不知道什么问题虽然能运行但只是输出一个端口（port里排第一那个而且我的机子根本没开那端口）

		自动登录	找回密码
密码			注册