VBScript

Example: Crypt2.CrcBd method

Demonstrates how to call the CrcBd 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")

set bd = CreateObject("Chilkat.BinData")
success = bd.AppendString("123456789","us-ascii")

crc32 = crypt.CrcBd("crc-32",bd)
' The decimal value is 3421780262 (converted to hex is 0xCBF43926)
outFile.WriteLine(crc32)

crc8 = crypt.CrcBd("crc8",bd)
outFile.WriteLine(crc8)

outFile.Close