Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1967 connectés 

  FORUM HardWare.fr
  Programmation
  Perl

  Raaaaah !

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Raaaaah !

n°1207778
kemkem
back to the /s
Posté le 26-09-2005 à 16:31:13  profilanswer
 

Salut,
 
J'essaye de mettre en place un petit serveur accessible en telnet pour recevoir un mot de passe.
Le serveur fonctionne, mais mon mot de passe est en permanence pollue par des caracteres finaux que je n'arrive pas a identifier...
Comment les virer ??
 

Code :
  1. #!/usr/bin/perl -w
  2. use IO::Socket;
  3. use Net::hostent;              # for OO version of gethostbyaddr
  4. $PORT = 9000;                  # pick something not in use
  5. $server = IO::Socket::INET->new( Proto     => 'tcp',
  6.                                   LocalPort => $PORT,
  7.                                   Listen    => SOMAXCONN,
  8.                                   Reuse     => 1);
  9. die "can't setup server" unless $server;
  10. print "[Server $0 accepting clients]\n";
  11. while ($client = $server->accept()) {
  12. $client->autoflush(1);
  13. $hostinfo = gethostbyaddr($client->peeraddr);
  14. print $client "Pass : ";
  15. while ( <$client> )
  16.         {
  17.                 next unless /\\S/;       # blank line
  18.                 print $_;
  19.    }
  20.          continue {
  21.      print $client "Pass : ";
  22.    }
  23.    close $client;
  24. }


Message édité par kemkem le 26-09-2005 à 16:32:27
mood
Publicité
Posté le 26-09-2005 à 16:31:13  profilanswer
 

n°1207782
Elmoricq
Modérateur
Posté le 26-09-2005 à 16:32:44  profilanswer
 

chomp ?

n°1207787
kemkem
back to the /s
Posté le 26-09-2005 à 16:35:44  profilanswer
 

ca marche pas ca efface tout !! :(

n°1207809
kemkem
back to the /s
Posté le 26-09-2005 à 16:52:12  profilanswer
 

En fait voila ce qui se passe exactement.
 
Je me connecte via le telnet d'un windows :
JE recoit l'invite  
Pass :  
 
Je tape "toto" par exemple.
mon serveur affiche :
ÿûÿû ÿûÿû'ÿýÿûÿýtoto
 
deja, c bizarre..
 
L'invite revient et je retape "toto"
Cette fois, mon serveur a bien recu "toto", sans les caractere bizarre avant.
Mais j'ai toujours un caractere de saut de ligne ou plus a la fin de ma chaine...
 
comment voir ce que je recois exactement ?
quel caractere de fin envoi telnet kan on tape entree ??
 
merci !


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Perl

  Raaaaah !

 

Sujets relatifs
Plus de sujets relatifs à : Raaaaah !


Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)