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