(Perl) Create AuthNRequest with embedded signature (HTTP-POST binding)

Demonstrates how to create a SAML AuthNRequest with embedded signature (HTTP-POST binding).

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

# This example will sign the following SAML AuthNRequest:

# <samlp:AuthnRequest 
#      xmlns:samlp="urn:oasis:names:tc:SAML:2.0:protocol"
#      xmlns:saml="urn:oasis:names:tc:SAML:2.0:assertion"
#      ID="pfx41d8ef22-e612-8c50-9960-1b16f15741b3"
#      Version="2.0" ProviderName="SP test" IssueInstant="2014-07-16T23:52:45Z"
#      Destination="http://idp.example.com/SSOService.php"
#      ProtocolBinding="urn:oasis:names:tc:SAML:2.0:bindings:HTTP-POST"
#      AssertionConsumerServiceURL="http://sp.example.com/demo1/index.php?acs">
#   <saml:Issuer>http://sp.example.com/demo1/metadata.php</saml:Issuer>
#   <samlp:NameIDPolicy Format="urn:oasis:names:tc:SAML:1.1:nameid-format:emailAddress" AllowCreate="true"/>
#   <samlp:RequestedAuthnContext Comparison="exact">
#     <saml:AuthnContextClassRef>urn:oasis:names:tc:SAML:2.0:ac:classes:PasswordProtectedTransport</saml:AuthnContextClassRef>
#   </samlp:RequestedAuthnContext>
# </samlp:AuthnRequest>

# First we build the XML to be signed.
# 
# Use this online tool to generate the code from sample XML: 
# Generate Code to Create XML

$success = 1;
$xmlToSign = chilkat::CkXml->new();
$xmlToSign->put_Tag("samlp:AuthnRequest");
$xmlToSign->AddAttribute("xmlns:samlp","urn:oasis:names:tc:SAML:2.0:protocol");
$xmlToSign->AddAttribute("xmlns:saml","urn:oasis:names:tc:SAML:2.0:assertion");
$xmlToSign->AddAttribute("ID","pfx41d8ef22-e612-8c50-9960-1b16f15741b3");
$xmlToSign->AddAttribute("Version","2.0");
$xmlToSign->AddAttribute("ProviderName","SP test");
$xmlToSign->AddAttribute("IssueInstant","2014-07-16T23:52:45Z");
$xmlToSign->AddAttribute("Destination","http://idp.example.com/SSOService.php");
$xmlToSign->AddAttribute("ProtocolBinding","urn:oasis:names:tc:SAML:2.0:bindings:HTTP-POST");
$xmlToSign->AddAttribute("AssertionConsumerServiceURL","http://sp.example.com/demo1/index.php?acs");
$xmlToSign->UpdateChildContent("saml:Issuer","http://sp.example.com/demo1/metadata.php");
$xmlToSign->UpdateAttrAt("samlp:NameIDPolicy",1,"Format","urn:oasis:names:tc:SAML:1.1:nameid-format:emailAddress");
$xmlToSign->UpdateAttrAt("samlp:NameIDPolicy",1,"AllowCreate","true");
$xmlToSign->UpdateAttrAt("samlp:RequestedAuthnContext",1,"Comparison","exact");
$xmlToSign->UpdateChildContent("samlp:RequestedAuthnContext|saml:AuthnContextClassRef","urn:oasis:names:tc:SAML:2.0:ac:classes:PasswordProtectedTransport");

# Also see the online tool to generate the code from sample already-signed XML: 
# Generate XML Signature Creation Code from an Already-Signed XML Sample

$gen = chilkat::CkXmlDSigGen->new();

$gen->put_SigLocation("samlp:AuthnRequest");
$gen->put_SigNamespacePrefix("ds");
$gen->put_SigNamespaceUri("http://www.w3.org/2000/09/xmldsig#");
$gen->put_SignedInfoCanonAlg("EXCL_C14N");
$gen->put_SignedInfoDigestMethod("sha1");

# -------- Reference 1 --------
$gen->AddSameDocRef("pfx41d8ef22-e612-8c50-9960-1b16f15741b3","sha1","EXCL_C14N","","");

