2

我尝试以下方法通过中央管理服务器作为“ssh hop”服务器访问路由器


#!/usr/bin/perl -X

use strict;
use Net::OpenSSH;
use Net::Telnet;

my $lhost = "linuxserver";
my $luser = "linuxuser";
my $lpass = "linuxpassword";

my $chost = "routername";
my $cpass = "Routerpassword";

my $prompt = '/(?:Password: |[>])/m';
my @commands = ("show users\r");

my $ssh = Net::OpenSSH->new($lhost,
'user' => $luser,
'password' => $lpass,
'master_opts' => [ '-t' ],
#'async' => 1 # if enabled then password cannot be set here
);
my ($pty, $err, $pid) = $ssh->open2pty("telnet $chost");

my $t = new Net::Telnet(
-telnetmode => 0,
-fhopen => $pty,
-prompt => $prompt,
-cmd_remove_mode => 1,
-output_record_separator => "\r",
#-dump_log => "debug.log",
);

my $end = 0;

while (!$end) {
  my ($pre, $post) = $t->waitfor($prompt);
  if ($post =~ /Password: /m) {
    # send password
    $t->print("$cpass");
  }
  elsif ($post =~ /[>#]/ && @commands) {
    my $cmd = shift(@commands);
    if ($cmd !~ /[\r\n]/) {
      $t->print($cmd);
    }
    else {
      print $t->cmd($cmd);
    }
  }
  else {
    $end = 1;
    $t->cmd("exit");
  }
}
#close $pty;
$t->close();

不幸的是,我总是收到以下错误:读取错误:test.pl 第 71 行的输入/输出错误

有人可以帮我吗?或者是否有更好的解决方案来测试通过“hop”服务器的telnet连接是否可行?

连接看起来像:工作站 --ssh-> 服务器 --telnet-> 路由器

提前致谢。

4

2 回答 2

2

Net::TelnetNet::OpenSSH上工作有时并不像应有的那么容易,它需要一些实验来获得使其工作的标志和调用的正确组合。

例如,不要远程登录到目标主机,而是使用 netcat 打开原始连接(如果代理上允许隧道,则使用Net::OpenSSH支持 TCP 转发)。

Expect + Net::OpenSSH可能是更好的选择。

于 2011-04-12T09:15:02.647 回答
2

我认为最好的选择是为您的管理服务器建立一个 SSH 隧道,并将其用于远程登录到路由器。

于 2011-04-11T19:46:11.213 回答