Perl crypt Function

Advertisements


Description

This function 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.

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.

Syntax

Following is the simple syntax for this function:

crypt EXPR,SALT

Return Value

This function returns the encrypted string.

Example

Following is the example code showing its basic usage, it 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";
}

When above code is executed, it produced following result:




Advertisements
Advertisements