У меня есть Perl script, который требует от пользователя ввода пароля. Как я могу повторить только "*" вместо символа, который пользователь вводит, когда он печатает его?
Я использую Windows XP/Vista.
У меня есть Perl script, который требует от пользователя ввода пароля. Как я могу повторить только "*" вместо символа, который пользователь вводит, когда он печатает его?
Я использую Windows XP/Vista.
Вы можете играть с Term:: ReadKey. Вот очень простой пример, с некоторым обнаружением для backspace и удаления ключа. Я тестировал его на Mac OS X 10.5, но в соответствии с ReadKey manual он должен работать под Windows. руководство указывает, что в Windows с использованием неблокирующих чтений (ReadKey(-1)
) произойдет сбой. Вот почему я использую ReadKey (0), которые в основном getc
(подробнее о getc в руководстве libc).
#!/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";
В прошлом я использовал IO:: Prompt для этого.
use IO::Prompt;
my $password = prompt('Password:', -e => '*');
print "$password\n";
Если вы не хотите использовать какие-либо пакеты... Только для UNIX
system('stty','-echo');
chop($password=<STDIN>);
system('stty','echo');
Вы должны взглянуть на Term::ReadKey или Win32::Console. Вы можете использовать эти модули для чтения однократных штрихов и испускать "*" или что бы то ни было.
Основываясь на программе Пьер-Люка, просто добавили некоторый контроль на обратную косую черту. При этом вы не можете нажимать обратную косую черту навсегда:
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;
}
Вы пытались сохранить строку (чтобы ваша программа все еще могла ее прочитать) и узнать ее длину, затем создайте строку той же длины, но используйте только '*'?