简介：DCPcrypt2 是一套面向 Delphi 开发者的开源加密算法控件集合，适合需要在 Pascal 项目中集成对称加密、哈希摘要等密码学功能的工程师与学习者使用。它把多种经典算法封装为可复用的组件，省去从零实现底层密码逻辑的成本，常用于数据加解密、文件校验与安全通信等场景。压缩包共 178 个文件，约 652KB，以 pas 源码、ppu 编译单元、o 目标文件与 bak 备份为主，另含 inc 包含文件、dpk 安装包、res/dcr 资源、html 文档及少量 cpp、txt 说明，结构完整，便于直接编译与二次开发。资源已积累 222 人学习下载，具备一定参考基础。包内覆盖 SHA-512、SHA-256、RIPEMD-160/128、MARS、Serpent、Twofish、CAST-128 等多种算法实现，并配有块密码基类与组件定义，读者可据此研究算法调用方式、对比不同加密方案的实现差异，或将其裁剪嵌入自有工程，快速搭建可用的加密模块。

1. 加密算法控件dcpcrypt2：Delphi老项目里绕不开的那块拼图

接手过一个维护了七八年的Delphi老系统，数据库连接串、配置文件、License校验全用明文存着，甲方安全审计直接亮了红灯。当时第一反应是找现成的加密库，翻了一圈发现Delphi生态里能同时覆盖AES、RSA、SHA、MD5、Blowfish、Twofish这一长串算法的，DCPcrypt2几乎是唯一不用折腾编译选项的选择。它是一套纯Pascal实现的加密算法控件包，不依赖外部DLL，直接以单元文件形式挂进项目就能用。适合谁？维护遗留Delphi项目、需要快速给老代码补上加密能力的开发者，尤其是那些不想引入重量级第三方库、又不想自己手写AES轮函数的场景。关键词crypt和delphi放在一起搜，DCPcrypt2出现的频率高得离谱，不是没道理的。

2. 架构拆解：算法单元怎么组织，初始化向量和密钥怎么管

2.1 单元文件的分层结构

DCPcrypt2的源码组织方式很直白，核心目录下按算法类别拆成独立单元。对称加密的基类在DCPcrypt2.pas里定义，所有具体算法继承自TDCP_cipher这个抽象类。哈希算法走另一条继承线，基类是TDCP_hash。这种设计的好处是，你换算法的时候，调用层的代码几乎不用动，只需要改实例化的类名。

常见的文件分布大概是这样的：

每个算法单元里，类名基本遵循TDCP_算法名的命名规则。比如AES就是TDCP_rijndael，SHA-256就是TDCP_sha256。这种一致性对二次开发很友好，你不需要记每个算法的特殊API。

2.2 初始化向量和密钥的传递方式

对称加密绕不开IV和Key。DCPcrypt2的做法是把它们作为Init方法的参数传进去，而不是在构造函数里设置。看一段典型的AES-CBC加密代码：

uses DCPcrypt2, DCPrijndael, DCPsha256; procedure TForm1.EncryptAES(const PlainText: string; var CipherText: string); var Cipher: TDCP_rijndael; Key: array[0..31] of Byte; // 256-bit key IV: array[0..15] of Byte; // 128-bit IV Data: TBytes; begin // 用SHA-256从口令派生密钥，实际项目里建议用PBKDF2 with TDCP_sha256.Create(nil) do try Init; UpdateStr('my-secret-passphrase'); Final(Key); finally Free; end; // IV通常随机生成，这里为了演示固定 FillChar(IV, SizeOf(IV), 0); Cipher := TDCP_rijndael.Create(nil); try Cipher.Init(Key, SizeOf(Key) * 8, @IV); // 密钥长度以bit为单位 Data := BytesOf(PlainText); Cipher.EncryptCBC(Data[0], Data[0], Length(Data)); CipherText := StringOf(Data); finally Cipher.Free; end; end;

这里有几个参数需要说清楚。Init的第二个参数是密钥长度，单位是bit，不是byte。AES-256就传256，AES-128就传128。第三个参数是IV的指针，CBC模式下必须提供，ECB模式下可以传nil。EncryptCBC的前两个参数分别是输入和输出缓冲区，可以指向同一块内存做原地加密。

注意：IV在CBC模式下不需要保密，但必须每次加密都不同。固定IV等于把CBC降级成了弱化的ECB，这是很多老项目翻车的地方。

2.3 哈希算法的调用差异

哈希算法的接口和对称加密不太一样，它用的是流式API。你可以分多次Update，最后Final拿到摘要。这种设计对大文件哈希很实用，不用一次性把整个文件读进内存。

function CalcSHA256(const FileName: string): string; var Hash: TDCP_sha256; Stream: TFileStream; Digest: array[0..31] of Byte; I: Integer; begin Hash := TDCP_sha256.Create(nil); Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite); try Hash.Init; Hash.UpdateStream(Stream, Stream.Size); // 直接对流做哈希 Hash.Final(Digest); Result := ''; for I := 0 to 31 do Result := Result + IntToHex(Digest[I], 2); finally Stream.Free; Hash.Free; end; end;

