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

Use ChilkatAx-win32.pkg

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

    Move False To iSuccess

    // 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 Create (RefClass(cComChilkatPublicKey)) To hoPubkey
    If (Not(IsComObjectCreated(hoPubkey))) Begin
        Send CreateComObject of hoPubkey
    End
    Get pvComObject of hoPubkey to vPubkey
    Get ComGetPublicKey Of hoCert vPubkey To iSuccess

    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

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