From 754aae61fa9335d7d75967e7929ee07d1b69d9f8 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sun, 10 Oct 2021 21:20:38 +0200 Subject: Explicitly specify key size for new Crypt::CBC / Eksblowfish versions --- lib/App/Raps2/Password.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/App/Raps2/Password.pm b/lib/App/Raps2/Password.pm index 47de634..f98192c 100644 --- a/lib/App/Raps2/Password.pm +++ b/lib/App/Raps2/Password.pm @@ -66,7 +66,7 @@ sub encrypt { my $eksblowfish = Crypt::Eksblowfish->new( $opt{cost}, $opt{salt}, $self->{passphrase}, ); - my $cbc = Crypt::CBC->new( -cipher => $eksblowfish ); + my $cbc = Crypt::CBC->new( -cipher => $eksblowfish, -keysize => 56 ); return $cbc->encrypt_hex( $opt{data} ); } @@ -79,7 +79,7 @@ sub decrypt { my $eksblowfish = Crypt::Eksblowfish->new( $opt{cost}, $opt{salt}, $self->{passphrase}, ); - my $cbc = Crypt::CBC->new( -cipher => $eksblowfish ); + my $cbc = Crypt::CBC->new( -cipher => $eksblowfish, -keysize => 56 ); return $cbc->decrypt_hex( $opt{data} ); } -- cgit v1.2.3