UpdateStream是DCPcrypt2提供的一个便利方法，内部会分块读取，避免大文件撑爆内存。Final把最终摘要写入你提供的字节数组，长度由算法决定——SHA-256是32字节，MD5是16字节。拿到摘要后转十六进制字符串就是常见的哈希表示了。

3. 跑起来：从零把DCPcrypt2挂进Delphi项目

3.1 获取源码与目录确认

拿到DCPcrypt2的源码包后，先别急着往IDE里拖。解压出来通常能看到Source目录，里面按算法分了一堆.pas文件。有些版本还会带Packages目录，里面有预编译的.dpk包文件。我一般建议直接用源码，不走包安装，原因是包安装在不同Delphi版本上经常出玄学问题，而源码引用几乎不会翻车。

确认一下你的Delphi版本。DCPcrypt2对Delphi 7到Delphi 10.x都有支持，但高版本Unicode环境下，字符串处理相关的代码可能需要微调。如果你用的是Delphi 2009之后的版本，注意string默认是UnicodeString，而DCPcrypt2内部很多地方按AnsiChar处理，直接传中文可能会出问题。

3.2 项目引用路径配置

在Delphi IDE里，打开Project -> Options -> Delphi Compiler -> Search Path，把DCPcrypt2的Source目录加进去。这样你在uses子句里直接写DCPrijndael就能找到单元文件，不需要把源码复制到项目目录下。

如果你用的是MSBuild命令行编译，对应的配置在.dproj文件里：

<DCC_UnitSearchPath>..\DCPcrypt2\Source;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>

加完之后，在需要加密的单元里引用对应的算法单元。比如要用AES和SHA-256：

uses DCPcrypt2, DCPrijndael, DCPsha256;

编译一下，如果没有报找不到单元的错误，说明路径配置对了。如果报File not found: 'DCPcrypt2.dcu'，检查一下Search Path是不是加在了正确的构建配置下——Debug和Release的路径是分开的。

3.3 最小可运行示例

写一个最简单的控制台程序验证加密解密链路是否通：

program TestDCP; {$APPTYPE CONSOLE} uses SysUtils, DCPcrypt2, DCPrijndael, DCPsha256; var Cipher: TDCP_rijndael; Key: array[0..31] of Byte; IV: array[0..15] of Byte; Plain, Encrypted, Decrypted: TBytes; I: Integer; begin // 派生密钥 with TDCP_sha256.Create(nil) do try Init; UpdateStr('test-key'); Final(Key); finally Free; end; FillChar(IV, SizeOf(IV), 0); Plain := BytesOf('Hello DCPcrypt2'); // 加密 Cipher := TDCP_rijndael.Create(nil); try Cipher.Init(Key, 256, @IV); SetLength(Encrypted, Length(Plain)); Cipher.EncryptCBC(Plain[0], Encrypted[0], Length(Plain)); finally Cipher.Free; end; // 解密 Cipher := TDCP_rijndael.Create(nil); try Cipher.Init(Key, 256, @IV); SetLength(Decrypted, Length(Encrypted)); Cipher.DecryptCBC(Encrypted[0], Decrypted[0], Length(Encrypted)); finally Cipher.Free; end; WriteLn('Decrypted: ', StringOf(Decrypted)); ReadLn; end.

跑通之后你会看到控制台输出Decrypted: Hello DCPcrypt2。这个例子虽然简单，但覆盖了密钥派生、加密、解密三个关键环节。实际项目里把BytesOf和StringOf换成文件流或网络字节流就行。

提示：EncryptCBC和DecryptCBC的第三个参数是数据长度，单位是字节。CBC模式要求数据长度是块大小的整数倍（AES是16字节），DCPcrypt2内部会自动做PKCS#7填充，你不需要手动补齐。

4. 避坑与排查：那些年DCPcrypt2让我加班到凌晨的瞬间

4.1 中文加密后解密变成乱码

现象：加密一段包含中文的字符串，解密出来是问号或者乱码。原因：DCPcrypt2的EncryptCBC操作的是字节缓冲区，而Delphi高版本里string是UnicodeString，一个中文字符占2字节。如果你直接把string转成TBytes，编码转换环节可能已经丢了信息。解决：加密前统一转成UTF-8字节流，解密后再从UTF-8转回UnicodeString。

// 加密前 Plain := TEncoding.UTF8.GetBytes('中文内容'); // 解密后 DecryptedStr := TEncoding.UTF8.GetString(Decrypted);

4.2 密钥长度传错导致加密结果对不上

现象：同样的明文和密钥，加密出来的密文和预期不一致。原因：Init的第二个参数是bit长度，有人习惯性传了byte长度。比如AES-256传了32而不是256，DCPcrypt2会按32bit处理，实际用的是弱密钥。解决：记住这个参数的单位是bit，AES-128传128，AES-192传192，AES-256传256。

