home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / PROPCK31.ZIP / CRC32.PAS < prev    next >
Pascal/Delphi Source File  |  1990-04-22  |  936b  |  48 lines
  1.  
  2. (*
  3.  * Copyright 1987, 1989 Samuel H. Smith;  All rights reserved
  4.  *
  5.  * This is a component of the ProDoor System.
  6.  * Do not distribute modified versions without my permission.
  7.  * Do not remove or alter this notice or any other copyright notice.
  8.  * If you use this in your own program you must distribute source code.
  9.  * Do not use any of this in a commercial product.
  10.  *
  11.  *)
  12.  
  13. (*
  14.  * crc32 - Quick 32-bit crc calculation unit
  15.  *
  16.  * Written by Samuel Smith, 20-Mar-89
  17.  *
  18.  *)
  19.  
  20. {$S-,R-}
  21. {$D+,L+}
  22.  
  23. unit CRC32;
  24.  
  25. interface
  26.  
  27.    var
  28.       crc_out: longint;
  29.  
  30.    const
  31.       crc_seed = $ffffffff;
  32.  
  33.    procedure crcstr(var src;
  34.                     var crcout: longint;
  35.                     len: integer);
  36.       {calculate crc-32 of a buffer}
  37.  
  38.  
  39. implementation
  40.  
  41.    {$L crc32.obj}
  42.  
  43.    procedure crcstr(var src;
  44.                     var crcout: longint;
  45.                     len: integer);
  46.    external;
  47. end.
  48.