URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID9
Нить номер: 2714
[ Назад ]

Исходное сообщение
"Perl and Password"

Отправлено Macovey , 25-Мрт-04 11:43 
Кто подскажет, как в системном скрипте отключить отображение ввода пароля .
Заранее благодарен

Содержание

Сообщения в этом обсуждении
"Perl and Password"
Отправлено vt , 25-Мрт-04 16:25 
>Кто подскажет, как в системном скрипте отключить отображение ввода пароля .

Как вариант для консоли - управлять цветом символов
Demo для linux-консоли:
echo -ne 'password:\33[30m' ; read p ; echo -ne '\033[0m' ; echo $p


"Perl and Password"
Отправлено Macovey , 25-Мрт-04 16:48 
Спасибо за подсказу - то что мне надо.
Блин есть таблица цветов, но там нет чёрным по чёрному :)))) Эх....лопухнулся)



"Perl and Password"
Отправлено Soldier , 25-Мрт-04 17:38 
>Спасибо за подсказу - то что мне надо.
>Блин есть таблица цветов, но там нет чёрным по чёрному :)))) Эх....лопухнулся)
>

А я stty  использую :) :

stty -echo
echo -n "Enter password: "
read PASSWORD
stty echo
echo
echo Your password is: $PASSWORD


"Perl and Password"
Отправлено Macovey , 25-Мрт-04 17:50 
Спасибо ещё раз. Это будет получше)

"Perl and Password"
Отправлено Macovey , 05-Апр-04 15:54 
Кто подскажет как нечто подомное сделать в Windows??

"Perl and Password"
Отправлено Alexander , 06-Апр-04 11:49 
>Кто подскажет как нечто подомное сделать в Windows??

Можно использовать Term::ReadLine, Term::ReadKey. Работает под Windows.
Что-нибудь типа:

use Term::ReadLine;
use Term::ReadKey;

my $DEBUG=1;

my $term = new Term::ReadLine 'MD';
my $prompt = "Enter command: ";
my $OUT = $term->OUT || \*STDOUT;

my $login = $term->readline('Login:');
ReadMode 'noecho';
my $passwd = $term->readline('Password:');
ReadMode 'normal';

print "HLR: login=$login passwd:$passwd\n" if $DEBUG;