再次发贴:Net::SSH:Perl模块的问题

hyq_111

已经是我连续第四次发贴,可见事态是多么严重!
这次的问题是每次我用Net::SSHerl模块登录主机的时候,在login这一步就会报下面的错误:

input must be 8 bytes long at /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/Crypt/DES.pm line 57

我也查了查,但也没找到好的解释,就看CU的各位高手能不能帮我找到问题了,再次感谢兰花仙子 ulmer  flw 热情的回答我提出的问题,我从你们那学到了很多东西!

apile

看错了..他说你的长度不够8bytes....:)
帐号还是密码太短了？
可能是Net::SSH::Perl的 bug...:)

[ 本帖最后由 apile 于 2006-12-13 13:04 编辑 ]

hyq_111

可我在别的机器,比如redhat 上就没有这个问题,同样的用户名和密码都可以啊!
这是怎么回事??

apile

sub encrypt
{
        usage("encrypt data[8 bytes]") unless @_ == 2;

        my ($self,$data) = @_;
        return Crypt::DES::crypt($data, $data, $self->{'ks'}, 1);
}
57行是return Crypt::DES::crypt($data, $data, $self->{'ks'}, 1);

在程序开头加上
use Carp;
local $SIG{__WARN__}=\&Carp::cluck;
看看是那个程序那一行使用到这个subroutine...