zeroclickinfo-goodies/lib/DDG/Goodie/Sha.pm

package DDG::Goodie::Sha;

use DDG::Goodie;
use Digest::SHA;

zci is_cached => 1;
zci answer_type => "sha";

primary_example_queries 'SHA this';
secondary_example_queries 'sha-512 that', 'sha512sum dim-dims';
description 'SHA hash cryptography';
name 'SHA';
code_url 'https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/Sha.pm';
category 'calculations';
topics 'math';
attribution web => [ 'https://www.duckduckgo.com', 'DuckDuckGo' ],
            github => [ 'https://github.com/duckduckgo', 'duckduckgo'],
            twitter => ['http://twitter.com/duckduckgo', 'duckduckgo'];


triggers query_lc => qr/^sha\-?(1|224|256|384|512|)(?:sum|) (hex|base64|)\s*(.*)$/i;

handle query => sub {
	my $command1 = $1 || '';
	my $command2 = $2 || '';
	my $str      = $3 || '';

	if($str) {
		if ( $command1 eq '224' ) {
		    $str = $command2 eq 'base64' ? Digest::SHA::sha224_base64($str) : Digest::SHA::sha224_hex($str);
		}
		elsif ( $command1 eq '256' ) {
		    $str = $command2 eq 'base64' ? Digest::SHA::sha256_base64($str) : Digest::SHA::sha256_hex($str);
		}
		elsif ( $command1 eq '384' ) {
		    $str = $command2 eq 'base64' ? Digest::SHA::sha384_base64($str) : Digest::SHA::sha384_hex($str);
		}
		elsif ( $command1 eq '512' ) {
		    $str = $command2 eq 'base64' ? Digest::SHA::sha512_base64($str) : Digest::SHA::sha512_hex($str);
		}
		else {
		    $command1 = '1';
		    $str = $command2 eq 'base64' ? Digest::SHA::sha1_base64($str) : Digest::SHA::sha1_hex($str);
		}

		return $str, heading => "SHA-$command1 hash";
	}

	return;
};

1;