B4X

UU Encoding and Decoding

See more Encryption Examples

Demonstrates how to UU encode and decode. B4X

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

Dim crypt As ChilkatCrypt2
crypt.Initialize("crypt")

Dim s1 As String
Dim s2 As String
Dim s3 As String

s1 = "This string is to be UU encoded"

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

'  UU encode:
s2 = crypt.EncodeString(s1, "ansi", "uu")

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

Log(s2)

'  UU decode:
Dim crypt2 As ChilkatCrypt2
crypt2.Initialize("crypt2")
s3 = crypt2.DecodeString(s2, "ansi", "uu")

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

Log(s3)

'  Show the file permissions mode and filename found
'  in the UU encoded data:
Log("UuMode = " & crypt2.UuMode)
Log("UuFilename = " & crypt2.UuFilename)