Visual FoxPro

Example: Crypt2.CrcBd method

Demonstrates how to call the CrcBd method. Visual FoxPro

LOCAL loCrypt
LOCAL loBd
LOCAL lnCrc32
LOCAL lnCrc8

loCrypt = CreateObject('Chilkat.Crypt2')

loBd = CreateObject('Chilkat.BinData')
loBd.AppendString("123456789","us-ascii")

lnCrc32 = loCrypt.CrcBd("crc-32",loBd)
* The decimal value is 3421780262 (converted to hex is 0xCBF43926)
? STR(lnCrc32)

lnCrc8 = loCrypt.CrcBd("crc8",loBd)
? STR(lnCrc8)

RELEASE loCrypt
RELEASE loBd