59 lines
1.7 KiB
Perl
59 lines
1.7 KiB
Perl
|
package DDG::Goodie::MD4;
|
||
|
|
# ABSTRACT: Computes the MD4 cryptographic hash function
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use DDG::Goodie;
|
||
|
|
use Digest::MD4;
|
||
|
|
|
||
|
|
zci answer_type => "md4";
|
||
|
|
zci is_cached => 1;
|
||
|
|
|
||
|
|
name "MD4";
|
||
|
|
description "MD4 hash algorithm";
|
||
|
|
primary_example_queries "md4 this string";
|
||
|
|
secondary_example_queries "md4sum this string",
|
||
|
|
"MD4 this string",
|
||
|
|
"md4 hash of this string",
|
||
|
|
"md4 base64 this string";
|
||
|
|
category "calculations";
|
||
|
|
topics "cryptography";
|
||
|
|
code_url "https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/MD4.pm";
|
||
|
|
attribution github => ["rafacas", "Rafa Casado"],
|
||
|
|
twitter => "rafacas";
|
||
|
|
|
||
|
|
triggers start => "md4", "md4sum";
|
||
|
|
|
||
|
|
handle remainder => sub {
|
||
|
|
return unless $_ =~ /^(?<enc>hex|base64|)\s*(?<str>.*)$/i;
|
||
|
|
|
||
|
|
my $enc = lc $+{'enc'} || 'hex';
|
||
|
|
my $str = $+{'str'} || '';
|
||
|
|
$str =~ s/^hash\s+(.*\S+)/$1/; # Remove 'hash' in queries like 'md4 hash this'
|
||
|
|
$str =~ s/^of\s+(.*\S+)/$1/; # Remove 'of' in queries like 'md4 hash of this'
|
||
|
|
$str =~ s/^\"(.+)\"$/$1/; # remove quotes (e.g. md4 "this string")
|
||
|
|
return unless $str;
|
||
|
|
|
||
|
|
my $func_name = 'Digest::MD4::md4_' . $enc;
|
||
|
|
my $func = \&$func_name;
|
||
|
|
|
||
|
|
my $out = $func->($str);
|
||
|
|
|
||
|
|
# By convention, CPAN Digest modules do not pad their Base64 output. So any
|
||
|
|
# necessary padding will be implemented here
|
||
|
|
if ($enc eq 'base64'){
|
||
|
|
while (length($out) % 4) {
|
||
|
|
$out .= '=';
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
return $out,
|
||
|
|
structured_answer => {
|
||
|
|
input => [html_enc($str)],
|
||
|
|
operation => html_enc('MD4 ' . $enc . ' hash'),
|
||
|
|
result => html_enc($out)
|
||
|
|
};
|
||
|
|
|
||
|
|
};
|
||
|
|
|
||
|
|
1;
|