Как я могу ввести пароль с помощью Perl и заменить символы на «*»?

Question

У меня есть Perl-скрипт, который требует от пользователя ввода пароля. Как я могу отображать только '*' вместо символа, который вводит пользователь, когда он его печатает?

Я использую Windows XP / Vista.

Answer 1

В прошлом я использовал для этого IO :: Prompt .

use IO::Prompt;
my $password = prompt('Password:', -e => '*');
print "$password\n";

Answer 2

Если вы не хотите использовать какие-либо пакеты ... Только для UNIX

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

Answer 3

Вы можете играть с Term :: ReadKey. Вот очень простой пример с некоторым обнаружением возврата и удаления ключа. Я протестировал его на Mac OS X 10.5, но согласно руководству ReadKey он должен работать под 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";   

Answer 4

Вы должны взглянуть на Term :: ReadKey или Win32 :: Console . Вы можете использовать эти модули для считывания однократных нажатий клавиш и выдачи '*' или чего-либо еще.

Answer 5

Опираясь на программу Пьера-Люка, просто добавил некоторый контроль над обратными слешами. При этом вы не можете постоянно нажимать обратную косую черту:

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;
}

Answer 6

с использованием программы Пьера-Люка

# Start reading the keys                                                                                                                                                                                       
ReadMode(4); #Disable the control keys                                                                                                                                                                         
while(ord($key = ReadKey(0)) != '13' )                                                                                                                                                                            
# 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 && (length($password) > 0)) {                                                                                                                                                                   
        # 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) {                                                                                                                                                                                  
        $password = $password.$key;                                                                                                                                                                            
        print "*";                                                                                                                                                                              
    }                                                                                                                                                                                                         
}                                                                                                                                                                                                              
ReadMode(0); #Reset the terminal once we are done

Answer 7

Вы пытались сохранить строку (чтобы ваша программа все еще могла ее прочитать) и узнать ее длину, а затем создать строку такой же длины, но использовать только '*'?