Perl
Perl
Load and Validate a JWS from a String
See more JSON Web Signatures (JWS) Examples
Demonstrates Jws.LoadJws, which loads a JWS from its compact serialization string. The example then supplies the MAC key and validates the signature.
Background. Validate returns 1 when the signature or MAC is cryptographically valid, 0 when it is not, or a negative value on error. The key for the signer index must be provided before validating.
Chilkat Perl Downloads
use chilkat();
$success = 0;
$jws = chilkat::CkJws->new();
# Load the JWS compact serialization.
$jwsCompact = "eyJhbGciOiJIUzI1NiJ9.VGhpcyBpcyB0aGUgY29udGVudCB0byBzaWduLg.<signature>";
$success = $jws->LoadJws($jwsCompact);
if ($success == 0) {
print $jws->lastErrorText() . "\r\n";
exit;
}
# Provide the HMAC key for signer 0, then validate the signature. Validate returns 1 when the
# signature is cryptographically valid, 0 when it is not, or a negative value on error.
$base64Key = "YWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXowMTIzNDU=";
$success = $jws->SetMacKey(0,$base64Key,"base64");
if ($success == 0) {
print $jws->lastErrorText() . "\r\n";
exit;
}
$v = $jws->Validate(0);
if ($v < 0) {
print $jws->lastErrorText() . "\r\n";
exit;
}
if ($v != 1) {
print "The signature is not valid." . "\r\n";
exit;
}
print "The signature is valid." . "\r\n";