Sample code for 30+ languages & platforms
Perl

MIME S/MIME Signing Algorithm Properties

See more MIME Examples

Demonstrates the properties that control S/MIME signing: SigningAlg (the RSA signature scheme, PKCS1-V1_5 or RSASSA-PSS), SigningHashAlg (the message-digest algorithm), Micalg and Protocol (the micalg and protocol parameters of a multipart/signed Content-Type), and UseXPkcs7 (whether historical x-pkcs7 media-type names are used). The properties are configured before creating a detached signature.

Background. These settings determine how the CMS/PKCS #7 signature is produced and how a multipart/signed wrapper advertises it. The defaults (PKCS1-V1_5, sha256) suit most modern uses; the properties allow interoperability with specific requirements.

Chilkat Perl Downloads

Perl
use chilkat();

$success = 0;

$mime = chilkat::CkMime->new();
$success = $mime->SetBodyFromPlainText("This message will be signed.");
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

#  SigningAlg is the RSA signature scheme.  The default is PKCS1-V1_5; set RSASSA-PSS (or pss) for
#  RSASSA-PSS.
$mime->put_SigningAlg("PKCS1-V1_5");

#  SigningHashAlg is the message-digest algorithm.  The default is sha256.
$mime->put_SigningHashAlg("sha256");

#  Micalg and Protocol are the micalg and protocol parameters written into a multipart/signed
#  Content-Type header field.  They are normally set automatically, but can be controlled here.
$mime->put_Micalg("sha-256");
$mime->put_Protocol("application/pkcs7-signature");

#  UseXPkcs7 controls whether newly created S/MIME media types use the historical x-pkcs7 names.
$mime->put_UseXPkcs7(0);

#  Load a signing certificate (with private key access) from a PFX.  The PFX password should come
#  from a secure source rather than being hard-coded.
$pfxPassword = "myPfxPassword";
$cert = chilkat::CkCert->new();
$success = $cert->LoadPfxFile("qa_data/signer.pfx",$pfxPassword);
if ($success == 0) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

#  Create the detached signature using the algorithms configured above.
$success = $mime->AddDetachedSignature($cert);
if ($success == 0) {
    print $mime->lastErrorText() . "\r\n";
    exit;
}

print "Signed with SigningAlg=" . $mime->signingAlg() . " SigningHashAlg=" . $mime->signingHashAlg() . "\r\n";