AutoIt

Ascii85 Encoding and Decoding

See more Encryption Examples

Demonstrates ascii85 encoding and decoding.

Note: Requires Chilkat v9.5.0.79 or greater.

AutoIt

Local $bSuccess = False

; First demonstrate encoding strings to ascii85 and back.
$oSb = ObjCreate("Chilkat.StringBuilder")

$bSuccess = $oSb.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.")

Local $sEncodedAscii85 = $oSb.GetEncoded("ascii85","utf-8")
ConsoleWrite($sEncodedAscii85 & @CRLF)

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

; Decode back to the original:
$oSb.Clear 
$oSb.Append($sEncodedAscii85)
$bSuccess = $oSb.Decode("ascii85","utf-8")
ConsoleWrite("Original:" & @CRLF)
ConsoleWrite($oSb.GetAsString() & @CRLF)

; ---- Now encode binary data to ascii85 ----
$oBd = ObjCreate("Chilkat.BinData")
$bSuccess = $oBd.LoadFile("qa_data/jpg/starfish20.jpg")
$sEncodedAscii85 = $oBd.GetEncoded("ascii85")
ConsoleWrite($sEncodedAscii85 & @CRLF)

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

; Decode...
$oBd.Clear()
$oBd.AppendEncoded($sEncodedAscii85,"ascii85")
$bSuccess = $oBd.WriteFile("qa_output/starfish20.jpg")