Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

encryption of password file

Feb 21, 1999, 8:52 AM
lukas
Novice (24 posts)
Feb 21, 1999, 8:52 AM
Post #1 of 2
Views: 3114
Shortcut
Quote Reply
encryption of password file
Hello,
I have a file for DBman with more than 200 users which I want to give several permissions. How have i to make it to encrypt this file with perl and how can i decrypt it later to make changes??
Feb 21, 1999, 9:52 PM
Alex
Administrator (9387 posts)
Feb 21, 1999, 9:52 PM
Post #2 of 2
Views: 3060
Shortcut
Quote Reply
Re: encryption of password file In reply to
Hi,

You need to use perl's crypt() function to encrypt the password. Usage is:

Call this only once.
Quote:
srand;
my @salt_chars = ('A' .. 'Z', 0 .. 9, 'a' .. 'z', '.', '/');

Now, for each password:

Quote:
my $salt = join '', @salt_chars[rand 64, rand 64];
my $encrypted = crypt($password, $salt);

You can't decrypt passwords, it's a one way process.

Cheers,

Alex