░▒▓████████████████████████████████▓▒░ ░▒▓█ ▓▒░ ░▒▓█ ~ S W A M P ~ ▓▒░ ░▒▓█ ▓▒░ ░▒▓████████████████████████████████▓▒░
lon105.truehost.cloud
LOCATION:
/usr/share/perl5/vendor_perl/JSON/WebToken/Crypt
☗ ROOT
↻ REFRESH
✎ CARVE FLESH
EDITING: HMAC.pm
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__
CANCEL
Name
Type
Size
Modified
Actions
↩ ..
DIR
—
—
📄 HMAC.pm
PM
657 B
2021-02-08 17:42
EDIT
📄 RSA.pm
PM
870 B
2021-02-08 17:42
EDIT