in reply to How to store a password in a file

Thank You all for replying back. I really appreciate it.

So I have creates a function file.pl which contains the password. Now from the command line when I provide the USER_ID. The USER ID is hard coded in the file and cannot be provided at runtime.

Below is the sample program which calls the file containing the password. xyz.pl

#!/usr/bin/perl

my $USERID = shift;

use funcpassword;

$password=secret($USERID); # Use this password to login

Below is the function program funcpassword.pl

sub secret{

my $temp = shift;

my $password;

$password = "XYZ" if ($teap eq 'USERID');

}

I will run the above program as

prompt> xyz.pl USERID

Any comments or suggestions are most welcomed.

Replies are listed 'Best First'.
Re^2: How to store a password in a file
by bitingduck (Deacon) on Mar 23, 2012 at 16:35 UTC

    I have to agree with the others that that's an odd program to write. If you want to hardcode the encrypted passwords, you can generate the encrypted passwords with a separate program or the command line or something and then hardcode them. But if you ever want to change the keychain password you have to go through that all over again, and to add any you have to generate the new ones and encrypt them and hardcode them in

    If you use some kind of simple database (e.g. SQLite) you can add username/password pairs that are encrypted/decrypted on the fly. You still run into the "how do I hide the key for my encrypted passwords" problem-- you can use a keychain password as the key, and then if you change the keychain password have a loop that goes through and decrypts and reencrypts them (using the old and new passwords)