Perl Home
PERL Functions
© 2011 TutorialsPoint.COM
|
PERL crypt Function
Syntax
Definition and Usage
Encrypts the string EXPR using the system crypt( ) function. The value of SALT is used to select an encrypted version from one of a number of variations. Note that there is no equivalent decryption function. You cannot decrypt a string that has been encrypted in this way. It's normally used one way, first to encrypt a string, and then to encrypt a password to compare against the encrypted string. If you're using it in this form, then consider supplying the encrypted password as the SALT.
Return Value
Example
Here's an example that makes sure that whoever runs this program knows their password:
#!/usr/bin/perl
$pwd = (getpwuid($<))[1];
system "stty -echo";
print "Password: ";
chomp($word = <STDIN>);
print "\n";
system "stty echo";
if (crypt($word, $pwd) ne $pwd) {
die "Sorry wrong password\n";
} else {
print "ok, correct password\n";
}
|
|

|
|
|