(Visual FoxPro) UU Encoding and Decoding

Demonstrates how to UU encode and decode.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loCrypt
LOCAL lcS1
LOCAL lcS2
LOCAL lcS3
LOCAL loCrypt2

* This example assumes the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')

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:
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
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

RELEASE loCrypt
RELEASE loCrypt2