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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoCert
    Boolean iSuccess
    Handle hoXml
    Variant vPubkey
    Handle hoPubkey
    Handle hoXmlPubKey
    String sTemp1

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

    Get Create (RefClass(cComChilkatCert)) To hoCert
    If (Not(IsComObjectCreated(hoCert))) Begin
        Send CreateComObject of hoCert
    End
    Get ComLoadPfxFile Of hoCert "qa_data/pfx/cert_test123.pfx" "test123" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoCert To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get Create (RefClass(cComChilkatXml)) To hoXml
    If (Not(IsComObjectCreated(hoXml))) Begin
        Send CreateComObject of hoXml
    End
    Set ComTag Of hoXml To "SignaturePubKeyOrderData"
    Get ComAddAttribute Of hoXml "xmlns" "http://www.ebics.org/S001" To iSuccess
    Get ComAddAttribute Of hoXml "xmlns:ds" "http://www.w3.org/2000/09/xmldsig#" To iSuccess
    Get ComAddAttribute Of hoXml "xmlns:xsi" "http://www.w3.org/2001/XMLSchema-instance" To iSuccess
    Get ComAddAttribute Of hoXml "xsi:schemaLocation" "http://www.ebics.org/S002" To iSuccess
    Get ComIssuerDN Of hoCert To sTemp1
    Send ComUpdateChildContent To hoXml "SignaturePubKeyInfo|ds:X509Data|X509IssuerSerial|ds:X509IssuerName" sTemp1
    Get ComSerialNumber Of hoCert To sTemp1
    Send ComUpdateChildContent To hoXml "SignaturePubKeyInfo|ds:X509Data|X509IssuerSerial|ds:X509SerialNumber" sTemp1
    Get ComGetEncoded Of hoCert To sTemp1
    Send ComUpdateChildContent To hoXml "SignaturePubKeyInfo|ds:X509Data|ds:X509Certificate" sTemp1

    Get ComExportPublicKey Of hoCert To vPubkey
    If (IsComObject(vPubkey)) Begin
        Get Create (RefClass(cComChilkatPublicKey)) To hoPubkey
        Set pvComObject Of hoPubkey To vPubkey
    End
    Get Create (RefClass(cComChilkatXml)) To hoXmlPubKey
    If (Not(IsComObjectCreated(hoXmlPubKey))) Begin
        Send CreateComObject of hoXmlPubKey
    End
    Get ComGetXml Of hoPubkey To sTemp1
    Get ComLoadXml Of hoXmlPubKey sTemp1 To iSuccess
    Send Destroy of hoPubkey

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

    Get ComGetChildContent Of hoXmlPubKey "Modulus" To sTemp1
    Send ComUpdateChildContent To hoXml "SignaturePubKeyInfo|PubKeyValue|ds:RSAPublicKey|ds:Modulus" sTemp1
    Get ComGetChildContent Of hoXmlPubKey "Exponent" To sTemp1
    Send ComUpdateChildContent To hoXml "SignaturePubKeyInfo|PubKeyValue|ds:RSAPublicKey|ds:Exponent" sTemp1
    Send ComUpdateChildContent To hoXml "SignaturePubKeyInfo|SignatureVersion" "A005"
    Send ComUpdateChildContent To hoXml "PartnerID" ""
    Send ComUpdateChildContent To hoXml "UserID" ""

    Get ComGetXml Of hoXml To sTemp1
    Showln sTemp1


End_Procedure