unit TstAlgorithms;
interface
uses

  kPGPFeatureMask_HasTimeout          = $2;
type
  TPGPAlgorithmInfo = record
    ShortName    : array[0..31] of char;
    LongName     : array[0..95] of char;

  TfmEncrypt = class(TForm)
    gbSecurity: TGroupBox;
    lblAlgorithm: TLabel;
    cbAlgorithm: TComboBox;
    gbWarning: TGroupBox;

      Label6: TLabel;
    l_hash: TLabel;
    l_algorithm: TLabel;
    Label9: TLabel;
      l_chaining: TLabel;

{******************************************************************************}
{** Base classes for block cipher and hash algorithm implementations **********}
{******************************************************************************}
{** Written by David Barton (davebarton@bigfoot.com) **************************}

    dwValue: DWORD;      
    dwOver: DWORD;      
    lpstrAlgorithm: PChar;      
    lpstrQuality: PChar;      
  end;

  IdHeaderList;
Type
  EIdInvalidAlgorithm = class(EIdException);
  TIdDigestAuthentication = class(TIDAuthentication)
  protected

  IdHeaderList;
Type
  EIdInvalidAlgorithm = class(EIdException);
  TIdDigestAuthentication = class(TIDAuthentication)
  protected

  IdHeaderList;
Type
  EIdInvalidAlgorithm = class(EIdException);
  TIdDigestAuthentication = class(TIDAuthentication)
  protected

unit rnqftbresenham;
(******************************************************************************
Delphi implementation of Bresenham's Line/Circle/Ellipse algorithm.
Author: Finn Tolderlund
        Denmark

    TabSheet4: TTabSheet;
      rg_chainingmode: TRadioGroup;
      rg_algorithm: TRadioGroup;
    rg_hash: TRadioGroup;
    cb_allowchanges: TCheckBox;

  Tdwordarray= array[0..8191] of dword;
{******************************************************************************}
    { The base class from which all hash algorithms are to be derived  }
type
  EDCP_hash= class(Exception);

  PLPWSTR = ^LPWSTR;
  LPCTSTR = PChar; {should be PWideChar if UNICODE}
{Algorithm IDs and Flags}
{ALG_ID crackers}
{GET_ALG_CLASS}

  Dialogs, SysUtils, Twofish, Rijndael, RC2, Misty1, IDEA, Gost, Cast128, Blowfish, SHA1, GX_ShellCommon;
type TSHA_HashDigest = string[40];
//The following are hashes identifying the various algorithms. These are used
//when decrypting a file to identify the algorithm used
const TGXEDecEncAlgHashes: array[TGXEDecEncAlg] of TSHA_HashDigest =

begin
  (* ??? *)
  (* the algorithm for DAS is fashioned after the pseudo code in the
   * Pentium Processor Family Developer's Manual, volume 3.  It seems
   * to have changed from earlier processor's manuals.  I'm not sure

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

implementations in a commercial application, contact me before
doing so, that way you can license the software to use it in commercial
Software.  If any algorithm is patented in your country, you should
acquire a license before using this software.  Modified versions of this
software must contain an acknowledgement of the original author (=me).

implementations in a commercial application, contact me before
doing so, that way you can license the software to use it in commercial
Software.  If any algorithm is patented in your country, you should
acquire a license before using this software.  Modified versions of this
software must contain an acknowledgement of the original author (=me).

  IdObjs;
type
  EIdInvalidAlgorithm = class(EIdException);
  TIdDigestAuthentication = class(TIdAuthentication)
  protected

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

//----------------------------------------------------------------------------
//
// Algorithm IDs and Flags
//
// ALG_ID crackers

//----------------------------------------------------------------------------
//
// Algorithm IDs and Flags
//
// ALG_ID crackers

{Symmetric Ciphers}
type
  PGPCipherAlgorithm = PGPEnumType;
const
  kPGPCipherAlgorithm_None    = 0;

Changes:
Version 1.1
Changed the field extracting algorithm. In version 1.0 it worked exactly the
same way as in Microsoft Visual FoxPro. But seeing that the way Microsoft's
product does it is buggy (as usual), I changed the algorithm.

end;
{******************************************************************************}
{polygonalization method from Douglas-Peucker polyline simplification algorithm}
{adaptation of the implementation of "http://www.simdesign.nl/Components/DouglasPeucker.html"
 here their licence :