(VBScript) Create EBICS SignaturePubKeyOrderData XML

See more EBICS Examples

Demonstrates how to create the EBICS SignaturePubKeyOrderData XML. (EBICS is the Electronic Banking Internet Communication Standard)

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, 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>

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Cert")
set cert = CreateObject("Chilkat.Cert")
success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123")
If (success = 0) Then
    outFile.WriteLine(cert.LastErrorText)
    WScript.Quit
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xml = CreateObject("Chilkat.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.PublicKey
Set pubkey = cert.ExportPublicKey()
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xmlPubKey = CreateObject("Chilkat.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