|
Hi,
i try to connect to linux machine with the next lines :
#!/usr/local/bin/perl5.8.7 -w
use strict;
use Net::SSH::Perl;
my $host = "xxx.xxx.xxx.xx";
my $ssh = Net::SSH::Perl-> new($host , debug => 1 ,
protocol => 2);
my $user = "root";
$ssh->login($user) || die "cannot connect to $host";
my $cmd = "ls";
my($stdout, $stderr, $exit) = $ssh-> cmd($cmd);
print $stdout ;
and the connection cannot establish :
winom1: Reading configuration data /root/.ssh/config
winom1: Reading configuration data /etc/ssh_config
winom1: Allocated local port 1023.
winom1: Connecting to xxx.xxx.xxx.xx, port 22.
winom1: Remote protocol version 2.0, remote software version OpenSSH_3.6.1p2
winom1: Net::SSH::Perl Version 1.28, protocol version 2.0.
winom1: No compat match: OpenSSH_3.6.1p2.
winom1: Connection established.
winom1: Sent key-exchange init (KEXINIT), wait response.
winom1: Algorithms, c-> s: 3des-cbc hmac-sha1 none
winom1: Algorithms, s-> c: 3des-cbc hmac-sha1 none
winom1: Entering Diffie-Hellman Group 1 key exchange.
winom1: Sent DH public key, waiting for reply.
Connection closed by remote host. at /usr/local/lib/perl5/site_perl/5.8.7/Net/SSH/Perl/Kex/DH1.pm line 41
|