# Provide a certificate + private key. (PFX password is test123)
$cert = chilkat::CkCert->new();
$success = $cert->LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123");
if ($success != 1) {
    print $cert->lastErrorText() . "\r\n";
    exit;
}

$gen->SetX509Cert($cert,1);

$gen->put_KeyInfoType("X509Data");
$gen->put_X509Type("Certificate");

# Load XML to be signed...
$sbXml = chilkat::CkStringBuilder->new();
$xmlToSign->GetXmlSb($sbXml);

$gen->put_Behaviors("IndentedSignature,ForceAddEnvelopedSignatureTransform");

# Sign the XML...
$success = $gen->CreateXmlDSigSb($sbXml);
if ($success != 1) {
    print $gen->lastErrorText() . "\r\n";
    exit;
}

# Save the signed XMl to a file.
$success = $sbXml->WriteFile("qa_output/signedXml.xml","utf-8",0);

# A sample of the signed XML is shown below..
print $sbXml->getAsString() . "\r\n";

# ----------------------------------------
# Verify the signature we just produced...
$verifier = chilkat::CkXmlDSig->new();
$success = $verifier->LoadSignatureSb($sbXml);
if ($success != 1) {
    print $verifier->lastErrorText() . "\r\n";
    exit;
}

$verified = $verifier->VerifySignature(1);
if ($verified != 1) {
    print $verifier->lastErrorText() . "\r\n";
    exit;
}

print "This signature was successfully verified." . "\r\n";

# -----------------------------------------
# Sample output of AuthNRequest signed XML:
# (Line-breaks and some indenting added for readability..)

# <?xml version="1.0" encoding="utf-8"?>
# <samlp:AuthnRequest 
#   xmlns:samlp="urn:oasis:names:tc:SAML:2.0:protocol" 
#   xmlns:saml="urn:oasis:names:tc:SAML:2.0:assertion" 
#   ID="pfx41d8ef22-e612-8c50-9960-1b16f15741b3" 
#   Version="2.0" ProviderName="SP test" 
#   IssueInstant="2014-07-16T23:52:45Z" 
#   Destination="http://idp.example.com/SSOService.php" 
#   ProtocolBinding="urn:oasis:names:tc:SAML:2.0:bindings:HTTP-POST" 
#   AssertionConsumerServiceURL="http://sp.example.com/demo1/index.php?acs">
#     <saml:Issuer>http://sp.example.com/demo1/metadata.php</saml:Issuer>
#     <samlp:NameIDPolicy Format="urn:oasis:names:tc:SAML:1.1:nameid-format:emailAddress" AllowCreate="true"/>
#     <samlp:RequestedAuthnContext Comparison="exact">
#         <saml:AuthnContextClassRef>urn:oasis:names:tc:SAML:2.0:ac:classes:PasswordProtectedTransport</saml:AuthnContextClassRef>
#     </samlp:RequestedAuthnContext>
# 	<ds:Signature xmlns:ds="http://www.w3.org/2000/09/xmldsig#">
# 	  <ds:SignedInfo>
# 	    <ds:CanonicalizationMethod Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"/>
# 	    <ds:SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1"/>
# 	    <ds:Reference URI="#pfx41d8ef22-e612-8c50-9960-1b16f15741b3">
# 	      <ds:Transforms>
# 	        <ds:Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature"/>
# 	        <ds:Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"/>
# 	      </ds:Transforms>
# 	      <ds:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/>
# 	      <ds:DigestValue>5d+/YNShy4qnvZcvik8fHHg2SWQ=</ds:DigestValue>
# 	    </ds:Reference>
# 	  </ds:SignedInfo>
# 	  <ds:SignatureValue>QS16H5...U5LQ==</ds:SignatureValue>
# 	  <ds:KeyInfo>
# 	    <ds:X509Data>
# 	      <ds:X509Certificate>MIIF...tjlF4=</ds:X509Certificate>
# 	    </ds:X509Data>
# 	  </ds:KeyInfo>
# 	</ds:Signature>
# </samlp:AuthnRequest>
#