Foro - Perl en Español

por **spacepecjks** » 2012-09-25 13:10 @590

¡Que tal a todos!

Estoy intentando conectarme a un enrutador Cisco vía SSH con Perl, el problema que tengo es que como que no logro que se ejecute cualquier comando, siento que no se logra a conectar, la verdad quisiera ver si alguno puede ayudarme con este detalle que tengo; aquí les dejo mi código y el resultado que me arroja:

código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!c:\perl\bin\perl.exe
print "content-type: text/html \n\n";
$ENV{HOME} = $ENV{USERPROFILE};
use strict;
use warnings;
use Net::SSH::Perl;
my $host = '10.2.90.1';
my $pass = 'cisco';
my $user = 'cisco';
my $cmd  = 'show who'; 
my $ssh = Net::SSH::Perl->new($host, protocol => '2,1', debug => 1,interactive=>0);
$ssh->login($user,$pass);
print "\n\n\n";
   my @interface = $ssh->cmd($cmd);
        print "la interface es:  @interface\n\n\n";
exit;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

resultado:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

VDDG00U05EXCOMX: Reading configuration data C:\Users\VDDG00U/.ssh/config

VDDG00U05EXCOMX: Reading configuration data /etc/ssh_config

VDDG00U05EXCOMX: Connecting to 10.213.19.1, port 22.

VDDG00U05EXCOMX: Remote protocol version 2.0, remote software version Cisco-1.25

VDDG00U05EXCOMX: Net::SSH::Perl Version 1.34, protocol version 2.0.

VDDG00U05EXCOMX: No compat match: Cisco-1.25.

VDDG00U05EXCOMX: Connection established.

VDDG00U05EXCOMX: Sent key-exchange init (KEXINIT), wait response.

VDDG00U05EXCOMX: Algorithms, c->s: 3des-cbc hmac-sha1 none

VDDG00U05EXCOMX: Algorithms, s->c: 3des-cbc hmac-sha1 none

VDDG00U05EXCOMX: Entering Diffie-Hellman Group 1 key exchange.

VDDG00U05EXCOMX: Sent DH public key, waiting for reply.

VDDG00U05EXCOMX: Received host key, type 'ssh-rsa'.

VDDG00U05EXCOMX: Host '10.213.19.1' is known and matches the host key.

VDDG00U05EXCOMX: Computing shared secret key.

VDDG00U05EXCOMX: Verifying server signature.

VDDG00U05EXCOMX: Waiting for NEWKEYS message.

VDDG00U05EXCOMX: Send NEWKEYS.

VDDG00U05EXCOMX: Enabling encryption/MAC/compression.

VDDG00U05EXCOMX: Sending request for user-authentication service.

VDDG00U05EXCOMX: Service accepted: ssh-userauth.

VDDG00U05EXCOMX: Trying empty user-authentication request.

VDDG00U05EXCOMX: Authentication methods that can continue: password.

VDDG00U05EXCOMX: Next method to try is password.

VDDG00U05EXCOMX: Trying password authentication.

VDDG00U05EXCOMX: Login completed, opening dummy shell channel.

VDDG00U05EXCOMX: channel 0: new [client-session]

VDDG00U05EXCOMX: Requesting channel_open for channel 0.

VDDG00U05EXCOMX: channel 0: open confirm rwindow 8192 rmax 4096

VDDG00U05EXCOMX: Got channel open confirmation, requesting shell.

VDDG00U05EXCOMX: Requesting service shell on channel 0.

VDDG00U05EXCOMX: channel 1: new [client-session]

VDDG00U05EXCOMX: Requesting channel_open for channel 1.

VDDG00U05EXCOMX: Entering interactive session.

VDDG00U05EXCOMX: Channel open failure: 1: reason 4:

Use of uninitialized value in join or string at c:\xampp\cgi-bin\ssh_test5.pl li

ne 30.

Use of uninitialized value in join or string at c:\xampp\cgi-bin\ssh_test5.pl li

ne 30.

Use of uninitialized value in join or string at c:\xampp\cgi-bin\ssh_test5.pl li

ne 30.

la interface es:
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

En verdad espero puedan ayudarme, de antemano les agradezco

* acostúmbrate, por favor, a respetar y poner las marcas que rodean las zonas de texto, Perl, etc.

Así, quedará mejor el mensaje.

El mensaje de error dice que en la línea 30 del programa se está usando una variable no inicializada dentro de una concatenación o interpolación.

Si esa línea 30 corresponde a la 15 del código que publicaste, entonces quiere decir que la variable @interface está indefinida, lo que, según la documentación del módulo, quiere decir que los tres valores devueltos por cmd() están indefinidos, por lo que la ejecución de 'show who' no ha devuelto nada a la salida estándar, a la salida estándar de errores, y el valor resultado de la ejecución.

por **spacepecjks** » 2012-09-26 09:55 @454

¡Qué tal otra vez!

Espero puedan seguir ayudándome, y es que la conexión que pretendo tener al enrutador Cisco, aún no lo logro. Si pueden observar, en una de las líneas finales me marca: {Channel open failure: 1: reason 4:} y en efecto no recibo nada en las variables de salida, y siento que eso es debido a que el comando “show who” no se ejecuta. ¿Ustedes saben cómo podría solucionarlo?
NOTA: Aquí les dejo el resultado que me arroja:

