The repository contains a collection of different programming snippets to different programming languages from own developments as well as other projects
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 
programming-examples/perl/String/The crypt function encrypts...

16 lines
358 B

#!/usr/local/bin/perl
open (PASSWD, "/u/jqpublic/passwd") || die ("Can't open password file");
$passwd = <PASSWD>;
chop ($passwd);
close (PASSWD);
$mypasswd = "asdf";
if (crypt ($mypasswd, substr($passwd, 0, 2)) eq $passwd) {
print ("Correct! Carry on!\n");
} else {
die ("Incorrect password: goodbye!\n");
}