*)
{
  CRC32 support class
}
unit CRC32;

 *)
{
  CRC32 support class
}
unit CRC32;

     LANFile,
     Panels,
     SBuffer, SClip, SCRC32, SProg,
     TKSFX,
     UIApp, UIMenu;

  FileName: String;
  FilePointer: TextFile;
  CRC32: DWORD;
end;
var

> which would do what I need.  (Produce 32 bit CRC's that are compatible
> With PKZIP's output).
  I snagged this of this echo sometime ago.  It does CRC32
 using only TP With the help of a precalculated table.
 It does procduce CRC32 values that are the same as PKZIP and ARJ.

unit crc;
{
  crc32.c -- compute the CRC-32 of a data stream
  Copyright (C) 1995-1998 Mark Adler
  Pascal tranlastion

Unit zlib_gzCrc;
{
  crc32.c -- compute the CRC-32 of a data stream
  Copyright (C) 1995-1998 Mark Adler
  Pascal tranlastion

Unit zlib_gzCrc;
{
  crc32.c -- compute the CRC-32 of a data stream
  Copyright (C) 1995-1998 Mark Adler
  Pascal tranlastion

unit crc;
{
  crc32.c -- compute the CRC-32 of a data stream
  Copyright (C) 1995-1998 Mark Adler
  Pascal tranlastion

unit crc;
{
  crc32.c -- compute the CRC-32 of a data stream
  Copyright (C) 1995-1998 Mark Adler
  Pascal tranlastion

Unit Crc;
{
  crc32.c -- compute the CRC-32 of a data stream
  Copyright (C) 1995-1998 Mark Adler
  Pascal tranlastion

Unit Crc;
{
  crc32.c -- compute the CRC-32 of a data stream
  Copyright (C) 1995-1998 Mark Adler
  Pascal tranlastion

{$i fpcdefs.inc}
Interface
Function Crc32(Const HStr:String):cardinal;
Function UpdateCrc32(InitCrc:cardinal;const InBuf;InLen:integer):cardinal;
Function UpdCrc32(InitCrc:cardinal;b:byte):cardinal;

    FileName: String;
    FriendlyName: String;
    CRC32: LongWord;  //the longword/integer sign is going to give problems again...
    Size: Integer;
    //not sure about this one yet...

    FileName: String;
    FriendlyName: String;
    CRC32: LongWord;  //the longword/integer sign is going to give problems again...
    Size: Integer;
    //not sure about this one yet...

unit CRC32;
///////////////////////////////////////////////////////////////////////////////
//         Unit: USGCRC32

    ProgramVersion = '2.22�';
  VAR
    MakeCRC32,               (* TRUE, wenn 32-Bit-CRC benutzt werden darf  *)
    RecoverAllow : BOOLEAN;  (* TRUE, wenn das File-Recover zugelassen ist *)
(* Empfangen eines File mit dem ZMODEM-Protokoll *)

uses Windows, Classes,
     SysUtils, ShellAPI,
     ComObj, ActiveX, crc32;
const
  _GUID_STRING_LENGTH = 38; // ['{4C66917C-9C6E-4A14-87A4-756B3959C5C8}']

{$mode Delphi}
unit crc32;
interface
Type

    lastmodtime:       word;          {last mod file time              2 bytes}
    lastmoddate:       word;          {last mod file date              2 bytes}
    crc32:             longword;      {crc-32                          4 bytes}
    compressedsize:    longword;      {compressed size                 4 bytes}
    uncompressedsize:  longword;      {uncompressed size               4 bytes}

}
{
  crc32.c -- compute the CRC-32 of a data stream
  Copyright (C) 1995-1998 Mark Adler
  Pascal tranlastion

        FMD5value : MD5Digest;
        FTotalBytes : Int64;
        calc_md5, calc_crc32, calc_crcSV: Boolean;
        file_name : WideString;
    public

  ==============
  (c) 2002-2003 Van de Sande Productions
  This unit can calculate the standard ZIP CRC32 for a filestream.
  What's new
  ----------

  ==============
  (c) 2002-2003 Van de Sande Productions
  This unit can calculate the standard ZIP CRC32 for a filestream.
  What's new
  ----------

    function  Get_Action: TArchiveAction; safecall;
    function  Get_CompressedSize: Integer; safecall;
    function  Get_CRC32: Integer; safecall;
    function  Get_CRC32St: WideString; safecall;
    function  Get_DiskFileName: WideString; safecall;