Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) Examine KeyInfo Certificate in XML SignatureThis example loads signed XML and gets the signing certificate, assuming the certificate is contained in X509Certificate within the KeyInfo.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. set dsig = CreateObject("Chilkat_9_5_0.XmlDSig") set sbXml = CreateObject("Chilkat_9_5_0.StringBuilder") success = sbXml.LoadFile("c:/aaworkarea/elias/3/face_f09006808443a699d1b.xml","utf-8") If (success <> 1) Then outFile.WriteLine("Failed to load XML file.") WScript.Quit End If success = dsig.LoadSignatureSb(sbXml) If (success <> 1) Then outFile.WriteLine(dsig.LastErrorText) WScript.Quit End If ' Get the KeyInfo XML. ' xmlKeyInfo is a Chilkat_9_5_0.Xml Set xmlKeyInfo = dsig.GetKeyInfo() If (dsig.LastMethodSuccess <> 1) Then outFile.WriteLine(dsig.LastErrorText) WScript.Quit End If outFile.WriteLine(xmlKeyInfo.GetXml()) outFile.WriteLine("----") ' Assuming the X509Certificate is in the KeyInfo, it will look like this: ' <ds:KeyInfo Id="..."> ' <ds:KeyValue> ' ... ' <ds:X509Data> ' <ds:X509Certificate>MIIHAz...</ds:X509Certificate> ' </ds:X509Data> ' </ds:KeyInfo> certBase64 = xmlKeyInfo.GetChildContent("*:X509Data|*:X509Certificate") If (xmlKeyInfo.LastMethodSuccess <> 1) Then outFile.WriteLine("No X509Certificate found in the KeyInfo.") WScript.Quit End If ' Load a certificate object w/ the base64. set cert = CreateObject("Chilkat_9_5_0.Cert") success = cert.LoadFromBase64(certBase64) If (success <> 1) Then outFile.WriteLine(cert.LastErrorText) WScript.Quit End If ' Examine the cert.. outFile.WriteLine("SubjectDN: " & cert.SubjectDN) outFile.WriteLine("IssuerDN: " & cert.IssuerDN) outFile.WriteLine("SerialNumber as Decimal: " & cert.SerialDecimal) outFile.Close |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.