Bomb('This file has been renamed from MD5 to IcsMD5. Update your "uses" clause !');

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,md5;
type
  Tpasswd_form = class(TForm)

 *)
{
  support class implementing the MD5 digest algorithm through CryptPak.dll
}
unit MD5;

 *)
{
  support class implementing the MD5 digest algorithm through CryptPak.dll
}
unit MD5;

var
  // due to speed reasons we use the CryptPak API directly
  pCtx : PMD5CTX;
  hash : array[0..MD5_DIGESTSIZE - 1] of WORD8;
  pBuf : PWORD32Buf;

var
  // due to speed reasons we use the CryptPak API directly
  pCtx : PMD5CTX;
  hash : array[0..MD5_DIGESTSIZE - 1] of WORD8;
  pBuf : PWORD32Buf;

}
{
  Implementation of the MD2, MD4 and MD5 Message-Digest Algorithm
  as specified in RFC 1319 (1115), 1320 (1186), 1321
 (See NOTE below for details of what is exactly implemented)

}
{
  Implementation of the MD2, MD4 and MD5 Message-Digest Algorithm
  as specified in RFC 1319 (1115), 1320 (1186), 1321
 (See NOTE below for details of what is exactly implemented)

 $Log:  10183: IdHashMessageDigest.pas
   Rev 1.0    2002.11.12 10:40:22 PM  czhower
  Implementation of the MD2, MD4 and MD5 Message-Digest Algorithm
  as specified in RFC 1319 (1115), 1320 (1186), 1321
 (See NOTE below for details of what is exactly implemented)

  Cleaned up warnings
  Rev 1.2    1/15/2004 2:32:50 AM  JPMugaas
  Attempt to add MD5 coder support for partial streams.  THis is needed for the
  XMD5 command in the FTP Server.
  Rev 1.1    2003-10-12 22:36:40  HHellstr�m

Unit MD5;
{$H+}
(*

unit Umd5;
interface
//---------------------------

// salt helper functions
function gen_des_salt: string;
function gen_md5_salt: string;
// crypt helper functions
function crypt_password(const key: string; const UseMD5: boolean): string;

// salt helper functions
function gen_des_salt: string;
function gen_md5_salt: string;
// crypt helper functions
function crypt_password(const key: string; const UseMD5: boolean): string;

unit Auth;
interface
  function CRAM_MD5_AUTH(const User, Pass, TimeStamp: String): String;
  function PLAIN_AUTH(const User, Pass: String): String;
  function APOP_AUTH(const Pass, TimeStamp: String): String;

    name         : String; // short file name (see NapServerTypes.ExtractMPName)
    filename     : String; // full file name
{$IFNDEF IGNORE_MD5}
    md5          : String; // MD5
{$ENDIF}

Author:       Fran�ois PIETTE. Based on work given by Louis S. Berman from
              BrainTree Ltd, lsb@braintree.com
Description:  MD5 is an implmentation for the MD5 Message-Digest Algorithm
              as described in RFC-1321
EMail:        francois.piette@pophost.eunet.be

Author:       Fran�ois PIETTE. Based on work given by Louis S. Berman from
              BrainTree Ltd, lsb@braintree.com
Description:  MD5 is an implmentation for the MD5 Message-Digest Algorithm
              as described in RFC-1321
EMail:        francois.piette@pophost.eunet.be

{* DCPcrypt v2.0 written by David Barton (crypto@cityinthesky.co.uk) **********}
{******************************************************************************}
{* A binary compatible implementation of MD5 **********************************}
{******************************************************************************}
{* Copyright (c) 1999-2002 David Barton                                       *}

{$define IGNORE_MAIL}
 // ignore e-mail
{$define IGNORE_MD5}
 // ignore MD5
{$define MULTIPLE_INSTANCES}

    This file is part of the Free Pascal packages.
    Copyright (c) 1999-2000 by the Free Pascal development team
    Tests the MD5 program.
    See the file COPYING.FPC, included in this distribution,
    for details about the copyright.

    This file is part of the Free Pascal packages.
    Copyright (c) 1999-2000 by the Free Pascal development team
    Tests the MD5 program.
    See the file COPYING.FPC, included in this distribution,
    for details about the copyright.

    This file is part of the Free Pascal packages.
    Copyright (c) 1999-2000 by the Free Pascal development team
    Tests the MD5 program.
    See the file COPYING.FPC, included in this distribution,
    for details about the copyright.

// -----------------------------------------------------------------------------------------------
//
//                                 MD5 Message-Digest for Delphi 4
//
//                                 Delphi 4 Unit implementing the

implementation
{$R *.DFM}
uses u_CreateList, u_DoMD5s, u_About;
constructor TMain.Create(AOwner: TComponent);
var