Pas de retour du routeur, script perl

**pierro912** · 27/07/2016, 12h08

Bonjour,

J'essaie d'établir une liaison en SSH1 avec un vieux switch HP. Le switch est fonctionnel et je peux m'y connecter et exécuter des commandes via putty. J'ai testé un script en SSH2 qui n'avait pas de retour non plus d'un autre switch HP mais fonctionnait sous Windows et Linux dans le prompt. Je ne peux pas tester SSH1 dans le prompt de Windows ici car SSH1 j'ai une erreur de version ssh "No matching cipher found: [...]" mais je présume que ça fonctionne. Je présume donc que le problème vient du router ou alors de l'utilisation de mon script par rapport au router ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
use strict;
use warnings;
use Net::SSH::Perl;
 
#log, password, ip
#[...]
 
my $cmd = "show version";
 
print "Connexion SSH \n";
my $ssh = Net::SSH::Perl->new($host);
print "Connexion effectuee, identification en cours ...\n";
$ssh->login($username, $password) or die "Impossible de s'authentifier";
 
print "Execution de ".$cmd."\n";
my ($stdout) = $ssh->cmd($cmd) or die "Impossible d'executer la commande \n";
#A partir d'ici il ne se passe plus rien, le print d'après ne s'effectue pas et je n'ai pas d'erreur.
 
print $stdout;
print "Fin du programme \n";

J'ai utilisé wiresharck pour voir un peu ce qui transitait et voici le résultat
http://image.noelshack.com/fichiers/...oting-ssh1.png
Comme on peut voir, après la connexion il y a bien les données qui sont envoyées au switch mais après je ne reçois rien, j'oublie quelque chose dans mon script pour que ça fonctionne sur un switch ?

Je précise que je suis débutant en Perl, j'ai découvert ce langage il y a quelques jours. Merci de m'avoir lu.

**pierro912** · 28/07/2016, 11h04

en utilisant le mode debug j'ai pu avoir ce retour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Connecting to 10.*.*.*, port 22.
 Remote version string: SSH-1.5-OpenSSH_2.9p1
 
 Remote protocol version 1.5, remote software version OpenSSH_2.9p1
 Net::SSH::Perl Version 1.42, protocol version 1.5.
 No compat match: OpenSSH_2.9p1.
 Waiting for server public key.
 Received server public key (512 bits) and host key (896 bits).
 Host '10.*.*.*' is known and matches the host key.
 Encryption type: DES3
 Sent encrypted session key.
 Received encryption confirmation.
 Trying password authentication.
 Sending command: show version
 Entering interactive session.

J'imagine que c'est anormal le "Sending command" avant le "Entering interactive session" ? Après le script ne se finit pas, le processus perl continue à tourner indéfiniment.

**dmganges** · 28/07/2016, 20h06

Bonjour,
Je ne connais pas Net::SSH:

erl et j'ai des pb pour l'installer... mais par curiosité... et rien pour tester

Je ne te serai donc pas d'un grand secours.

As-tu vu cette discussion
Notamment en #6 & #7

**pierro912** · 29/07/2016, 09h29

J'ai eu beaucoup de mal à l'installer aussi, ne sachant pas comment faire. Je ferai un petit tuto youtube si j'ai le temps un jour ^^ Sinon merci pour ton intervention, j'étais déjà tombé sur cette "solution" mais je ne l'avais pas appliquée je ne sais plus pourquoi. Je viens de le faire et j'ai l'erreur suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Received disconnect message: Remote command execution not supported.
 at C:/strawberry/perl/site/lib/Net/SSH/Perl/SSH1.pm line 397

Je ne sais pas si c'est la syntaxe avec "" qui ne passe pas ou si c'est tout simplement le switch qui refuse la commande à distance. Pourtant j'ai deux switchs, un vieux un neuf (HP) et aucun ne veut.

**dmganges** · 29/07/2016, 09h41

Ben les messages ne sont pas plus clairs pour moi !

Mais le message est différent...
On peut imaginer que les switchs ont tenté qqc de plus... sans succès

As-tu tenté d'autres commandes ?

et d'autres syntaxes qu'avec "" & " "
déjà en plaçant celles-ci après la cde

et en essayant également des "\n" avant et/ou après...

c'était ma première idée quand j'ai vu ton message le premier jour, mais je n'ai pas osé la proposer tellement elle me semblait triviale...

Mais là, j'ai l'impression que c'est un pb de construction de la commande...
ATTENTION, ça fait bientôt 15 ans que je ne pratique plus professionnellement...

[Edit 09:50]
Je n'avais pas lu toute l'erreur retournée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

at C:/strawberry/perl/site/lib/Net/SSH/Perl/SSH1.pm line 397

indique plutôt que la suntaxe "",cde est incorrecte... pour le module.pm

essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my $cmd = "show version\n";

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my $cmd = "\nshow version";

et même :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my $cmd = "\nshow version\n";

il y aura peut-être des msg erreur différents...

[10:06] au fait ton lien http://image.noelshack.com/fichiers/...oting-ssh1.png
est mort

Ben non !!!????

lorsque je clique sur le tien dans #1 il est mort
mais sur la copie, dans celui-ci il est OK

**pierro912** · 29/07/2016, 10h25

J'ai plus ou moins essayé ce que tu m'as dit sans succès. Je suis presque sûr que ma syntaxe de départ est bonne et que l'autre n'est pas reconnue par SSH:

erl car l'erreur est dans un fichier perl du module.

Et j'ai résolu le problème du lien, une erreur de copier coller avec un "http" en trop ^^

**dmganges** · 29/07/2016, 10h53

OK, pas évident

Y a-t-il des leds Rx & Tx sur les switchs ?
Peux-tu les voir ou en avoir le retour par qq ?

Dans ce cas il serait intéressant dans ton pgm d'envoyer une dizaine de commandes, evt tjs la même, espacées de 4 à 5s.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
print "Execution de ".$cmd."\n";
my ($stdout) = $ssh->cmd($cmd) or die "Impossible d'executer la commande \n";
sleep 4;
 
print "Execution de ".$cmd."\n";
my ($stdout) = $ssh->cmd($cmd) or die "Impossible d'executer la commande \n";
sleep 4;
 
print "Execution de ".$cmd."\n";
my ($stdout) = $ssh->cmd($cmd) or die "Impossible d'executer la commande \n";
sleep 4;

Cela permettrait de voir :
1 ) si les switchs reçoivent qqc : Rx clignote
2 ) s'ils envoient qqc : Tx clignote

Désolé c'est petit...

**pierro912** · 29/07/2016, 11h02

C'est à dire qu'après l'envoie de la commande le script ne fait plus rien et ne se termine pas, il n'exécute plus de commande après. Et les switchs sont dans une salle serveur plutôt éloignée mais je garde l'idée si je trouve quelqu'un pour tester. Aussi, quand je regarde la table des connexions SSH dans le switch, je ne vois pas de connexion ouverte autre que celle de putty donc je ne sais pas si le script se connecte essaie d'exécuter la commande (n'y arrive pas) et se deconnecte juste derrière ou si il ne se connecte tout simplement pas (pourtant avec les logs et wiresharck il échange les clés tout ça)

**dmganges** · 29/07/2016, 11h17

(pourtant avec les logs et wiresharck il échange les clés tout ça)

Oui c'est ce qui me semble aussi +

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
...
Sent encrypted session key.
Received encryption confirmation.
Trying password authentication.
Sending command: show version
Entering interactive session.

Mon interprétation des messages du module.pm :
1 - La connexion est établie
2 - Une commande est envoyée
3 - Le module entre en session interactive

Et là on ne sait plus :
1 - si c'est le module.pm qui EN FAIT n'a rien envoyé
2 - si c'est le switch qui n'a rien reçu
3 - Si le switch a reçu mais rien retourné

c'est la raison pour laquelle je suggérais de contrôler si les leds clignotent à un rythme régulier et dans quel(s) sens...
pour s'assurer que le module.pm envoie au moins qqc...

[Edit 11:25]

quand je regarde la table des connexions SSH dans le switch, je ne vois pas de connexion ouverte autre que celle de putty

Ce qui pourrait laisser planer un doute sur les messages retournés par le module.pm ?

Les vieux switchs n'aimaient pas plusieurs connexions en même temps...
Lance le pgm sans connexion putty

**pierro912** · 29/07/2016, 11h30

Le switch envoie/reçoit forcément des infos puisque je récupère les clés publiques donc j'imagine que les led doivent clignoter; j'avoue que ça me gêne de déranger quelqu'un pour tester ça.

J'ai encore trouvé le même problème que moi http://www.perlmonks.org/?node_id=976667 , ça doit faire la troisième fois et à chaque fois il n'y a pas de solution; ça me parait tellement incroyable que ce problème n'ait jamais trouvé solution.

Je peux lancer plusieurs connexions putty en même temps ça ne dérange pas le switch et elles apparaissent dans la table. J'ai testé de fermer les connexions putty (jusqu'à présent c'était toujours ouvert je n'y avais pas pensé) mais ça ne fait quand même rien. Et sinon les messages de debug e perl me retournent la longueur de la clé il entre forcément en contact avec le switch

**dmganges** · 29/07/2016, 11h44

Envoyé par pierro912

J'ai encore trouvé le même problème que moi http://www.perlmonks.org/?node_id=976667 , ça doit faire la troisième fois et à chaque fois il n'y a pas de solution; ça me parait tellement incroyable que ce problème n'ait jamais trouvé solution.

