I am trying to setup a small application with a passwd controlled access. I
need just a little bit of security so I decided to use the crypt function on
perl to encrypt the user passwd. The problem I have is when writing the
encrypted passwd to a file using the pack function. The pack function
returns NULL when  packing the encrypted passwd, so I am unable to save it
to a file. I hope somebody can help me. Here is a sample code I have:

$passwd = <STDIN>;
chomp($passwd);

$epasswd = crypt($passwd,$salt);

open(FILE, '>>$file_name');

print FILE pack ('A10','epasswd');

close (FILE);


Thanks for any help




_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to