Check password : Compare « String « Perl

1. Perl
2. String
3. Compare

Check password

    

$encrypted = "AB/uOsC7P93EI";

$salt = substr($encrypted, 0, 2);

print "Guess the word: ";

while(<>) {

    chomp;
    if ($encrypted eq (crypt $_, $salt)) {
        print "You got it!";
        exit;
    } else {
        print "Nope.\n";
        print "Guess the word: ";
    }
}

   
    
    
    
  

Related examples in the same category