(Lianja) Ascii85 Encoding and Decoding

Demonstrates ascii85 encoding and decoding.

Note: Requires Chilkat v9.5.0.79 or greater.

Chilkat Lianja Extension Download Chilkat Lianja Extension

// First demonstrate encoding strings to ascii85 and back.
loSb = createobject("CkStringBuilder")

llSuccess = loSb.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.")

lcEncodedAscii85 = loSb.GetEncoded("ascii85","utf-8")
? lcEncodedAscii85

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

// Decode back to the original:
loSb.Clear()
loSb.Append(lcEncodedAscii85)
llSuccess = loSb.Decode("ascii85","utf-8")
? "Original:"
? loSb.GetAsString()

// ---- Now encode binary data to ascii85 ----
loBd = createobject("CkBinData")
llSuccess = loBd.LoadFile("qa_data/jpg/starfish20.jpg")
lcEncodedAscii85 = loBd.GetEncoded("ascii85")
? lcEncodedAscii85

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

// Decode...
loBd.Clear()
loBd.AppendEncoded(lcEncodedAscii85,"ascii85")
llSuccess = loBd.WriteFile("qa_output/starfish20.jpg")


release loSb
release loBd