VBScript

Example: Crypt2.EncodeString method

Demonstrates how to call the EncodeString method. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

set crypt = CreateObject("Chilkat.Crypt2")

s = "Hello World"

outFile.WriteLine(crypt.EncodeString(s,"utf-8","hex"))
' Output: 48656C6C6F20576F726C64

outFile.WriteLine(crypt.EncodeString(s,"utf-16","hex"))
' Output: 480065006C006C006F00200057006F0072006C006400

outFile.WriteLine(crypt.EncodeString(s,"utf-8","base64"))
' Output: SGVsbG8gV29ybGQ=

s = "électricité"

outFile.WriteLine(crypt.EncodeString(s,"utf-8","hex"))
' Output: C3A96C6563747269636974C3A9

outFile.WriteLine(crypt.EncodeString(s,"windows-1252","hex"))
' Output: E96C6563747269636974E9

outFile.WriteLine(crypt.EncodeString(s,"windows-1252","hex_lower"))
' Output: e96c6563747269636974e9

outFile.WriteLine(crypt.EncodeString(s,"utf-8","url"))
' Output: %C3%A9lectricit%C3%A9

outFile.Close