- 1、本文档共20页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Blowfish加密算法(Delphi源码)
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: singleBytes);
2: (fByte: Array[0..3] of Byte);
end;{DoublWord}
type PDoublWord = ^DoublWord;
type TBlock = array[0..(BLOCKSIZE - 1)] of Byte;
type PBlock = ^TBlock;
PArray = array[0..17] of Longint;
SArray = array[0..255] of Longint;
type TCipherMode = (ECB, CBC, CFB, OFB);
type TStringMode = (smEncode, smNormal);
type Tblf_Core_ctx = record
P : PArray; //P数组
S1: SArray; //第1个S盒
S2: SArray; //第2个S盒
S3: SArray; //第3个S盒
S4: SArray; //第4个S盒
case Integer of // Encryption/decryption block buffer
0: (ByteBuffer: TBlock);
1: (LongBuffer: array[0..1] of LongInt);
end; {Tblf_ctx}
type Tblf_ctx = record
KeyInit: Boolean; // Shows if the password has been initialised
IVInit: Boolean; // Shows if the IV has been initialised
IV: TBlock; // The Initialisation Vector
ct: TBlock; // temporary buffer used in CBC, CFB and OFB modes
end; {Tblf_ctx}
type TBlowCore = class(TObject)
ctx: Tblf_Core_ctx;
FPtrL: PDoublWord; //指向低32位数据
FPtrR: PDoublWord; //指向高32位数据
public
procedure Blowfish_Core_Block_Encrypt;
procedure Blowfish_Core_Block_Decrypt;
end; {TBLowCore}
type TBlowfish = class(TObject)
private
FBlowCore: TBlowCore;
ctx: T
文档评论(0)