Perl SSH соединение для выполнения telnet - PullRequest
Новая
       11

Perl SSH соединение для выполнения telnet

2 голосов
/ 11 апреля 2011

Я попытался выполнить следующие действия для доступа к маршрутизатору через сервер центрального администратора в качестве сервера "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.plline 71

Может ли кто-нибудь помочь мне, пожалуйста, или есть лучшее решение только для проверки, возможно ли соединение через telnet через сервер "hop"?

Соединение выглядит следующим образом: рабочая станция --ssh-> server --telnet-> router

Заранее спасибо.

Ответы [ 2 ]

2 голосов
/ 12 апреля 2011

Получение Net :: Telnet для работы над Net :: OpenSSH иногда не так просто, как следовало бы, и требуется некоторое экспериментирование, чтобы найти правильную комбинацию флагов ивызовы, которые заставляют его работать.

Например, вместо телнетирования на целевой хост, используйте netcat для открытия необработанного соединения (или Net :: OpenSSH поддержка переадресации TCP, если разрешены туннелина прокси).

Ожидается + Net :: OpenSSH может быть лучшим вариантом.

2 голосов
/ 11 апреля 2011

Я думаю, что лучший вариант - создать SSH-туннель к вашему серверу администратора и использовать его для телетнетирования к маршрутизатору.

...