(Classic ASP) Compress EBICS SignaturePubKeyOrderData XML

This example provides a note about how to compress the SignaturePubKeyOrderData XML for EBICS.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' We have this XML to be compressed and then encoded in Base64.

' <?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/S001 http://www.ebics.org/S001/ebics_signature.xsd">
' <SignaturePubKeyInfo>
' <ds:X509Data>
' <ds:X509IssuerSerial>
' <ds:X509IssuerName>ABCDEF eID User</ds:X509IssuerName>
' <ds:X509SerialNumber>153594950300874710199347185895388116050</ds:X509SerialNumber>
' </ds:X509IssuerSerial>
' <ds:X509Certificate>MIIJTzCC...xzKyukE=</ds:X509Certificate>
' </ds:X509Data>
' <PubKeyValue>
' <ds:RSAKeyValue><ds:Modulus>zedQEG0gNItQRG17p7CwiSv/N9YUBOzswEnfNSiNirQgb0bfWWAvCXOg7057WTCBMxOe7AHE7rLTTQFRHY2AEqSV1fj8iL7i186XnGQOFjsdVP3LBLV319HhoUIugaZOC5AbnDouq2Femr53NDK4fqYVI6skrvNo9LO4+8IBRNtR8lQudG+ABHCqIkrNjai1pXrjfEhvyAhz0URhqP00i3AUGD3BasM28uFhcNztqSfO/jp5xQOTAjSr2gCgwg9hJV5mVnOazwAEbWmKkW+NZGICrSdoyrJ+UKjbbhL6VI1woe2YufCYqYF0ec8bXdE9KlhHj+XjeaME3k/uBq22Kw==</ds:Modulus><ds:Exponent>AQAB</ds:Exponent></ds:RSAKeyValue>
' <TimeStamp>2015-03-06T18:42:24.376+01:00</TimeStamp>
' </PubKeyValue>
' <SignatureVersion>A005</SignatureVersion>
' </SignaturePubKeyInfo>
' <PartnerID>XKB99999</PartnerID>
' <UserID>XKB99999</UserID>
' </SignaturePubKeyOrderData>  

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.FileAccess")
set fac = Server.CreateObject("Chilkat.FileAccess")
strXml = fac.ReadEntireTextFile("qa_data/ebics/SignaturePubKeyOrderData.xml","utf-8")
' Assuming the above statement succeeded...

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Compression")
set compress = Server.CreateObject("Chilkat.Compression")

' EBICS wants the deflate algorithm with the zlib header...
compress.Algorithm = "zlib"
compress.EncodingMode = "base64"

b64CompressedStr = compress.CompressStringENC(strXml)

Response.Write "<pre>" & Server.HTMLEncode( b64CompressedStr) & "</pre>"

%>
</body>
</html>