Perl
Perl
Sign a JWS with a Private Key
See more JSON Web Signatures (JWS) Examples
Demonstrates Jws.SetPrivateKey, which sets the private key used to create a signature. The example uses RS256 (RSASSA-PKCS1-v1_5 with SHA-256).
The file path is relative to the application's current working directory. An absolute path may also be used. Supply the path appropriate to your own environment.
Background. Public-key JWS signs with a private key so that anyone holding the corresponding public key can verify the signature.
Chilkat Perl Downloads
use chilkat();
$success = 0;
$jws = chilkat::CkJws->new();
# Protected header specifying RSASSA-PKCS1-v1_5 with SHA-256 (RS256).
$header = chilkat::CkJsonObject->new();
$header->UpdateString("alg","RS256");
$success = $jws->SetProtectedHeader(0,$header);
if ($success == 0) {
print $jws->lastErrorText() . "\r\n";
exit;
}
$bIncludeBom = 0;
$success = $jws->SetPayload("This is the content to sign.","utf-8",$bIncludeBom);
if ($success == 0) {
print $jws->lastErrorText() . "\r\n";
exit;
}
# The file path is relative to the application's current working directory. An absolute path
# may also be used. Supply the path appropriate to your own environment.
# Load the signer's private key and set it for signature 0.
$privKey = chilkat::CkPrivateKey->new();
$success = $privKey->LoadPemFile("qa_data/signer_privkey.pem");
if ($success == 0) {
print $privKey->lastErrorText() . "\r\n";
exit;
}
$success = $jws->SetPrivateKey(0,$privKey);
if ($success == 0) {
print $jws->lastErrorText() . "\r\n";
exit;
}
$jwsCompact = $jws->createJws();
if ($jws->get_LastMethodSuccess() == 0) {
print $jws->lastErrorText() . "\r\n";
exit;
}
print $jwsCompact . "\r\n";