Programación Web y Scripting > Perl

 Seguridad En Perl

(1/1)

su -:
Hola, como hago un <STDIN> sin que se vea lo que uno escribe, es decir

--- Citar ---#!/usr/bin/perl -w
use strict; print "User =>  ";
my $a = <STDIN>;
chop $a;
print "Password =>  ";
my $b = <STDIN>;
chop $b;

--- Fin de la cita ---

Como hacer que la terminal no muestre el <STDIN>?

su -:
:D  Ya se :

--- Citar ---#!/usr/bin/perl -w
use strict;
print "User =>  ";
chomp(my $a = <STDIN>);
print "Password =>  ";
system "stty -echo";
chomp(my $b = <STDIN>);
if ($a eq 'mall' && $b eq 'nopo'){print "Funciona\n";}
if ($a eq 'root' && $b eq 'lll'){print "funciona!\n";}
if ($a eq 'mall' && $b ne 'nopo' ){print "Permizo denegado\n";};
if ($a eq 'root' && $b ne 'llll'){print "acces denieg\n";}
system "stty echo";

--- Fin de la cita ---

Navegación

[0] Índice de Mensajes