(PowerBuilder) Create XML Digital Signature having KeyName

Demonstrates how to create an XML digital signature where the KeyInfo part will contain the KeyName element.
In this case, the public key is not specifically stored in the signed XML.
Rather, application specific information about the key is stored in the KeyName element.
The verifying application would use the KeyName to find and use the matching public key.

This example requires Chilkat v9.5.0.69 or greater.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

integer li_rc
string ls_Url
oleobject loo_Http
oleobject loo_SbXml
integer li_Success
oleobject loo_DsaKey
oleobject loo_XmlSigGen

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

// The XML to be signed in this example contains the following:

// <?xml version="1.0" encoding="UTF-8" standalone="no"?>
// <Envelope>
//   <Header>
//     <Security>
//     </Security>
//   </Header>
//   <Body Id="abc">
//     <z:FooBar xmlns:z="https://www.example-code.com"/>
//   </Body>
// </Envelope>

// The above XML is available at https://www.chilkatsoft.com/exampleData/xmlToSign.xml
// Fetch the XML and then sign it..

ls_Url = "https://www.chilkatsoft.com/exampleData/xmlToSign.xml"
loo_Http = create oleobject
// Use "Chilkat_9_5_0.Http" for versions of Chilkat < 10.0.0
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if
loo_SbXml = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbXml.ConnectToNewObject("Chilkat.StringBuilder")

li_Success = loo_Http.QuickGetSb(ls_Url,loo_SbXml)
if li_Success <> 1 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_SbXml
    return
end if

// This example uses a DSA private key for signing.  
// There are many ways of getting an DSA private key using Chilkat.  This example
// will load it from an encrypted PEM file.

// In case you would like to use it, I put the DSA private key PEM file here:
// https://www.chilkatsoft.com/exampleData/dsa1024_secret.zip
// The password is "secret".
loo_DsaKey = create oleobject
// Use "Chilkat_9_5_0.PrivateKey" for versions of Chilkat < 10.0.0
li_rc = loo_DsaKey.ConnectToNewObject("Chilkat.PrivateKey")

li_Success = loo_DsaKey.LoadEncryptedPemFile("qa_data/dsa/dsa1024_secret.pem","secret")
if li_Success <> 1 then
    Write-Debug loo_DsaKey.LastErrorText
    destroy loo_Http
    destroy loo_SbXml
    destroy loo_DsaKey
    return
end if

loo_XmlSigGen = create oleobject
// Use "Chilkat_9_5_0.XmlDSigGen" for versions of Chilkat < 10.0.0
li_rc = loo_XmlSigGen.ConnectToNewObject("Chilkat.XmlDSigGen")

// Indicate where the XML Signature is to be inserted.
loo_XmlSigGen.SigLocation = "Envelope|Header|Security"

// Specify the fragment of the XML document to be signed.
// This example will sign the fragment from <Body Id="abc"> ... </Body>
loo_XmlSigGen.AddSameDocRef("abc","sha256","EXCL_C14N","","")

// Provide the DSA key to be used for signing:
loo_XmlSigGen.SetPrivateKey(loo_DsaKey)

// Specify what we want to emit in the KeyInfo part of the Signature.
// By default, it is the KeyValue that is emitted to the KeyInfo.
// In this example,we want to emit a key name rather than the actual public key value.
loo_XmlSigGen.KeyInfoType = "KeyName"

// Provide a key name.  The verifying application will use the key name
// to find/load the public key to be used for verifying the signature.
// The key name is an arbitrary pre-agreed upon name that signer and verifier both know in advance.
loo_XmlSigGen.KeyInfoKeyName = "dsaKey_123"

// The KeyInfo part of the XML signature to be created will contain this:
// 
//     <ds:KeyInfo><ds:KeyName>dsaKey_123</ds:KeyName></ds:KeyInfo>
// 

// OK, everything's specified, so let's create the XML digital signature:
// This in-place signs the XML.  If successful, sbXml will contain the 
// XML with the digital signature at the specified location.
loo_XmlSigGen.Behaviors = "IndentedSignature"
li_Success = loo_XmlSigGen.CreateXmlDSigSb(loo_SbXml)
if li_Success <> 1 then
    Write-Debug loo_XmlSigGen.LastErrorText
    destroy loo_Http
    destroy loo_SbXml
    destroy loo_DsaKey
    destroy loo_XmlSigGen
    return
end if

// Examine the signed XML:
Write-Debug loo_SbXml.GetAsString()

loo_SbXml.WriteFile("c:/chilkatsoft.com/exampleData/signedUsingKeyName.xml","utf-8",0)

// Below is the signed XML that is produced.
// 
// <?xml version="1.0" encoding="UTF-8" standalone="no"?>
// <Envelope>
//   <Header>
//     <Security>
//     <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/2009/xmldsig11#dsa-sha256"/>
//     <ds:Reference URI="#abc">
//       <ds:Transforms>
//         <ds:Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"/>
//       </ds:Transforms>
//       <ds:DigestMethod Algorithm="http://www.w3.org/2001/04/xmlenc#sha256"/>
//       <ds:DigestValue>XTjDIHSEsDNTO9yn4cKtyXjRUjPFXkOQOLYI5mueZhk=</ds:DigestValue>
//     </ds:Reference>
//   </ds:SignedInfo>
//   <ds:SignatureValue>F+HopRvLoj+9SHZxI/cGfX9SDfh+HRGZLMievGX3y/cckX1UzFuXCA==</ds:SignatureValue>
//   <ds:KeyInfo>
//     <ds:KeyName>dsaKey_123</ds:KeyName>
//   </ds:KeyInfo>
// </ds:Signature></Security>
//   </Header>
//   <Body Id="abc">
//     <z:FooBar xmlns:z="https://www.example-code.com"/>
//   </Body>
// </Envelope>
// 


destroy loo_Http
destroy loo_SbXml
destroy loo_DsaKey
destroy loo_XmlSigGen