add initial WIP

[chaz/p5-File-KDBX] / lib / File / KDBX / Cipher / CBC.pm

diff --git a/lib/File/KDBX/Cipher/CBC.pm b/lib/File/KDBX/Cipher/CBC.pm
new file mode 100644 (file)
index 0000000..8336af4
--- /dev/null
+++ b/lib/File/KDBX/Cipher/CBC.pm
@@ -0,0 +1,71 @@
+package File::KDBX::Cipher::CBC;
+# ABSTRACT: A CBC block cipher mode encrypter/decrypter
+
+use warnings;
+use strict;
+
+use Crypt::Mode::CBC;
+use File::KDBX::Error;
+use namespace::clean;
+
+use parent 'File::KDBX::Cipher';
+
+our $VERSION = '999.999'; # VERSION
+
+sub encrypt {
+    my $self = shift;
+
+    my $mode = $self->{mode} ||= do {
+        my $m = Crypt::Mode::CBC->new($self->algorithm);
+        $m->start_encrypt($self->key, $self->iv);
+        $m;
+    };
+
+    return join('', map { $mode->add(ref $_ ? $$_ : $_) } grep { defined } @_);
+}
+
+sub decrypt {
+    my $self = shift;
+
+    my $mode = $self->{mode} ||= do {
+        my $m = Crypt::Mode::CBC->new($self->algorithm);
+        $m->start_decrypt($self->key, $self->iv);
+        $m;
+    };
+
+    return join('', map { $mode->add(ref $_ ? $$_ : $_) } grep { defined } @_);
+}
+
+sub finish {
+    my $self = shift;
+    return '' if !$self->{mode};
+    my $out = $self->{mode}->finish;
+    delete $self->{mode};
+    return $out;
+}
+
+=attr algorithm
+
+Get the symmetric cipher algorithm.
+
+=cut
+
+sub algorithm   { $_[0]->{algorithm} or throw 'Block cipher algorithm is not set' }
+sub key_size    { $_[0]->{key_size} // 32 }
+sub iv_size     { 16 }
+sub block_size  { 16 }
+
+1;
+__END__
+
+=head1 SYNOPSIS
+
+    use File::KDBX::Cipher::CBC;
+
+    my $cipher = File::KDBX::Cipher::CBC->new(algorithm => $algo, key => $key, iv => $iv);
+
+=head1 DESCRIPTION
+
+A subclass of L<File::KDBX::Cipher> for encrypting and decrypting data using the CBC block cipher mode.
+
+=cut