Passwd-Keyring-PWSafe3
view release on metacpan or search on metacpan
Passwd::Keyring::PWSafe3
Passwd::Keyring is about using secure storage for passwords
and other credentials used in perl scripts and applications.
Passwd::Keyring::PWSafe3 uses KDE KWallet API to securely
preserve passwords and is available to people using KDE
desktop environment (or at least with installed kwallet).
INSTALLATION
To install this module, run the following commands:
perl Build.PL
./Build
./Build test
./Build install
if given, asks not to save the file after every change (saving is
fairly time consuming), but only when $keyring->save is called or
when keyring is destroyed.
Note: it of course does not make much sense to keep app passwords in
encrypted storage if master password is saved in plain text. The module
most natural usage is to interactively ask for master password (and use
it to protect noticeable number of application-specific passwords).
Ideas of how to workaround this obstacle are welcome. I loosely
consider either caching master password per desktop session
(implementing sht. similar to ssh-agent/gpg-agent or using one of those
somehow), or integrating the tool with PAM to use actual system
password, or both - but while it seems doable on Linux, cross platform
solution is not so easy.
set_password(username, password, realm)
Sets (stores) password identified by given realm for given user
get_password($user_name, $realm)
lib/Passwd/Keyring/PWSafe3.pm view on Meta::CPAN
=back
Note: it of course does not make much sense to keep app passwords in
encrypted storage if master password is saved in plain text. The
module most natural usage is to interactively ask for master password
(and use it to protect noticeable number of application-specific
passwords).
Ideas of how to workaround this obstacle are welcome. I loosely
consider either caching master password per desktop session
(implementing sht. similar to ssh-agent/gpg-agent or using one of
those somehow), or integrating the tool with PAM to use actual system
password, or both - but while it seems doable on Linux, cross platform
solution is not so easy.
=cut
sub new {
my ($cls, %args) = @_;
( run in 0.286 second using v1.01-cache-2.11-cpan-299005ec8e3 )