[syntax lines=geshi-n]VDDG00U05EXCOMX: Reading configuration data C:\Users\VDDG00U/.ssh/config
VDDG00U05EXCOMX: Reading configuration data /etc/ssh_config
VDDG00U05EXCOMX: Connecting to 10.213.19.1, port 22.
VDDG00U05EXCOMX: Remote protocol version 2.0, remote software version Cisco-1.25

VDDG00U05EXCOMX: Net::SSH::Perl Version 1.34, protocol version 2.0.
VDDG00U05EXCOMX: No compat match: Cisco-1.25.
VDDG00U05EXCOMX: Connection established.
VDDG00U05EXCOMX: Sent key-exchange init (KEXINIT), wait response.
VDDG00U05EXCOMX: Algorithms, c->s: 3des-cbc hmac-sha1 none
VDDG00U05EXCOMX: Algorithms, s->c: 3des-cbc hmac-sha1 none
VDDG00U05EXCOMX: Entering Diffie-Hellman Group 1 key exchange.
VDDG00U05EXCOMX: Sent DH public key, waiting for reply.
VDDG00U05EXCOMX: Received host key, type 'ssh-rsa'.
VDDG00U05EXCOMX: Host '10.213.19.1' is known and matches the host key.
VDDG00U05EXCOMX: Computing shared secret key.
VDDG00U05EXCOMX: Verifying server signature.
VDDG00U05EXCOMX: Waiting for NEWKEYS message.
VDDG00U05EXCOMX: Send NEWKEYS.
VDDG00U05EXCOMX: Enabling encryption/MAC/compression.
VDDG00U05EXCOMX: Sending request for user-authentication service.
VDDG00U05EXCOMX: Service accepted: ssh-userauth.
VDDG00U05EXCOMX: Trying empty user-authentication request.
VDDG00U05EXCOMX: Authentication methods that can continue: password.
VDDG00U05EXCOMX: Next method to try is password.
VDDG00U05EXCOMX: Trying password authentication.
VDDG00U05EXCOMX: Login completed, opening dummy shell channel.
VDDG00U05EXCOMX: channel 0: new [client-session]
VDDG00U05EXCOMX: Requesting channel_open for channel 0.
VDDG00U05EXCOMX: channel 0: open confirm rwindow 8192 rmax 4096
VDDG00U05EXCOMX: Got channel open confirmation, requesting shell.
VDDG00U05EXCOMX: Requesting service shell on channel 0.
VDDG00U05EXCOMX: channel 1: new [client-session]
VDDG00U05EXCOMX: Requesting channel_open for channel 1.
VDDG00U05EXCOMX: Entering interactive session.
VDDG00U05EXCOMX: Channel open failure: 1: reason 4:
Use of uninitialized value in concatenation (.) or string at c:\xampp\cgi-bin\ss
h_test5.pl line 35.

De antemano les agradezco.

por **explorer** » 2012-09-26 13:34 @607

Google me dice que es un problema del SSH utilizado en la máquina Cisco.

Te recomiendo usar Net::SSH2.

Según parece, hay una limitación en el número de canales SSH que permite abrir en una misma conexión.

Según lo que pone en el manual de Net::SSH::Perl:

$ssh->login([ $user [, $password [, $suppress_shell ] ] ])

Por defecto, Net::SSH::Perl abrirá un canal con un shell dentro de él. Esto es lo que normalmente usted quiere que pase. Si está tunelizando otro protocolo sobre SSH, sin emabargo, quizás quiera impedir este comportamiento. Pasando un valor verdadero a $suppress_shell impedirá que un canal shell sea abierto (solo en SSH2).

Prueba a ver si esta solución te vale.

Otro intento es poner la opción "use_pty => 0".

por **spacepecjks** » 2012-10-03 12:02 @543

¡Qué tal a todos otra vez!

Les comento que he seguido tratando de conectarme a la caja de Cisco vía SSH y lo he logrado, gracias por sus recomendaciones en especial al Administrador ya que logré conectarme con el módulo que me sugirió (NET::SSH2), por ende, aquí les comparto el código para que lo revisen y propongan las mejoras.

Saludos y muchas gracias! -

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "content-type: text/html \n\n";
use Net::SSH2;
my $ssh2 = Net::SSH2->new();
$ssh2->connect("xxx.xxx.xxx.xxx") or die "No se puede establecer conexión con el host $@ \n";
$ssh2->auth_password('usuario','password');
my $chan = $ssh2->channel();
$chan->exec('show version');
my $buflen = 10000;
my $buf1 = "0" x $buflen;
$chan->read($buf1, $buflen);
print "BUF1:\n", $buf1,"\n";
$chan->exec("exit");
$ssh2->disconnect();
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Problema con conexión a Router Cisco vía SSH

Problema con conexión a Router Cisco vía SSH

Publicidad

Re: Problema con conexión a Router Cisco vía SSH

Re: Problema con conexión a Router Cisco vía SSH

Re: Problema con conexión a Router Cisco vía SSH

Re: Problema con conexión a Router Cisco vía SSH

Re: Problema con conexión a Router Cisco vía SSH

Re: Problema con conexión a Router Cisco vía SSH

¿Quién está conectado?