Chilkat • HOME • Android™ • Classic ASP • C • C++ • C# • Mono C# • .NET Core C# • C# UWP/WinRT • DataFlex • Delphi ActiveX • Delphi DLL • Visual FoxPro • Java • Lianja • MFC • Objective-C • Perl • PHP ActiveX • PHP Extension • PowerBuilder • PowerShell • PureBasic • CkPython • Chilkat2-Python • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • Visual Basic 6.0 • VB.NET • VB.NET UWP/WinRT • VBScript • Xojo Plugin • Node.js • Excel • Go
(Excel) Create XML Signature with External Data ReferenceDemonstrates 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.
' 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: url = "https://www.chilkatsoft.com/exampleData/addSignatureToThis.xml" Dim http As Chilkat.Http Set http = Chilkat.NewHttp Dim sbXml As Chilkat.StringBuilder Set sbXml = Chilkat.NewStringBuilder success = http.QuickGetSb(url,sbXml) If (success <> True) Then Debug.Print http.LastErrorText Exit Sub End If ' We'll use an RSA private key for signing. Dim rsaKey As Chilkat.PrivateKey Set rsaKey = Chilkat.NewPrivateKey success = rsaKey.LoadPemFile("qa_data/rsa/rsaPrivKey_pkcs8.pem") If (success <> True) Then Debug.Print rsaKey.LastErrorText Exit Sub End If Dim xmlSigGen As Chilkat.XmlDSigGen Set xmlSigGen = Chilkat.NewXmlDSigGen ' Indicate were the Signature will be inserted: xmlSigGen.SigLocation = "abc|xyz|jpg" ' Provide the RSA key to be used for signing: Dim success As Boolean success = xmlSigGen.SetPrivateKey(rsaKey) ' Fetch the JPG image data. jpgUrl = "https://www.chilkatsoft.com/images/starfish.jpg" Dim jpgData As Chilkat.BinData Set jpgData = Chilkat.NewBinData success = http.QuickGetBd(jpgUrl,jpgData) If (success <> True) Then Debug.Print http.LastErrorText Exit Sub End If ' Add the external data reference: success = xmlSigGen.AddExternalBinaryRef(jpgUrl,jpgData,"sha256","") ' Create the XML digital signature: success = xmlSigGen.CreateXmlDSigSb(sbXml) If (success <> True) Then Debug.Print xmlSigGen.LastErrorText Exit Sub End If ' Examine the XML that now contains the Signature: Debug.Print 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> ' |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.