UU Encoding and Decoding

Demonstrates how to UU encode and decode.

Download Chilkat Crypt ActiveX

LOCAL loCrypt
LOCAL lnSuccess
LOCAL lcS1
LOCAL lcS2
LOCAL lcS3
LOCAL loCrypt2

loCrypt = CreateObject('Chilkat.Crypt2')

*  Any string argument automatically begins the 30-day trial.

lnSuccess = loCrypt.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loCrypt.LastErrorText)
    QUIT
ENDIF

lcS1 = "This string is to be UU encoded"

loCrypt.UuMode = "666"
loCrypt.UuFilename = "something.txt"

*  UU encode:
lcS2 = loCrypt.EncodeString(lcS1,"ansi","uu")

*  Note: Call crypt.Encode instead of crypt.EncodeString
*  to UU encode binary bytes (i.e. non-text binary data).

? lcS2

*  UU decode:
loCrypt2 = CreateObject('Chilkat.Crypt2')
lcS3 = loCrypt2.DecodeString(lcS2,"ansi","uu")

*  Note: Likewise, call crypt.Decode to decode non-text binary data.

? lcS3

*  Show the file permissions mode and filename found
*  in the UU encoded data:
? "UuMode = " + loCrypt2.UuMode
? "UuFilename = " + loCrypt2.UuFilename