Raaaaah !

Marsh Posté le 26-09-2005 à 16:31:13

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 :

#!/usr/bin/perl -w
use IO::Socket;
use Net::hostent; # for OO version of gethostbyaddr
$PORT = 9000; # pick something not in use
$server = IO::Socket::INET->new( Proto => 'tcp',
LocalPort => $PORT,
Listen => SOMAXCONN,
Reuse => 1);
die "can't setup server" unless $server;
print "[Server $0 accepting clients]\n";
while ($client = $server->accept()) {
$client->autoflush(1);
$hostinfo = gethostbyaddr($client->peeraddr);
print $client "Pass : ";
while ( <$client> )
{
next unless /\\S/; # blank line
print $_;
}
continue {
print $client "Pass : ";
}
close $client;
}

Message édité par kemkem le 26-09-2005 à 16:32:27

Marsh Posté le 26-09-2005 à 16:31:13

Marsh Posté le 26-09-2005 à 16:32:44

chomp ?

Marsh Posté le 26-09-2005 à 16:35:44

ca marche pas ca efface tout !!

Marsh Posté le 26-09-2005 à 16:52:12

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 !

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *