83 lines
2.7 KiB
Perl
83 lines
2.7 KiB
Perl
package DDG::Goodie::CryptHashCheck;
|
|
# ABSTRACT: Identifies cryptographic hash type.
|
|
|
|
use strict;
|
|
use DDG::Goodie;
|
|
|
|
# A comprehensive reference for hashing functions from Wikipedia.
|
|
|
|
use constant MD5HERF => "http://en.wikipedia.org/wiki/MD5";
|
|
use constant SHA1HREF => "http://en.wikipedia.org/wiki/SHA-1";
|
|
use constant SHA2HREF => "http://en.wikipedia.org/wiki/SHA-2";
|
|
use constant SHA3HREF => "http://en.wikipedia.org/wiki/SHA-3";
|
|
|
|
zci is_cached => 1;
|
|
|
|
# Only one trigger enabled.
|
|
triggers start => "hash";
|
|
|
|
primary_example_queries 'hash 624d420035fc9471f6e16766b7132dd6bb34ea62';
|
|
secondary_example_queries 'hash 1f9b59a2390bb77d2c446837d6aeab067f01b05732735f47099047cd7d3e9f85';
|
|
description 'Identifies cryptographic hash function type.';
|
|
name 'CryptHashCheck';
|
|
code_url 'https://github.com/duckduckgo/zeroclickinfo-goodies/blob/master/lib/DDG/Goodie/CryptHashCheck.pm';
|
|
category 'computing_tools';
|
|
topics 'cryptography';
|
|
|
|
attribution github => ['https://github.com/digit4lfa1l', 'digit4lfa1l'];
|
|
|
|
# Remainder function with links to the Wikipedia resources.
|
|
|
|
handle remainder => sub {
|
|
my ($md5) = /^[0-9a-f]{32}$/i;
|
|
if ($md5){
|
|
my $text = sprintf qq(This is a 128 bit MD5 cryptographic hash.);
|
|
my $html = sprintf qq(This is a 128 bit <a href="%s">MD5</a> cryptographic hash.),MD5HERF;
|
|
|
|
return $text, html => $html;
|
|
}
|
|
|
|
my ($sha1) = /^[0-9a-f]{40}$/i;
|
|
if ($sha1){
|
|
my $text = sprintf qq(This is a 160 bit SHA-1 cryptographic hash.);
|
|
my $html = sprintf qq(This is a 160 bit <a href="%s">SHA-1</a> cryptographic hash.),SHA1HREF;
|
|
|
|
return $text, html => $html;
|
|
}
|
|
|
|
my ($sha224) = /^[0-9a-f]{56}$/i;
|
|
if ($sha224){
|
|
my $text = sprintf qq(This is a 224 bit SHA-2/SHA-3 cryptographic hash.);
|
|
my $html = sprintf qq(This is a 224 bit <a href="%s">SHA-2</a>/<a href="%s">SHA-3</a> cryptographic hash.),SHA2HREF,SHA3HREF;
|
|
|
|
return $text, html => $html;
|
|
}
|
|
|
|
my ($sha256) = /^[0-9a-f]{64}$/i;
|
|
if ($sha256){
|
|
my $text = sprintf qq(This is a 256 bit SHA-2/SHA-3 cryptographic hash.);
|
|
my $html = sprintf qq(This is a 256 bit <a href="%s">SHA-2</a>/<a href="%s">SHA-3</a> cryptographic hash.),SHA2HREF,SHA3HREF;
|
|
|
|
return $text, html => $html;
|
|
}
|
|
|
|
my ($sha384) = /^[0-9a-f]{96}$/i;
|
|
if ($sha384){
|
|
my $text = sprintf qq(This is a 384 bit SHA-2/SHA-3 cryptographic hash.);
|
|
my $html = sprintf qq(This is a 384 bit <a href="%s">SHA-2</a>/<a href="%s">SHA-3</a> cryptographic hash.),SHA2HREF,SHA3HREF;
|
|
|
|
return $text, html => $html;
|
|
}
|
|
|
|
my ($sha512) = /^[0-9a-f]{128}$/i;
|
|
if ($sha512){
|
|
my $text = sprintf qq(This is a 512 bit SHA-2/SHA-3 cryptographic hash.);
|
|
my $html = sprintf qq(This is a 512 bit <a href="%s">SHA-2</a>/<a href="%s">SHA-3</a> cryptographic hash.),SHA2HREF,SHA3HREF;
|
|
|
|
return $text, html => $html;
|
|
}
|
|
return;
|
|
};
|
|
|
|
1;
|