1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
package JSON::WebToken::Crypt::HMAC;
use strict;
use warnings;
use parent 'JSON::WebToken::Crypt';
use Digest::SHA ();
our $ALGORITHM2SIGNING_METHOD_MAP = {
HS256 => \&Digest::SHA::hmac_sha256,
HS384 => \&Digest::SHA::hmac_sha384,
HS512 => \&Digest::SHA::hmac_sha512,
};
sub sign {
my ($class, $algorithm, $message, $key) = @_;
my $sign = '';
my $method = $ALGORITHM2SIGNING_METHOD_MAP->{$algorithm};
return $method->($message, $key);
}
sub verify {
my ($class, $algorithm, $message, $key, $signature) = @_;
my $sign = $class->sign($algorithm, $message, $key);
return $sign eq $signature ? 1 : 0;
}
1;
__END__
|
