Masking question (sort of)

[TheGenius22]

Hi All,

I know this question has been asked before but I cant seem to find it. Here is the question :

How to hide input from user ?

Script asks for ftp login but i want the password (input from user) not to display while they are typing it.

Can someone help me out ??

Thanks,

 

[usige]

Well I've done it one of two ways:

system("stty -echo");
$passwd=<>;
system(&quot;stty echo&quot;);

Or if you want a "pure" perl way:

use IO::Stty;
$o_mode=stty(\*STDIN,'-g');
stty(\*STDIN,'-echo');
$passwd=<>;
stty(\*STDIN,$o_mode);

I've only tested it on *nix systems and I doubt it'd work in winderz. Anyway I hope that helps.

 

[TheGenius22]

Well,

Im on a Win32 platform and both of your examples didnt work.
still digging . . .

Any other thoughts ?

 

[TheGenius22]

It's ok

I found it with Win32::console.

 

[TheGenius22]

Just in case someone was wondering how to do it or to avoid the time and frustration, here is what I have come up with.

#!Perl -U

use strict;
use warnings;
use Win32::Console;

my $enter = chr 13;
my $backspace = chr 8;
my $space = chr 32;
my $counter = 0;

print "\nInput: ";

my @p = &getpass;

my @final;

foreach (@p) {

$final[++$#final] = $_ if (defined($_));

}

print @final;

sleep;


sub getpass {

my @pass;

my $in = new Win32::Console(STD_INPUT_HANDLE);
$in -> Mode(ENABLE_PROCESSED_INPUT);
$in -> Title("Enter Password"

while (my $data = $in -> InputChar()) {

if ($data eq $enter) {

print "\n";
last;

}

else {

$pass[++$#pass] = $data;

if ($data eq $backspace) {

print $backspace.$space.$backspace if ($counter > 0);
undef $pass[$counter-1];
$counter--;
if ($counter < 0) { $counter = 0; }

}

else {

print &quot;*&quot;;
$counter++;

}

}

}

return @pass;

}

If anyone has a better way or different way of doing this please reply to this post.

Thanks,

 

[NEVERSLEEP]

#!perl
#
# m3h! i kn0w u! how about this?
#
#

http://aspn.activestate.com/ASPN/CodeDoc/TermReadKey/ReadKey.html

#

http://ppm.activestate.com/PPMPackages/zips/8xx-builds-only/Windows/TermReadKey-2.21.zip

#

use strict;
use Term::ReadKey;

my $s = &quot;&quot;;

print &quot;type! then hit enter\n&quot;;

ReadMode 2;

$s = <stdin>;

ReadMode 0;

chomp($s);

print &quot;u safely typed this : &quot; . $s;

---------------------------------------
m3h