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

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loCert
LOCAL loXml
LOCAL loPubkey
LOCAL loXmlPubKey

lnSuccess = 0

* 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>

loCert = CreateObject('Chilkat.Cert')
lnSuccess = loCert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123")
IF (lnSuccess = 0) THEN
    ? loCert.LastErrorText
    RELEASE loCert
    CANCEL
ENDIF

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 = CreateObject('Chilkat.PublicKey')
loCert.GetPublicKey(loPubkey)

loXmlPubKey = CreateObject('Chilkat.Xml')
loXmlPubKey.LoadXml(loPubkey.GetXml())

* 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 loPubkey
RELEASE loXmlPubKey