(PowerBuilder) Create XML Signature with External Data Reference

Demonstrates how to create an XML digital signature where the data is external. In this case, the data is a JPG file.

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_RsaKey
oleobject loo_XmlSigGen
string ls_JpgUrl
oleobject loo_JpgData

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

// This example inserts an XML signature in the following XML:

// <?xml version="1.0" encoding="UTF-8" standalone="no"?>
// <abc>
//   <xyz>
//     <jpg>
//         <name>starfish.jpg</name>
//         <url>https://www.chilkatsoft.com/images/starfish.jpg</url>
//     </jpg>
//   </xyz>
// </abc>

// The above XML is available at https://www.chilkatsoft.com/exampleData/addSignatureToThis.xml
// First fetch the XML:

ls_Url = "https://www.chilkatsoft.com/exampleData/addSignatureToThis.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

// We'll use an RSA private key for signing.  
loo_RsaKey = create oleobject
// Use "Chilkat_9_5_0.PrivateKey" for versions of Chilkat < 10.0.0
li_rc = loo_RsaKey.ConnectToNewObject("Chilkat.PrivateKey")

li_Success = loo_RsaKey.LoadPemFile("qa_data/rsa/rsaPrivKey_pkcs8.pem")
if li_Success <> 1 then
    Write-Debug loo_RsaKey.LastErrorText
    destroy loo_Http
    destroy loo_SbXml
    destroy loo_RsaKey
    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 were the Signature will be inserted:
loo_XmlSigGen.SigLocation = "abc|xyz|jpg"

// Provide the RSA key to be used for signing:
loo_XmlSigGen.SetPrivateKey(loo_RsaKey)

// Fetch the JPG image data.
ls_JpgUrl = "https://www.chilkatsoft.com/images/starfish.jpg"
loo_JpgData = create oleobject
// Use "Chilkat_9_5_0.BinData" for versions of Chilkat < 10.0.0
li_rc = loo_JpgData.ConnectToNewObject("Chilkat.BinData")

li_Success = loo_Http.QuickGetBd(ls_JpgUrl,loo_JpgData)
if li_Success <> 1 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_SbXml
    destroy loo_RsaKey
    destroy loo_XmlSigGen
    destroy loo_JpgData
    return
end if

// Add the external data reference:
loo_XmlSigGen.AddExternalBinaryRef(ls_JpgUrl,loo_JpgData,"sha256","")

// Create the XML digital signature:
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_RsaKey
    destroy loo_XmlSigGen
    destroy loo_JpgData
    return
end if

// Examine the XML that now contains the Signature:
Write-Debug loo_SbXml.GetAsString()

// <?xml version="1.0" encoding="UTF-8" standalone="no"?>
// <abc>
//   <xyz>
//     <jpg>
//         <name>starfish.jpg</name>
//         <url>https://www.chilkatsoft.com/images/starfish.jpg</url>
//     <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/2001/04/xmldsig-more#rsa-sha256"/><ds:Reference URI="https://www.chilkatsoft.com/images/starfish.jpg"><ds:DigestMethod Algorithm="http://www.w3.org/2001/04/xmlenc#sha256"/><ds:DigestValue>AOU810yJV5Np/DnO29qpObqiTSTTCDvxGsX5ayiTYXI=</ds:DigestValue></ds:Reference></ds:SignedInfo><ds:SignatureValue>ApHRr6nilNrzt3dLveC9zlPoSllaCMfHsbAwr+vYBPkHkJ4wD5LzDDhi1tSJZAAeTckmvSqIG3Wi0rgXQiSM644MD3coBFx4QgrY+GZ+XJJE2Y0Ye3VvaQBiRdUW3INGsW4GLubncgQk5JhuAQjo6O/GKpfEuYqUJj/6CLHLQwMPwbZ2043ykgzuPFoOZf6EydJMBAn1ORMvrpUn+zuA9UngOTGap6eWE4CeiNx23BRC2wSztbUjdCLcqXvgiYu/v0tBNaTcwy7b6+IFtwv/lNUUBUQJ/3p+aErzFn3wLeH3yeqpDCU0U6Dqu5SS1jYupcWWsLHJjYnj2066DPJi/g==</ds:SignatureValue><ds:KeyInfo><ds:KeyValue><ds:RSAKeyValue><ds:Modulus>sXeRhM55P13FbpNcXAMR3olbw2Wa6keZIHu5YTZYUBTlYWId+pNiwUz3zFIEo+0IfYR0H27ybIycQO+1IIzJofUFNMAL3tZps2OKPlsjuCPls6kXpXhv/gvhux8LrCtp4PcKWqJ6QVOZKChc7WAx40qFWzHi57ueqRTv3x0kESqGg/VjsqyTEvb55psJO2RsfhLT7+YVh3hImRM3RDaJdkTkPuOxeFyT6N7VXD09329sLuS3QkUbE9zEKDnz9X3d8dEQdJhSI9ba5fxl8R7fu8pB67ElfzFml96X1jLFtzy1pzOT5Fc4ROcaqlYckVzdBq9sxezm6MYmDBjNAcibRw==</ds:Modulus><ds:Exponent>AQAB</ds:Exponent></ds:RSAKeyValue></ds:KeyValue></ds:KeyInfo></ds:Signature></jpg>
//   </xyz>
// </abc>
// 


destroy loo_Http
destroy loo_SbXml
destroy loo_RsaKey
destroy loo_XmlSigGen
destroy loo_JpgData