(Perl) RSASSA-PSS Algorithm with SHA256 Hashing
RSA encrypt a SHA256 hash with OAEP padding.
use chilkat();
# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
$privkey = chilkat::CkPrivateKey->new();
# Load the private key object from a PEM file.
# (To load from a PEM string, call LoadPem instead.)
$success = $privkey->LoadPemFile("somePath/myPrivateKey.pem");
if ($success != 1) {
print $privkey->lastErrorText() . "\r\n";
exit;
}
$rsa = chilkat::CkRsa->new();
# Use RSA-PSS by setting OaepPadding = 1
$rsa->put_OaepPadding(1);
# Use SHA256
$rsa->put_OaepHash("SHA-256");
$rsa->ImportPrivateKeyObj($privkey);
# Generate a base64 signature.
$rsa->put_EncodingMode("base64");
$sigStr = $rsa->signStringENC("String to be signed","SHA-256");
if ($rsa->get_LastMethodSuccess() != 1) {
print $rsa->lastErrorText() . "\r\n";
exit;
}
print "Signature: " . $sigStr . "\r\n";
|