#!/usr/bin/perl
$plain=$ARGV[0]; ## Read the command line argument
if (!$plain){ ## No parameter pased
print "Usage: $0 plain_text_password\n";
exit;
}
## Use the Process id & time to generate the salt.
srand($$|time); # random seed
@saltchars=(a..z,A..Z,0..9,'.','/'); # valid salt chars
$salt=$saltchars[int(rand($#saltchars+1))]; # first random salt char
$salt.=$saltchars[int(rand($#saltchars+1))]; # second random salt char
$newuser = crypt ($newuser, $salt);
## Generate the encrypted password
$crypted=crypt ($plain, $salt);
print $crypted,"\n";
Friday, May 14, 2010
Generate passwords with crypt and random salt
Here is a small perl script i found sometime ago to generate crypted passwords with random salt values
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment