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) Create EBICS SignaturePubKeyOrderData XMLSee more EBICS ExamplesDemonstrates how to create the EBICS SignaturePubKeyOrderData XML. (EBICS is the Electronic Banking Internet Communication Standard)
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' The goal of this example is to create the XML shown below from the certificate to be used for signing. ' <?xml version="1.0" encoding="UTF-8"?> ' <SignaturePubKeyOrderData xmlns="http://www.ebics.org/S001" xmlns:ds="http://www.w3.org/2000/09/xmldsig#" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.ebics.org/S002"> ' <SignaturePubKeyInfo> ' <ds:X509Data> ' <X509IssuerSerial> ' <ds:X509IssuerName>C=FR, O=Example, OU=1234, CN=Example eID User, OrganizationID=SI:FR-1234</ds:X509IssuerName> ' <ds:X509SerialNumber>73FFFFB881F1629982F787DF161EFFFF</ds:X509SerialNumber> ' </X509IssuerSerial> ' <ds:X509Certificate> ' MIIJT...kE= ' </ds:X509Certificate> ' </ds:X509Data> ' <PubKeyValue> ' <ds:RSAPublicKey> ' <ds:Modulus>wedQ...22Kw==</ds:Modulus> ' <ds:Exponent>AQAB</ds:Exponent> ' </ds:RSAPublicKey> ' </PubKeyValue> ' <SignatureVersion>A005</SignatureVersion> ' </SignaturePubKeyInfo> ' <PartnerID/> ' <UserID/> ' </SignaturePubKeyOrderData> set cert = CreateObject("Chilkat_9_5_0.Cert") success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123") If (success = 0) Then outFile.WriteLine(cert.LastErrorText) WScript.Quit End If set xml = CreateObject("Chilkat_9_5_0.Xml") xml.Tag = "SignaturePubKeyOrderData" success = xml.AddAttribute("xmlns","http://www.ebics.org/S001") success = xml.AddAttribute("xmlns:ds","http://www.w3.org/2000/09/xmldsig#") success = xml.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance") success = xml.AddAttribute("xsi:schemaLocation","http://www.ebics.org/S002") xml.UpdateChildContent "SignaturePubKeyInfo|ds:X509Data|X509IssuerSerial|ds:X509IssuerName",cert.IssuerDN xml.UpdateChildContent "SignaturePubKeyInfo|ds:X509Data|X509IssuerSerial|ds:X509SerialNumber",cert.SerialNumber xml.UpdateChildContent "SignaturePubKeyInfo|ds:X509Data|ds:X509Certificate",cert.GetEncoded() ' pubkey is a Chilkat_9_5_0.PublicKey Set pubkey = cert.ExportPublicKey() set xmlPubKey = CreateObject("Chilkat_9_5_0.Xml") success = xmlPubKey.LoadXml(pubkey.GetXml()) ' The public key XML will look like this: ' ' <RSAPublicKey> ' <Modulus>...</Modulus> ' <Exponent>...</Exponent> ' </RSAPublicKey> xml.UpdateChildContent "SignaturePubKeyInfo|PubKeyValue|ds:RSAPublicKey|ds:Modulus",xmlPubKey.GetChildContent("Modulus") xml.UpdateChildContent "SignaturePubKeyInfo|PubKeyValue|ds:RSAPublicKey|ds:Exponent",xmlPubKey.GetChildContent("Exponent") xml.UpdateChildContent "SignaturePubKeyInfo|SignatureVersion","A005" xml.UpdateChildContent "PartnerID","" xml.UpdateChildContent "UserID","" outFile.WriteLine(xml.GetXml()) outFile.Close |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.