Blowfish加密算法(Delphi源码).docVIP

Blowfish加密算法源码 {$define UNLIMITED} // WASSENAAR_LIMITED, UNLIMITED unit Blowfish; interface uses Classes, SysUtils; const {general constants} BLOCKSIZE = 8; // Blowfish has an 8 byte block BUFFERSIZE = 4096; // the buffer for file encryption type SingleBytes = Record byte3: Byte; {LSB} byte2: BYTE; byte1: BYTE; byte0: BYTE; {MSB} end;{SingleBytes} type EKeyError = class(Exception); type EFileError = class(Exception); type EInputError = class(Exception); type DoublWord = record case Integer Of 0: (LWord: Longint); 1: (w: sin