4.3 多线程环境下哈希结果错乱

现象：多个线程同时调用同一个TDCP_sha256实例，得到的哈希值互相污染。原因：DCPcrypt2的算法实例内部维护了上下文状态，不是线程安全的。解决：每个线程创建独立的算法实例，或者用临界区保护共享实例。我一般倾向于每个线程独立实例，省得锁来锁去。

4.4 编译时报“Unsafe type”或“Unsafe pointer”警告

现象：Delphi高版本编译DCPcrypt2源码时出现大量指针操作警告。原因：DCPcrypt2的代码风格偏老，大量使用Pointer和Move做内存操作，新版本编译器对类型安全要求更严。解决：这些警告不影响功能，可以在项目选项里关掉对应的警告项，或者用{$WARNINGS OFF}临时压制。如果追求干净编译，可以手动给关键指针操作加类型转换。

4.5 RSA加密长数据失败

现象：用TDCP_rsa加密超过密钥长度限制的数据时报错或返回空。原因：RSA算法本身有填充和块大小限制，不能直接加密任意长度的数据。解决：RSA只用来加密对称密钥或者做签名，长数据先用AES加密，再用RSA加密AES密钥。这是标准做法，不是DCPcrypt2的缺陷。

5. 二次开发：把DCPcrypt2改造成项目专属加密层

5.1 封装统一的加密门面

直接在业务代码里到处uses DCPrijndael是维护灾难。我一般会加一层门面单元，把算法选择、密钥管理、编码转换全包进去。业务层只调EncryptString和DecryptString，不关心底层用的是AES还是Blowfish。

unit uCryptoFacade; interface function EncryptString(const PlainText, Passphrase: string): string; function DecryptString(const CipherText, Passphrase: string): string; implementation uses System.SysUtils, System.Classes, DCPcrypt2, DCPrijndael, DCPsha256; function DeriveKey(const Passphrase: string; out Key: array of Byte): Boolean; var Hash: TDCP_sha256; begin Result := False; if Length(Key) < 32 then Exit; Hash := TDCP_sha256.Create(nil); try Hash.Init; Hash.UpdateStr(Passphrase); Hash.Final(Key[0]); Result := True; finally Hash.Free; end; end; function EncryptString(const PlainText, Passphrase: string): string; var Cipher: TDCP_rijndael; Key: array[0..31] of Byte; IV: array[0..15] of Byte; Data: TBytes; begin DeriveKey(Passphrase, Key); FillChar(IV, SizeOf(IV), 0); Data := TEncoding.UTF8.GetBytes(PlainText); Cipher := TDCP_rijndael.Create(nil); try Cipher.Init(Key, 256, @IV); Cipher.EncryptCBC(Data[0], Data[0], Length(Data)); finally Cipher.Free; end; Result := TEncoding.UTF8.GetString(Data); end; function DecryptString(const CipherText, Passphrase: string): string; var Cipher: TDCP_rijndael; Key: array[0..31] of Byte; IV: array[0..15] of Byte; Data: TBytes; begin DeriveKey(Passphrase, Key); FillChar(IV, SizeOf(IV), 0); Data := TEncoding.UTF8.GetBytes(CipherText); Cipher := TDCP_rijndael.Create(nil); try Cipher.Init(Key, 256, @IV); Cipher.DecryptCBC(Data[0], Data[0], Length(Data)); finally Cipher.Free; end; Result := TEncoding.UTF8.GetString(Data); end; end.

这层封装的好处是，将来要把AES换成国密SM4，只需要改门面单元里的实现，业务代码一行不动。密钥派生这里用的是SHA-256直接哈希，安全性一般，生产环境建议换成PBKDF2或者Argon2，DCPcrypt2本身不提供KDF，需要自己实现或者找配套库。

5.2 验证改造效果的方法

改完之后怎么确认没改坏？我一般写一组回归测试，覆盖三个场景：空字符串加解密、纯ASCII加解密、中英文混合加解密。每个场景验证Decrypt(Encrypt(x)) == x。另外单独测一下错误密钥解密的情况，确认不会崩溃而是返回空或者抛异常。

procedure TestCrypto; var S: string; begin S := 'Hello 加密测试 123'; Assert(DecryptString(EncryptString(S, 'key1'), 'key1') = S); Assert(DecryptString(EncryptString(S, 'key1'), 'key2') <> S); end;

5.3 一个容易忽略的细节

DCPcrypt2的Final方法调用后，算法实例的上下文会被重置，但实例本身还可以继续用。不过我不建议复用，因为一旦忘记重置状态，下一次Init之前如果误调了Update，结果就是错的。从那以后我每次用完算法实例都直接Free，宁可多创建几次对象，也不留这个后悔药。希望帮到你。

本文还有配套的精品资源，点击获取