root/examples/password-manager.p5

#!/usr/bin/perl

use Term::ReadLine;

sub commit {
        unlink "pwd.gpg.old" or die "Couldn't unlink: $!";
        rename "pwd.gpg", "pwd.gpg.old" or die "Couldn't rename: $!";
        open PWD, "|gpg --symmetric --force-mdc --cipher-algo AES256 --output pwd.gpg" or die "Couldn't encrypt: $!";
        for $i (keys %pw) {
                print PWD "$i\t$pw{$i}{pw}\t$pw{$i}{us}\n";
        }
        close PWD or warn "Couldn't write pwd: $!";
        $changed = 0;
}

sub randpass { return join("", @chars[map{rand @chars} (1..8)]); }

sub xclip {
        open(XCLIP, "|/usr/X11R6/bin/xclip") or warn("No xclip - use .p\n"),
                return;
        print XCLIP $_[0];
        close XCLIP;
}

$ENV{PATH} = "/bin:/usr/bin";
umask 077;

@achars = ("A" .. "Z", "a" .. "z", "0" .. "9");
for($i = 33; $i <= 126; $i++) {
        #alphanum and punct, no space
        @apchars[$i-33] = chr $i;
}
@chars =@apchars;

chdir "$ENV{HOME}/pw" or die "Couldn't cd: $!";
open PWD, "gpg --output - --decrypt pwd.gpg|" or die "Couldn't decrypt: $!";
while(<PWD>) {
        chomp;
        /^([^\t]+)\t([^\t]+)\t([^\t]+)$/ or warn "Malformed line $.: $_\n";
        $pw{$1}{pw} = $2;
        $pw{$1}{us} = $3;
}
close PWD;

$term = new Term::ReadLine "pw";
$attribs = $term->Attribs;
$attribs->{completion_entry_function} = $attribs->{list_completion_function};
$attribs->{completion_word} = [keys %pw];

while(defined($_ = $term->readline("> "))) {
        chomp;
        if(/^\/(.*)/) {
                $s = $1;
                for $i (keys %pw) {
                        print "$pw{$i}{us}\t$i\n" if $i =~ /$s/;
                }
        } elsif(/^\.(.)/) {
                if($1 eq "n") {
                        /^\.n\t([^\t]+)\t([^\t]+)\t([^\t]+)$/ or warn(".n [tab] account [tab] password [tab] username\n"), next;
                        $changed++;
                        if($2 eq "R") {
                                $p = randpass;
                                xclip($p);
                        } else {
                                $p = $2;
                        }
                        $pw{$1}{pw} = $p;
                        $pw{$1}{us} = $3;
                } elsif($1 eq "d") {
                        /^\.d\s+([^\t]+?)\s*$/ or warn(".d account\n"), next;
                        warn("No account $1\n"), next unless exists $pw{$1};
                        $changed++;
                        delete $pw{$1};
                } elsif($1 eq "p") {
                        /^\.p\s+([^\t]+?)\s*$/ or warn(".p account\n"), next;
                        warn("No account $1\n"), next unless exists $pw{$1};
                        print "$pw{$1}{us}\t$pw{$1}{pw}\n";
                } elsif($1 eq "x") {
                        /^\.x\s+([^\t]+?)\s*$/ or warn(".x account\n"), next;
                        warn("No account $1\n"), next unless exists $pw{$1};
                        xclip($pw{$1}{pw});
                } elsif($1 eq "c") {
                        commit;
                } elsif($1 eq "r") {
                        xclip(randpass);
                } elsif($1 eq "R") {
                        print randpass, "\n";
                } elsif($1 eq "a") {
                        @chars =@achars;
                } elsif($1 eq "A") {
                        @chars =@apchars;
                } elsif($1 eq "h") {
                        print "<account>\txclip account password and exit\n/<regex>\tsearch accounts\n.n\t\tnew account\n.d\t\tdelete account\n.p\t\tprint account\n.x\t\txclip account password\n.c\t\tcommit changes\n.r\t\txclip random password\n.R\t\tprint random password\n.a\t\tswitch to alphanum\n.A\t\tswitch to alphanum and punct\n.h\t\thelp\n";
                } else {
                        warn "Bad command .$1\n";
                }
        } else {
                /^ *([^\t]+?)\s*$/ or next;
                $s = $1;
                for $i (keys %pw) {
                        $p = $pw{$i}{pw}, last if $i eq $s;
                        $p = $pw{$i}{pw} if $i =~ /\Q$s/;
                }
                warn("Couldn't find account $s\n"), next unless length $p;
                xclip($p);
                commit if $changed;
                sleep 10;
                xclip("");
                exit;
        }
} continue { $attribs->{completion_word} = [keys %pw]; }

commit if $changed;