Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3/4 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(VBScript) UU Encoding and DecodingDemonstrates how to UU encode and decode.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) set crypt = CreateObject("Chilkat_9_5_0.Crypt2") ' Any string argument automatically begins the 30-day trial. success = crypt.UnlockComponent("30-day trial") If (success <> 1) Then outFile.WriteLine(crypt.LastErrorText) WScript.Quit End If 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). outFile.WriteLine(s2) ' UU decode: set crypt2 = CreateObject("Chilkat_9_5_0.Crypt2") s3 = crypt2.DecodeString(s2,"ansi","uu") ' Note: Likewise, call crypt.Decode to decode non-text binary data. outFile.WriteLine(s3) ' Show the file permissions mode and filename found ' in the UU encoded data: outFile.WriteLine("UuMode = " & crypt2.UuMode) outFile.WriteLine("UuFilename = " & crypt2.UuFilename) outFile.Close |
© 2000-2016 Chilkat Software, Inc. All Rights Reserved.