duckduckgo
/
zeroclickinfo-goodies
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added padding for Base64 outputs in case RIPEMD modules comply with the CPAN Digest convention in the future

master
Rafael Casado Sanchez 2015-03-17 12:04:23 +01:00
parent 9ca9ffc88a
commit 249146ae26
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lib/DDG/Goodie/RIPEMD.pm
View File

@ -31,7 +31,7 @@ my @triggers = qw(ripemd ripemdsum ripemd128 ripemd128sum ripemd-128 ripemd160 r
triggers start => @triggers; triggers start => @triggers;
handle query => sub { handle query => sub {
return unless $_ =~ qr/^ripemd\-?(?<ver>128|160|256|320|)?(?:sum|)\s* return unless $_ =~ /^ripemd\-?(?<ver>128|160|256|320|)?(?:sum|)\s*
(?<enc>hex|base64|)\s+(?<str>.*)$/ix; (?<enc>hex|base64|)\s+(?<str>.*)$/ix;
my $ver = $+{'ver'} || 160; # RIPEMD-160 is the most common version in the family my $ver = $+{'ver'} || 160; # RIPEMD-160 is the most common version in the family
@ -50,6 +50,16 @@ handle query => sub {
my $out = $func->($str); my $out = $func->($str);
# By convention, CPAN Digest modules do not pad their Base64 output, but the
# Crypt::Digest::RIPEMDXXX doesn't comply with that convention and returns the
# output with padding. In case they change it in the future and to avoid wrong
# results the necessary padding will be implemented here.
if ($enc eq 'base64'){
while (length($out) % 4) {
$out .= '=';
}
}
return $out, return $out,
structured_answer => { structured_answer => {
input => [html_enc($str)], input => [html_enc($str)],