(Classic ASP) Ascii85 Encoding and Decoding

Demonstrates ascii85 encoding and decoding.

Note: Requires Chilkat v9.5.0.79 or greater.

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>
<%
' First demonstrate encoding strings to ascii85 and back.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sb = Server.CreateObject("Chilkat.StringBuilder")

success = sb.Append("Man is distinguished, not only by his reason, but by this singular passion from other animals, which is a lust of the mind, that by a perseverance of delight in the continued and indefatigable generation of knowledge, exceeds the short vehemence of any carnal pleasure.")

encodedAscii85 = sb.GetEncoded("ascii85","utf-8")
Response.Write "<pre>" & Server.HTMLEncode( encodedAscii85) & "</pre>"

' Result is: 9jqo^BlbD-BleB1DJ+*+F(f,q/0JhKF<GL>Cj@.4 ... DII?(E,9)oF*2M7/c

' Decode back to the original:
sb.Clear 
success = sb.Append(encodedAscii85)
success = sb.Decode("ascii85","utf-8")
Response.Write "<pre>" & Server.HTMLEncode( "Original:") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( sb.GetAsString()) & "</pre>"

' ---- Now encode binary data to ascii85 ----
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bd = Server.CreateObject("Chilkat.BinData")
success = bd.LoadFile("qa_data/jpg/starfish20.jpg")
encodedAscii85 = bd.GetEncoded("ascii85")
Response.Write "<pre>" & Server.HTMLEncode( encodedAscii85) & "</pre>"

' Result is:  s4IA0!"_al8O`[\!<E0k!([(is8E!F7VQ[M+Eqj?FED)3+C]U=6"Fn ...

' Decode...
success = bd.Clear()
success = bd.AppendEncoded(encodedAscii85,"ascii85")
success = bd.WriteFile("qa_output/starfish20.jpg")

%>
</body>
</html>