I know it is not one of the most secure encryption module, but is is quite easy to use and install, if you want to add more secure encryption, you are completely free to do so

The lack of the word "salt" in the source worries me. In combination with the fact that it can tell whether the decrypt was successful, I suspect very weak encoding.

It's just as easy to use something better: 

use Crypt::CBC;

my $cipher = Crypt::CBC->new(
    -key    => $passphrase,
    -cipher => 'Blowfish',
);

my $cipher_text = $cipher->encrypt($plain_text);

[download]

Adapted: 

#!/usr/bin/perl

# Simple command-line password manager.
# 
# Copyright 2010 Alessandro Ghedini <al3xbio@gmail.com>
# --------------------------------------------------------------
# "THE BEER-WARE LICENSE" (Revision 42):
# Alessandro Ghedini wrote this file. As long as you retain this 
# notice you can do whatever you want with this stuff. If we 
# meet some day, and you think this stuff is worth it, you can 
# buy me a beer in return.
# --------------------------------------------------------------
#
# Portions written by ikegami are public domain.

use strict;
use warnings;

use Crypt::CBC;

use constant SIG => "SUCCESS";

die "For info type 'perldoc $0'\n" unless $#ARGV >= 0;

my $default_pwd;

if ($^O eq 'MSWin32') {
    $default_pwd = $ENV{USERPROFILE}."\\passwd.txt";
} else {
    $default_pwd = $ENV{HOME}."/.passwd";
}

my $pwdfile = $ENV{PWD_FILE} ne "" ? $ENV{PWD_FILE} : $default_pwd;

print("Password: ");
system('stty','-echo') if $^O eq 'linux';
chop(my $passphrase = <STDIN>);
system('stty','echo') if $^O eq 'linux';
print "\n";

my $cipher = Crypt::CBC->new(
    -cipher => 'Blowfish'
    -key    => $passphrase,
);

my $action = $ARGV[0];

if ($action eq 'add') {
    my $data = read_file($crypt, $pwdfile);
    
    print "Account Name: ";
    chop(my $account = <STDIN>);

    print "Account Login: ";
    chop(my $login = <STDIN>);

    print "Account Password: ";
    chop(my $password = <STDIN>);
    
    my $new_string = "$account - $password ($login)\n";

    $data .= $new_string;

    write_file($crypt, $pwdfile, $data);
    
} elsif ($action eq 'ls') {
    my $grep = $ARGV[1] ne "" ? $ARGV[1] : "(.*?)";

    my $data = read_file($crypt, $pwdfile);

    my @pwds = sort split("\n", $data);

    foreach (@pwds) {
        next unless $_ =~ m/$grep/;
        $_ =~ m/(.*?) - (.*?) \((.*?)\)/;

        my $title = $1;
        my $user = $3;
        my $pwd = $2;

        print $title."\nUser: ".$user."\nPassword: ".$pwd."\n";
    }
    
} elsif ($action eq 'rm') {
    my $grep = $ARGV[1] ne "" ? $ARGV[1] : "";

    my $data = read_file($crypt, $pwdfile);

    my @pwds = split "\n", $data;

    my $i = -1;
    foreach (@pwds) {
        $i++;
        
        next unless $_ =~ m/$grep/;
        $_ =~ m/(.*?) - (.*?) \((.*?)\)/;

        print "Delete '$1'? [y/n] ";
        chop(my $command = <STDIN>);
        next unless $command eq 'y';

        splice(@pwds, $i, 1);
    }

    $data = (join "\n", @pwds)."\n";

    write_file($crypt, $pwdfile, $data);
    
} else {
    print "ERROR: Invalid action '$action'.\n";
    print "Type 'perldoc $0' for manual\n";
}

sub read_file {
    my ($cipher, $qfn) = @_;
    open(my $fh, '<:bytes', $qfn")
        or die("Cannot open $qfn: $!\n");
    my $file; { local $/; $file = <$fh>; }
    $file = $cipher->decrypt($file);
    die("Wrong password\n") if substr($file, 0, length(SIG), '') ne SI
+G;
    return $file;
}

sub write_file {
    my ($cipher, $qfn, $file) = @_;
    open(my $fh, '>:bytes', $qfn")
        or die("Cannot create file $qfn: $!\n");
    print($fh $cipher->encrypt(SIG . $file));
}

__END__

=head1 NAME

Password - A simple command-line password manager.

=head1 USAGE

B<Password> I<ACTION> I<ARGS>

=head1 ACTIONS

=over

=item B<add>

Add a new account in the password file. The user will be asked interac
+tively
for all the information (account name, login and password) needed.

=item B<rm ACCOUNT>

Remove the ACCOUNT account.

=item B<ls TERM>

Show accounts that contain TERM. If no TERM specified, the entire list
+ is
showed.

=back

=head1 CONFIGURATION

Set PWD_FILE environment variable, to your password file location.
Default ~/.passwd.

=head1 ENCRYPTION

Blowfish encryption is used, with proper salting and chaining.

=cut

[download]

Untested.

In reply to Re: Password Manager by ikegami
in thread Password Manager by alexbio

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.