Comment puis-je entrer un mot de passe à l'aide de Perl et de remplacer les caractères par '*'?

Vous pouvez jouer avec Term::ReadKey. Voici un exemple très simple, avec une détection pour revenir en arrière et effacer la clé. Je l'ai testé sur Mac OS X 10.5, mais selon l' ReadKey manuel il devrait fonctionner sous Windows. Le manuel indique que sous Windows à l'aide de non-blocage de lit (ReadKey(-1)) échouera. C'est pourquoi je suis en utilisant ReadKey(0) qui est fondamentalement getc (plus sur getc dans le libc manuel).

#!/usr/bin/perl                                                                                                                                                                                                
use strict;                                                                                                                                                                                                    
use warnings;                                                                                                                                                                                                  
use Term::ReadKey;                                                                                                                                                                                             
my $key = 0;                                                                                                                                                                                                   
my $password = "";                                                                                                                                                                                             
print "\nPlease input your password: ";                                                                                                                                                                        
# Start reading the keys                                                                                                                                                                                       
ReadMode(4); #Disable the control keys                                                                                                                                                                         
while(ord($key = ReadKey(0)) != 10)                                                                                                                                                                            
# This will continue until the Enter key is pressed (decimal value of 10)                                                                                                                                      
{                                                                                                                                                                                                              
# For all value of ord($key) see http://www.asciitable.com/                                                                                                                                               
if(ord($key) == 127 || ord($key) == 8) {                                                                                                                                                                   
# DEL/Backspace was pressed                                                                                                                                                                            
#1. Remove the last char from the password                                                                                                                                                             
chop($password);                                                                                                                                                                                       
#2 move the cursor back by one, print a blank character, move the cursor back by one                                                                                                                   
print "\b \b";                                                                                                                                                                                         
} elsif(ord($key) < 32) {                                                                                                                                                                                  
# Do nothing with these control characters                                                                                                                                                             
} else {                                                                                                                                                                                                   
$password = $password.$key;                                                                                                                                                                            
print "*(".ord($key).")";                                                                                                                                                                              
}                                                                                                                                                                                                          
}                                                                                                                                                                                                              
ReadMode(0); #Reset the terminal once we are done                                                                                                                                                              
print "\n\nYour super secret password is: $password\n";   

Si vous ne voulez pas utiliser les paquets... Uniquement sous UNIX

system('stty','-echo');
chop($password=<STDIN>);
system('stty','echo');

Bâtiment sur Pierr-Luc du programme, juste ajouté un peu de contrôle sur les barres obliques inverses. Avec cela, vous ne pouvez pas garder la touche barre oblique inverse pour toujours:

sub passwordDisplay() {
my $password = "";
# Start reading the keys
ReadMode(4); #Disable the control keys
my $count = 0;
while(ord($key = ReadKey(0)) != 10) {
# This will continue until the Enter key is pressed (decimal value of 10)
# For all value of ord($key) see http://www.asciitable.com/
if(ord($key) == 127 || ord($key) == 8) {
# DEL/Backspace was pressed
if ($count > 0) {
$count--;
#1. Remove the last char from the password
chop($password);
#2 move the cursor back by one, print a blank character, move the cursor back by one
print "\b \b";
}
}
elsif(ord($key) >= 32) {
$count++;
$password = $password.$key;
print "*";
}
}
ReadMode(0); #Reset the terminal once we are done
return $password;
}

Avez-vous essayé de stocker la chaîne de caractères (de sorte que votre programme peut toujours le lire) et de trouver sa longueur puis de créer une chaîne de la même longueur, mais seulement d'utiliser '*'?