Code.GeekInterview.com
  I am new, Sign me up!
 
 

Perl Code Base

 • PassCripting - Crypt Perl Password
 • Currency Converter
 • PerlScript Array
 • PerlScript HTML Form
 • Simple PerlScript Loop
 
Code Samples Perl
 

PassCripting - Crypt Perl Password


Code ResourceAuthor: srinivasaraobora  

Difficulty Level: Beginner

Published: 24th Apr 2009   Read: 822 times  

Filed in: Perl
Add Comment


 


This code show how to crypt the password in perl

 


Sample Code
  1. #!/usr/bin/perl
  2.  
  3. # passcrypt.plx
  4.  
  5. use warnings;
  6.  
  7. use strict;
  8.  
  9.  
  10.  
  11. print "Please enter your password for crypting: ";
  12.  
  13. # See `perldoc -q password' for a better way to do this.
  14.  
  15. chomp(my $passwd = <>);
  16.  
  17.  
  18.  
  19. my $salt = join '',
  20.  
  21.   ('.', '/', 0..9, 'A'..'Z', 'a'..'z')[rand 64, rand 64];
  22.  
  23. $passwd = crypt($passwd, $salt);
  24.  
  25.  
  26.  
  27. # $passwd is now securely stored.
  28.  
  29.  
  30.  
  31.  
  32.  
  33. # Suppose we know that $passwd is a crypted password
  34.  
  35. print "Please enter your password: ";
  36.  
  37. chomp(my $trypass = <>);
  38.  
  39.  
  40.  
  41. unless ($passwd eq crypt($trypass, $passwd)) {
  42.  
  43.   die "You're not who you say you are!";
  44.  
  45. }
  46.  
  47.  
Copyright GeekInterview.com


Next Article: PerlScript Array


 

Latest Code Samples

 ♦ PerlScript HTML Form
 ♦ Currency Converter
 ♦ Simple PerlScript Loop
 ♦ PerlScript Array
 ♦ PassCripting - Crypt Perl Password
 

Popular Code Samples

 ♦ PerlScript HTML Form
 ♦ Currency Converter
 ♦ Simple PerlScript Loop
 ♦ PassCripting - Crypt Perl Password
 ♦ PerlScript Array
 

Related Code Samples

 » JavaScript Password Strength Meter
 » Java Code For Password Encryption
 » Random Password Generation function
 

Post Comment


Members Please Login

Name:  Email: (Optional. Used for Notification)

Title:
 
Comment:
Validation Code: <=>  (Enter this code in text box)





Popular Coders

# Coder NameHits
1. srinivasaraobora5690

Active Coders

# Coder NameCodes
1. srinivasaraobora5

Refined Tags

 

Sponsored Links

 
About Us -  Privacy Policy -  Terms and Conditions -  Contact  

Copyright © 2005 - 2009 GeekInterview.com. All Rights Reserved

Page copy protected against web site content infringement by Copyscape