The crypt function encrypts a string using the NBS Data Encryption Standard (DES) algorithm. : crypt « String « Perl

1.	Array
2.	CGI
3.	Class
4.	Data Type
5.	Database
6.	File
7.	GUI
8.	Hash
9.	Language Basics
10.	Network
11.	Regular Expression
12.	Report
13.	Statement
14.	String
15.	Subroutine
16.	System Functions
17.	Win32
18.	XML

Perl » String » crypt

The crypt function encrypts a string using the NBS Data Encryption Standard (DES) algorithm.

      



#!/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"); 

}

Related examples in the same category

1.	crypt a string
2.	Use the crypt() operator to store passwords in an unbreakable format

java2s.com | Contact Us | Privacy Policy

All other trademarks are property of their respective owners.