| Server IP : 192.158.238.246 / Your IP : 3.145.38.251 Web Server : LiteSpeed System : Linux uniform.iwebfusion.net 4.18.0-553.27.1.lve.1.el8.x86_64 #1 SMP Wed Nov 20 15:58:00 UTC 2024 x86_64 User : jenniferflocom ( 1321) PHP Version : 8.1.32 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : OFF Directory : /usr/share/perl5/vendor_perl/JSON/WebToken/Crypt/ |
Upload File : |
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__