(Visual FoxPro) 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

LOCAL loCert
LOCAL lnSuccess
LOCAL loXml
LOCAL loPubkey
LOCAL loXmlPubKey

* 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')
loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "SignaturePubKeyOrderData"
loXml.AddAttribute("xmlns","http://www.ebics.org/S001")
loXml.AddAttribute("xmlns:ds","http://www.w3.org/2000/09/xmldsig#")
loXml.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")
loXml.AddAttribute("xsi:schemaLocation","http://www.ebics.org/S002")
loXml.UpdateChildContent("SignaturePubKeyInfo|ds:X509Data|X509IssuerSerial|ds:X509IssuerName",loCert.IssuerDN)
loXml.UpdateChildContent("SignaturePubKeyInfo|ds:X509Data|X509IssuerSerial|ds:X509SerialNumber",loCert.SerialNumber)
loXml.UpdateChildContent("SignaturePubKeyInfo|ds:X509Data|ds:X509Certificate",loCert.GetEncoded())

loPubkey = loCert.ExportPublicKey()
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXmlPubKey = CreateObject('Chilkat.Xml')
loXmlPubKey.LoadXml(loPubkey.GetXml())
RELEASE loPubkey

* The public key XML will look like this:
* 
* <RSAPublicKey>
*   <Modulus>...</Modulus>
*   <Exponent>...</Exponent>
* </RSAPublicKey>

loXml.UpdateChildContent("SignaturePubKeyInfo|PubKeyValue|ds:RSAPublicKey|ds:Modulus",loXmlPubKey.GetChildContent("Modulus"))
loXml.UpdateChildContent("SignaturePubKeyInfo|PubKeyValue|ds:RSAPublicKey|ds:Exponent",loXmlPubKey.GetChildContent("Exponent"))
loXml.UpdateChildContent("SignaturePubKeyInfo|SignatureVersion","A005")
loXml.UpdateChildContent("PartnerID","")
loXml.UpdateChildContent("UserID","")

? loXml.GetXml()

RELEASE loCert
RELEASE loXml
RELEASE loXmlPubKey