Je peux lancer plusieurs connexions putty en même temps ça ne dérange pas le switch et elles apparaissent dans la table. J'ai testé de fermer les connexions putty (jusqu'à présent c'était toujours ouvert je n'y avais pas pensé) mais ça ne fait quand même rien. Et sinon les messages de debug e perl me retournent la longueur de la clé il entre forcément en contact avec le switch

OK c'est ce qui me semble aussi !

J'ai vu également pas mal de pb non résolus avec Net::SSH:

erl...

Est-ce qu'il t'es possible d'utiliser un autre module ?
Éventuellement Net::OpenSSH
Voir ciols ci-dessous

**pierro912** · 29/07/2016, 11h46

Les autres modules ne supportent pas SSH1 si je ne me trompe pas et certains de mes switchs ne supporte que SSH1.

Je reviens vers 14h, merci de ton intérêt en tout cas c'est bien sympa : )

**dmganges** · 29/07/2016, 11h48

OK !
Pour le moment je n'ai pas d'autre idée...
Si j'ai une lumière, même pâle je reviens

**pierro912** · 29/07/2016, 14h59

Pour ce que j'ai pu déduire dernièrement, c'est qu'il n'y a pas d'authentificationcomplète ssh. Les paquets sont trop petits par rapport à une authentification avec putty et il n'y a pas assez de paquets pour une authentification. Je ne comprends pas je ne vois pas ce que je devrais ajouter dans mon script qui doit déjà pourtant faire l'authentification

**dmganges** · 29/07/2016, 15h20

Pour ce que j'ai pu déduire dernièrement, c'est qu'il n'y a pas d'authentification complète ssh. Les paquets sont trop petits par rapport à une authentification avec putty et il n'y a pas assez de paquets pour une authentification.

Au moins :
1 - C'est cohérent avec le fait qu'il n'y ait pas de connexion dans les log des switchs
2 - Mais c'est incohérent avec les messages du module Net::SSH:

erl du moins incohérent avec la façon dont nous les interprétons :

Ce qui suit semble ne rien avoir avec une connexion correcte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sent encrypted session key.
Received encryption confirmation.
Trying password authentication.
...
 
Et là il accepte une commande !!!
ET RIEN DANS LES LOGS

Au fait, le pgm perl est sur Unix/Linux ou bien Windows (pour le moment j'ai fait comme s'il était sur Windows) mais comme je viens de voir qu'il existe un putty sur Linux....
Mais ce n'est pas important, ça ne change rien à mes maigres déductions...

Peux-tu tenter, donc soit dans un terminal Linux, soit dans une invite de commande Windows, une connexion avec le client SSH (s'il est installé) ça devrait donner de mémoire

:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ssh user:password@host

au moins pour voir ce qu'il y a dans les log des switchs...
et comparer les paquets à une authentification avec putty

[Edit 15:35]
As-tu vu la doc précise pour %param :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
interactive
 
Set to a true value if you're using Net::SSH::Perl interactively. This is used in determining whether or not to display password prompts, for example. It's basically the inverse of the BatchMode parameter in ssh configuration.
 
Defaults to false.

Peux-tu coller la partie connexion en supprimant user & password...

**pierro912** · 29/07/2016, 15h56

Je ne suis pas sûr de comprendre, j'utilise le client ssh putty pour me connecter avec Windows en SSH, à moins d'utiliser un autre client ssh similaire à putty il n'y a pas d'autre moyen sous Windows.

J'ai fait une image pour bien comprendre les différences

http://image.noelshack.com/fichiers/...ting2-ssh1.png

En se référant à l'image, si dans mon script je supprime la partie avec user et password et je laisse juste la demande de connexion à l'host en SSH j'ai les 4 premières lignes dans le block noir. Tandis qu'avec putty j'en ai 5 et on peut voir que les 6 premiers paquets des deux cas sont les mêmes

**dmganges** · 29/07/2016, 16h10

Je ne suis pas sûr de comprendre, j'utilise le client ssh putty pour me connecter avec Windows en SSH, à moins d'utiliser un autre client ssh similaire à putty il n'y a pas d'autre moyen sous Windows.

En Win7 j'ai un client ssh que je peux lancer dans une invite de commande,
mais je ne me souviens plus s'il y est d'origine ou si je l'ai ajouté...

En tout état de cause l'image jointe est claire ce n'est donc pas nécessaire...

Au niveau de %param peux-tu essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

($host, debug => 1, interactive => 1)

**pierro912** · 29/07/2016, 16h18

Non ça ne change rien, pas même dans wiresharck.
Pour moi c'est au minimum le password qui ne passe pas dans l'authentification, le paquet n'est pas envoyé. Peut être le login aussi je ne sais pas.

Oui ton client ssh a été installé, c'est un portage qui a été fait sous Windows qui ne dispose pas de cette fonctionnalité