Heslo

[MUDr. Zdenek Kral]

Pěkný den všem,
Posílám skriptík k zadání hesla s výpisem indiferentního znaku při zadání.
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

#!/usr/bin/perl

use Term::ReadKey;

sub heslo {

my( $key, $vzor );

system(´clear´);

print"Zadej heslo:";
while ($key !~/ \012/) {
           ReadMode("cbreak");
           $key = ReadKey(0);
           ReadMode("normal");
                   print"*";
                   $vzor .= $key;
  }
$a = \$vzor;
return $a;
}

&heslo();

$heslo = "heslo";

while ( $$a !~ / \b$heslo\b / ) {
            print"Chybně zadané heslo ! \n";
            sleep(2);
            &heslo();
}

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
PS: pracuji na dalším s využitím  modulu POSIX.

S pozdravem                             -ZK-                             kral na arcom.cz