CRC.PAS ( File view )

  • By 2010-07-21
  • View(s):3
  • Download(s):0
  • Point(s): 1

CRC calculates a cyclic redundancy code (CRC), known as CRC-16, using
  a byte-wise algorithm.

  (C) Copyright 1989, Earl F. Glynn, Overland Park, KS.  Compuserve 73257,3527.
  All Rights Reserved.  This Turbo Pascal 5.5 UNIT may be freely distributed
  for non-commercial use.

  This UNIT was derived from the CRCT FORTRAN 77 program given in
  "Byte-wise CRC Calculations" by Aram Perez in IEEE Micro, June 1983,
  pp. 40-50.  The constants here are for the CRC-16 generator polynomial,
  X^16 + X^15 + X^2 + 1.  While the constants are specific to the
  CRC-16 polynomial, the algorithm is general and will calculate the
  CRC for whatever set of constants is present.

  This CRC algorithm emphasizes speed at the expense of the 512-byte
  lookup table.


  PROCEDURE CalcCRC (p:  pointer; nbyte:  WORD; VAR CRCvalue:  WORD);
  PROCEDURE CalcFileCRC (FromName:  STRING; VAR CRCvalue:  WORD;
              VAR IOBuffer:  pointer;  BufferSize:  WORD; VAR error:  WORD);


    table:  ARRAY[0..255] OF WORD =

    buffer = ARRAY[1..65521] OF BYTE;  
(Please download the complete source code to view)
Expand> <Close

Want complete source code? Download it here

Point(s): 1

0 lines left, continue to read
Sponsored links

File list

Tips: You can preview the content of files by clicking file names^_^
Name Size Date
CRC.PAS4.20 kB07-04-89|13:16
DOSSTRUC.PAS9.68 kB09-22-91|12:22
REXX.PAS14.29 kB02-16-92|10:38
SNAPSHOT.BAT197.00 B04-24-94|23:41
SYSMAP.EXE44.81 kB04-24-94|23:31
SYSMAP.PAS50.02 kB04-24-94|23:31
Sponsored links

CRC.PAS (44.40 kB)

Need 1 point
Your Point(s)

Your Point isn't enough.

Get point immediately by PayPal

More(Debit card / Credit card / PayPal Credit / Online Banking)

Submit your source codes. Get more point


Don't have an account? Register now
Need any help?
Mail to:


CodeForge Chinese Version
CodeForge English Version

Where are you going?

^_^"Oops ...

Sorry!This guy is mysterious, its blog hasn't been opened, try another, please!

Warm tip!

CodeForge to FavoriteFavorite by Ctrl+D