Creating a checksum for a record

Level Extreme platform

Subscription

Corporate profile

Products & Services

Support

Legal

Français

Creating a checksum for a record

Message

From

10/03/2000 11:52:46

Michael Dougherty
Progressive Business Publications
Malvern, Pennsylvania, United States

10/03/2000 11:32:25

Bryan Jackson
Oklahoma City, Oklahoma, United States

General information

Forum:

Visual FoxPro

Category:

Coding, syntax & commands

Title:

Re: Creating a checksum for a record

Miscellaneous

Thread ID:

00344258

Message ID:

00344272

Views:

checksum = 0
For cpos = 1 to len(stringvalue)
    checksum = checsum + ASC(substr(stringvalue,cpos,1))
Next
Replace table.field with stringvalue, table.fieldCRC with checksum

this routine follows the KISS principle...

Map

View

Click here to load this message in the networking platform