Unit Crypt32

Classes

Functions

Decrypt - ***************************************************** * Standard Decryption algorithm - Copied from Borland *
Encrypt - Add default key

***************************************************** * Standard Encryption algorithm - Copied from Borland *

Types

Constants

AddKey
MultKey
StartKey

Variables


Functions


function Decrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;

***************************************************** * Standard Decryption algorithm - Copied from Borland *

function Encrypt(const InString:string; StartKey,MultKey,AddKey:Integer): string;

Add default key

***************************************************** * Standard Encryption algorithm - Copied from Borland *


Types


Constants

AddKey = 35891

Mult default key

MultKey = 12674

Start default key

StartKey = 981

************************************************************************* * Name: Crypt32.Pas * * Description: 32 bits encode/decode module * * 2^96 variants it is very high to try hack * * Purpose: Good for encrypting passwors and text * * Security: avoid use StartKey less than 256 * * if it use only for internal use you may use default * * key, but MODIFY unit before compiling * * Call: Encrypted := Encrypt(InString,StartKey,MultKey,AddKey) * * Decrypted := Decrypt(InString,StartKey) * * Parameters: InString = long string (max 2 GB) that need to encrypt * * decrypt * * MultKey = MultKey key * * AddKey = Second key * * StartKey = Third key * * (posible use defaults from interface) * * Return: OutString = result string * * Editor: Besr viewed with Tab stops = 2, Courier new * * Started: 01.08.1996 * * Revision: 22.05.1997 - ver.2.01 converted from Delphi 1 * * and made all keys as parameters, before only start key * * Platform: Delphi 2.0, 3.0 * * work in Delphi 1.0, 2^48 variants, 0..255 strings * * Author: Anatoly Podgoretsky * * Base alghoritm from Borland * * Address: Vahe 4-31, Johvi, Estonia, EE2045, tel. 61-142 * * kvk@estpak.ee * * Status: Freeware, but any sponsor help will be appreciated here * * need to buy books, shareware products, tools etc * ************************************************************************* * Modified: Supports Delphi 1.0 & 2.0 * * Overflow checking removed * * By: Martin Djernæs * * e-mail: djernaes@einstein.ot.dk * * web: einstein.ot.dk/~djernaes * *************************************************************************

Variables