简介DCPcrypt2-XE12 fS 完整源码版是专为 Delphi 12Athens/Sydney/Alexandria/Rio深度适配的开源加密组件库面向中高级 Delphi 开发者解决企业级数据安全开发中 AES/RSA/SHA-256 等算法集成难、XE12 兼容性差、依赖 DLL 或配置复杂等痛点。资源共 74 个文件涵盖 34 个核心 Pascal 单元如 DCPrijndael.pas、DCPsha256.pas、DCPrsa.pas、15 个平台适配 inc 文件、4 套官方 DPK/DPROJ 工程文件含 XE12 专用包、4 个 HTML 文档及完整 Demo 工程文件加解密、哈希计算、数字签名全部为纯 Pascal 实现无外部依赖拖入项目即可 uses 调用。目前已有 96 人学习下载。读者可直接获得结构清晰的模块化源码体系Ciphers 目录覆盖 15 对称算法Hashes 目录集成 MD5/SHA/RIPEMD/Tiger 等全系列哈希Docs 提供 MIT 许可协议与 API 参考Demo 工程含可视化界面与完整调用链路大幅降低数据库字段加密、网络传输签名、本地文件保护等场景的落地门槛。 不少老Delphi开发者看到XE12和DCPcrypt2这两个词放在一起第一反应多半是这老古董还能用确实DCPcrypt2这个开源加密库的历史可以追溯到Delphi 5时代很多年的老项目里都有它的身影。但我要说的是在RAD Studio 12.0 Athens也就是大家说的XE12时代它反而成了我首选的加密方案原因很简单源码在手心里不慌。DCPcrypt2是一套纯Delphi实现的加密算法组件库涵盖对称加密AES、Blowfish、Twofish等、哈希算法MD5、SHA1、SHA256等和流加密算法不需要依赖操作系统底层的加密API也不需要在最终用户机器上额外安装任何运行库。它是一套纯Delphi实现的加密算法组件库涵盖对称加密AES、Blowfish、Twofish等、哈希算法MD5、SHA1、SHA256等和流加密算法不需要依赖操作系统底层的加密API也不需要在最终用户机器上额外安装任何运行库。这篇文章我会从源码结构、安装配置到实际编码把整套流程拆开讲透适合刚接手老项目但被加密模块卡住的新手也适合想从零集成加密能力、又不想被商业组件绑架的团队参考。1. 项目整体设计与选型逻辑1.1 为什么是DCPcrypt2而不是其他加密方案先说个直观的对比。Delphi生态里做加密路径无非几条Windows内置的CryptoAPI/Cryptography API Next Generation、第三方商业组件如SecureBlackbox、以及今天要讲的DCPcrypt2这种纯源码开源库。很多人习惯用Windows API但我个人在跨版本迁移时吃过大亏——同一个加密函数在Windows 7和Windows 10上的默认算法提供者表现就不完全一致更别提不同语言版本的系统偶尔会给你整出些莫名其妙的行为差异。DCPcrypt2的优势是算法全部由Delphi代码实现底层不依赖操作系统所以同样的加密代码在Windows、macOS、Linux通过FMX或跨平台编译下跑出来的结果完全一致。对于做产品软件的公司来说这点非常关键——你不想因为客户换了台电脑或者升级了系统就导致历史数据解不开。源码版另一个好处是可读性和可调试性。商业组件通常只给DCU或者加了混淆的源码出了问题你只能干瞪眼给厂商提单。DCPcrypt2的源码一打开算法实现、密钥扩展、分块逻辑全部摊在你面前就算真有bug顺着调用栈就能定位。1.2 源码包里的核心文件全览这个DCPcrypt2-XE12 fS 完整源码版.7z解压出来后目录结构并不复杂但信息量很大。核心文件大致分三层基础框架层DCPcrypt.pas是组件体系的基类定义所有加密组件都从它派生DCPblockciphers.pas定义了分组密码的通用处理逻辑填充、链式模式等DCPconst.pas放的是常量定义比如算法标识、默认参数。算法实现层每个算法一个文件例如DCPrijndael.pasAES/Rijndael、DCPsha1.pas、DCPmd5.pas、DCPblowfish.pas等。这部分提供了组件形式和非组件形式两套调用方式组件形式拖到窗体上就能用非组件形式直接在代码里创建实例我们后面讲。接口层DCPcrypt2_Reg.pas这个文件是设计期注册单元只有把它编译进包Package并在IDE里安装组件面板上才会出现DCPcrypt2的身影。另外包里通常会带上Packages目录里面有各个Delphi版本对应的DPK/DProj工程文件XE12的对应版本就是在这个目录下选择对应版本的项目文件编译安装。1.3 选型时我在想什么选择源码版还有一个容易被忽略的点可控的维护周期。Delphi版本每年更新老组件库在全新IDE上首次打开报错几乎是必然的。但因为是源码我可以很从容地打开编译日志逐条修复版本不兼容的语法或过时API调用。这个自己动手修的过程恰好能让我们彻底搞清楚库的内在工作原理。商业组件的试用版和正式版在加密库上的差异也可能给测试埋雷。DCPcrypt2不存在这种问题——源码就是源码编译出来什么样发布就是什么样不存在试用版加解密可以但正式版要额外授权这种恶心人的限制。2. 核心细节解析算法体系与组件设计2.1 分组加密的完整链条DCPcrypt2里最常用的是分组密码算法Block CipherAES就是典型代表。用生活类比来理解分组加密加密就像把一份长文档按固定字数拆页每一页单独锁进保险箱。文档不够一页时就要填充空内容凑满一页保险箱的锁芯结构就是算法本身而密钥就是开锁的钥匙。源码里TDCP_rijndael这个类实现了AES算法初始化时通过Init方法接收密钥并完成密钥扩展。密钥扩展是把原始密钥按照特定规则膨胀成多轮子密钥的过程AES-128会生成11组子密钥10轮加密每组16字节源码里这部分的到位度相当高连密钥表S-Box的生成都给你算得明明白白。分组密码有几种常见工作模式Mode of OperationDCPcrypt2的CipherMode属性支持设置ECB电子密码本每一页独立加密同样的明文页得到同样的密文页。简单但不推荐用于多块数据因为会暴露明文模式。CBC密码分组链接当前明文块先和上一块密文异或再加密。这是用得最多的模式需要初始化向量IV来加密第一块。CFB/OFB反馈模式把分组密码变成流密码适合加密流式数据或长度不固定的数据。实操中我基本只用CBC模式配合随机IV。源码里TDCP_cbc或TDCP_cfb这些类负责链式模式装饰逻辑它们包装底层分组算法封装成对外一致的接口。2.2 哈希算法到底在做什么哈希算法是另一个高频使用场景。源码里的TDCP_sha1、TDCP_md5、TDCP_sha256提供了不同强度的哈希计算。哈希算法的本质是把任意长度的数据通过一系列非线性映射压缩成一个固定长度的指纹。从数学上看这是个多对一的映射所以理论上是无法逆向还原出原始数据的——这也是为什么哈希能用来存密码、做数据完整性校验。实际操作时要注意DCPcrypt2的哈希类直接继承自TDCP_hash调用方式非常简单Init开始计算Update喂数据支持分多次喂Final结束并输出摘要。因为可以把文件分块循环调用Update所以即便几个GB的大小文件也能在内存占用极低的情况下算出哈希。2.3 组件的继承关系与扩展之道我最初掌握DCPcrypt2时卡住我的是它继承关系的理解。整个组件体系设计其实非常规整大致是这样的TDCP_cipher是所有对称加密组件的抽象基类定义了Init、EncryptBlock、DecryptBlock、Reset等核心虚方法。TDCP_blockcipher在TDCP_cipher基础上拓展了块大小、填充方式等处理。TDCP_hash是所有哈希组件的基类定义Init、Update、Final方法。具体算法就是从这些基类继续派生每个算法重写核心方法实现自己的细节。理解了这一层之后你再看DCPcrypt2的源码就会有一种原来如此的通透感。这种设计的好处是接口统一替换算法时业务代码几乎不用改。今天用AES明天想换Blowfish只要把组件类型换一下对外暴露的Init/Encrypt/Decrypt方法签名完全一致。3. 环境配置与安装实操3.1 RAD Studio 12的准备工作安装DCPcrypt2之前先确认你的RAD Studio 12已经打过最新补丁——这一步别跳过新版IDE自身的bug修复会直接影响第三方包的编译行为。我见过有人在没打补丁的XE12上编译DCPcrypt2时莫名报E2010 Incompatible types打了更新包之后同样代码直接过。把DCPcrypt2-XE12 fS 完整源码版.7z用7-Zip解压到指定目录。注意路径不要带中文和空格Delphi的老传统路径越干净越省心例如D:\Libs\DCPcrypt2。解压后先看一眼目录里的说明文件确认包内自带的XE12工程文件路径。3.2 编译安装组件的完整流程步骤一打开RAD Studio 12执行File Open Project定位到Packages目录下对应XE12的.DPK文件。这里要注意DCPcrypt2_Runtime.dpk和DCPcrypt2_Design.dpk是分开的运行时包是基础设计期包依赖前者。如果只用源代码不需要在IDE里拖组件编译运行时包就够了。步骤二先右键运行时包工程选择Build。观察Messages窗口如果编译通过会生成dcpcrypt2_runtime.bpl。此时打开Project Options在Description页签勾选Runtime onlyUsage选Runtime package这是标准做法。步骤三再打开设计期包DCPcrypt2_Design.dpk右键Build。这个包会引用运行时包并在注册单元DCPcrypt2_Reg.pas里调用RegisterComponents把组件注册到IDE。同样在其工程选项里Usage选Design packageDescription里勾选Design only。步骤四编译成功后在主菜单Component Install Packages里点击Add找到刚才生成的dcpcrypt2_design.bpl文件加入后组件面板就会出现DCPcrypt2分类。如果之前没添加过搜索路径还需要在Tools Options Environment Variables Delphi Options Library里把源码根目录或Source子目录加入Library路径这样IDE才能找到对应的.pas文件方便你随时按F12查看源码或在设计期调用组件。我踩过最大的坑是运行时包没编译成Runtime only导致设计期包链接时带着一堆内部符号警告。更麻烦的是关闭工程后下次打开IDE会提示找不到BPL。所以切记运行时包和设计期包的属性不要搞反。3.3 不走IDE纯源码引入的另类姿势如果你的项目不需要在设计期拖组件更喜欢代码里直接控制一切那更简单不要安装任何包直接把DCPcrypt2的Source目录加入项目的搜索路径然后在需要的地方uses对应的单元就行。比如用AES就uses DCPrijndael, DCPcrypt2;用哈希就uses DCPsha256;——注意这里DCPcrypt2这个单元名带了数字2是框架单元很多新手在uses里写成DCPcrypt就报找不到文件。这种纯源码引入方式发布的时候不需要BPL运行库整个exe自包含对于绿色软件、工具类程序尤其友好。我一般更推荐这种方式因为组件模式还要多管设计期包和运行时包而直接在代码里创建实例逻辑更透明出问题也好排查。4. 编码实战加解密与哈希的落地代码4.1 最标准的AES-CBC加密封装有了库咱们直接写代码。下面是封装的一个AES-256-CBC加密函数密钥32字节AES-256要求IV 16字节采用PKCS7填充uses System.SysUtils, System.Classes, DCPcrypt2, DCPrijndael; function AESEncryptString(const APlainText, AKey, AIV: string): string; var Cipher: TDCP_rijndael; Data, Encrypted: TBytes; i: Integer; begin Cipher : TDCP_rijndael.Create(nil); try Cipher.Init(GetBytes(AKey), 256, AIVBytes[0]); // 注意版本不同Init可能需要传指针这里以实际为准 Data : TEncoding.UTF8.GetBytes(APlainText); // 手动PKCS7填充 SetLength(Encrypted, (Length(Data) div 16 1) * 16); for i : 0 to Length(Data) - 1 do Encrypted[i] : Data[i]; for i : Length(Data) to Length(Encrypted) - 1 do Encrypted[i] : Length(Encrypted) - Length(Data); // 加密 Cipher.EncryptCBC(Encrypted[0], Encrypted[0], Length(Encrypted)); Result : TEncoding.ASCII.GetString(Encrypted); // 或者用Base64编码 finally Cipher.Free; end; end;重点解释几个细节TDCP_rijndael.Create(nil)因为只是临时调用不需要持有组件引用父组件传nil即可。Init方法的参数是Init(const Key; Size: LongWord; InitVector: Pointer)我们传原始密钥字节和密钥位数256IV作为指针传入。源码里它会在内部复制密钥和IV到自己的缓冲区所以你不用一直保存这两个数组。EncryptCBC这个方法的签名是procedure EncryptCBC(const InData; var OutData; Size: LongWord)InData和OutData可以直接传同一个变量表示原地加密省一次内存拷贝。解密流程完全对称用DecryptCBC即可。记得解密后要去掉填充字节——按最后一个字节的值截断对应长度的填充。4.2 大文件哈希计算与校验下面这段代码用于计算整个文件的SHA-256分块读入避免一次性加载大文件。这在做安装包校验、固件校验、文件去重时都能用上uses System.Classes, DCPcrypt2, DCPsha256; function CalcFileSHA256(const AFileName: string): string; var Hash: TDCP_sha256; FileStream: TFileStream; Buffer: array[0..8191] of Byte; BytesRead: Integer; Digest: array[0..31] of Byte; i: Integer; begin Hash : TDCP_sha256.Create(nil); FileStream : TFileStream.Create(AFileName, fmOpenRead or fmShareDenyNone); try Hash.Init; repeat BytesRead : FileStream.Read(Buffer, SizeOf(Buffer)); if BytesRead 0 then Hash.Update(Buffer, BytesRead); until BytesRead SizeOf(Buffer); Hash.Final(Digest); Result : ; for i : 0 to 31 do Result : Result IntToHex(Digest[i], 2); finally FileStream.Free; Hash.Free; end; end;这里有个容易被忽略的性能点缓冲区大小Buffer选用8KB对于机械硬盘和普通场景是均衡选择。加密库的计算性能很强瓶颈通常在文件I/O所以缓冲区适当加大例如64KB反而有助于提升整体吞吐。我在处理几个GB的镜像文件时实测直接提升约两成的计算速度。4.3 文件加密的完整过程实际项目里直接加密字符串的场景其实不多更多是加密文件。文件加密通常要把IV记录下来——密文文件头可以存IV解密时先读IV再初始化密码器。这里有经验的方案是IV随机生成每次加密都换然后以固定格式和密文放在一起这是业内通行做法安全性也有保障。procedure EncryptFile(const AInFile, AOutFile, AKey: string); var Cipher: TDCP_rijndael; Source, Dest: TFileStream; IV: array[0..15] of Byte; Buffer: array[0..8191] of Byte; BytesRead: Integer; begin Cipher : TDCP_rijndael.Create(nil); Source : TFileStream.Create(AInFile, fmOpenRead or fmShareDenyNone); Dest : TFileStream.Create(AOutFile, fmCreate); try // 生成随机IV for i : 0 to 15 do IV[i] : Random(256); Dest.Write(IV, SizeOf(IV)); Cipher.Init(GetBytes(AKey), 256, IV[0]); // 注意这里是流式加密用Cipher模式的Reset重置链状态 repeat BytesRead : Source.Read(Buffer, SizeOf(Buffer)); if BytesRead 0 then begin // 把不足16字节的尾块补零后加密或者直接用Cipher.EncryptCBC的Size为块大小整数倍 // 但更稳妥的做法是每次读入块大小整数倍最后处理尾块 end; until BytesRead SizeOf(Buffer); finally Source.Free; Dest.Free; Cipher.Free; end; end;注意上面这个代码是简化的骨架实际文件加密要处理尾块填充。DCPcrypt2底层EncryptCBC的Size参数必须是块大小16字节的整数倍所以尾块需要填充。我在项目中是定义一个PadBlock过程把最后不足16字节的部分按PKCS7规则填满再加密解密时再根据填充值去掉。详细代码不在这里展开但思路已经说清楚。4.4 非对称加密场景的补充DCPcrypt2还有一个常被忽略的部分RSA非对称加密在DCPrsa.pas里。虽然实现得比较古早但基础的RSA加解密、密钥生成能力都具备。非对称加密的典型用途是加密对称密钥本身或者做数字签名验证。用RSA时建议只用来加密一小段数据例如AES密钥因为RSA自身会把数据长度限制在密钥长度以内1024位密钥最多加密117字节不适合承载大流量数据。密钥生成也是个耗时的过程别在UI线程里跑否则界面会卡死几秒到几十秒这里说的都是血泪经验。5. 常见问题与排查技巧实录5.1 编译期报错一箩筐场景在XE12上首次编译DCPcrypt2_Runtime.dpkIDE报E2003 Undeclared identifier: GetKey或者E2010 Incompatible types。原因XE12对很多老代码做了更严格的类型检查尤其是PChar和PAnsiChar的区分。GetKey这类方法在老版本写法里经常因为AnsiString和String混用而出问题。处理先看报错定位到具体文件行。DCPcrypt2的源码在XE12兼容性上其实已经做了不少修正这个fs版本就是为此打过补丁的。如果还有问题最可能的是你的源码版本比较老可以查找源码里是否有{$IFDEF UNICODE}之类的条件编译指令确认在XE12下定义了正确的编译符号。再不行直接全局把涉及GetKey的相关调用改成SetLength(KeyBuf, ...)配合显式参数传递。场景设计期包编译时提示找不到dcpcrypt2_runtime.dcp文件。原因设计期包需要引用运行时包编译产物。如果你运行时包没有先编译成功或者没有把dcpcrypt2_runtime.dcp所在目录加入Library pathIDE就找不到。处理先确认运行时包编译成功然后在包选项Requires节点里添加对运行时包的引用再把包含.dcp文件的目录加入Library路径。顺序不能乱——先运行时包后设计期包这跟建房先打地基是一个道理。5.2 运行期解密失败的正确排查思路最常见的运行期报错是解密结果乱码或者解密过程抛EDCP_cipher异常。排查思路按顺序来第一查初始化参数加密时的密钥、IV、算法类型解密时是否完全一致。很多人喜欢把密钥转成字符串存数据库取出来再转回字节数组这一转就出问题——编码不一致、字符串长度变了、字符集不同都会直接导致解密失败。我的建议是密钥和IV一律用TBytes存储入库时用Base64编码取出时Base64解码中间不经过字符串的字符集转换。第二查数据通道密文在传输或保存过程是否被截断、被转码。比如有人把密文当字符串存入JSON结果JSON库自动做了Unicode转义取出来就不是原来的密文了。用Base64编码后再存能规避绝大多数传输/存储过程中的数据破坏。第三查算法模式加密用的CBC解密是不是也用CBC哪怕只是模式不匹配解密也能跑但结果绝对不是你想要的。查一下CipherMode属性设置。5.3 性能瓶颈与优化心得DCPcrypt2的性能在纯Delphi实现里算不错的但如果你要加密大量数据仍有几个优化空间。一是缓冲区复用避免在循环里反复分配大型TBytes二是使用流式模式避免反复Init/Reset三是对超大文件用分块加密和并行处理。我做项目时发现一个长期忽略的细节DCPcrypt2在Final之后组件状态是不可再直接加密的需要重新Init。如果你的代码在一个长生命周期对象里复用了加密组件实例记得每次加密前检查状态必要时重新初始化。这个状态逻辑在源码的Reset方法里有体现值得读一读。5.4 版本迁移与老项目维护的补充说明以前用DCPcrypt2写的老代码在新版本上重新编译时除了上面说的编译问题还要注意加密密钥格式的兼容性。老版本代码里如果有人用StrToHex之类的函数处理密钥新版本里这类辅助函数可能移到了其他单元或者改名叫HexToStr。排查时先全局搜索涉及密钥转换的工具函数把密钥、IV、加解密结果的格式理清楚再做迁移。另外DCPcrypt2的算法命名比较老派比如AES的类名是TDCP_rijndaelRijndael是AES的原始名称别在文档里找不到AES就以为库不含AES。6. 关于DCPcrypt2的几点碎碎念网上对DCPcrypt2的评价两极分化有人说它是Delphi加密的珠穆朗玛峰有人说它代码太老该淘汰了。我个人的体会是选库这事没有绝对的对错只有适合不适合。DCPcrypt2的原始版本确实停更多年但这个fS完整源码版正是在社区驱动下适配了新IDE的产物它的代码依然能打依然值得信赖。在使用过程中我最大的感受是它帮我建立了一种掌控感。依赖操作系统或商业黑盒组件时你永远不知道底层发生了什么事而DCPcrypt2的源码铺开我可以一行行追踪密钥怎么从用户口令变成轮子密钥、明文的每个字节如何被打散再重组。这种掌控感在排查线上问题、做安全审计的时候非常宝贵。技术选型从来不是看它有多新、有多潮而是看它在你的场景里能不能稳定运行、出了问题你能不能兜底。DCPcrypt2这个源码包正是那种越用越稳、出了问题也能兜底的库。如果你正在为Delphi项目的加密需求发愁不妨把源码打开亲手编译一遍体验一下这套老牌库的底气和实力。本文还有配套的精品资源点击获取 Delphi XE12下DCPcrypt2加密库实战：从安装到编码
简介DCPcrypt2-XE12 fS 完整源码版是专为 Delphi 12Athens/Sydney/Alexandria/Rio深度适配的开源加密组件库面向中高级 Delphi 开发者解决企业级数据安全开发中 AES/RSA/SHA-256 等算法集成难、XE12 兼容性差、依赖 DLL 或配置复杂等痛点。资源共 74 个文件涵盖 34 个核心 Pascal 单元如 DCPrijndael.pas、DCPsha256.pas、DCPrsa.pas、15 个平台适配 inc 文件、4 套官方 DPK/DPROJ 工程文件含 XE12 专用包、4 个 HTML 文档及完整 Demo 工程文件加解密、哈希计算、数字签名全部为纯 Pascal 实现无外部依赖拖入项目即可 uses 调用。目前已有 96 人学习下载。读者可直接获得结构清晰的模块化源码体系Ciphers 目录覆盖 15 对称算法Hashes 目录集成 MD5/SHA/RIPEMD/Tiger 等全系列哈希Docs 提供 MIT 许可协议与 API 参考Demo 工程含可视化界面与完整调用链路大幅降低数据库字段加密、网络传输签名、本地文件保护等场景的落地门槛。 不少老Delphi开发者看到XE12和DCPcrypt2这两个词放在一起第一反应多半是这老古董还能用确实DCPcrypt2这个开源加密库的历史可以追溯到Delphi 5时代很多年的老项目里都有它的身影。但我要说的是在RAD Studio 12.0 Athens也就是大家说的XE12时代它反而成了我首选的加密方案原因很简单源码在手心里不慌。DCPcrypt2是一套纯Delphi实现的加密算法组件库涵盖对称加密AES、Blowfish、Twofish等、哈希算法MD5、SHA1、SHA256等和流加密算法不需要依赖操作系统底层的加密API也不需要在最终用户机器上额外安装任何运行库。它是一套纯Delphi实现的加密算法组件库涵盖对称加密AES、Blowfish、Twofish等、哈希算法MD5、SHA1、SHA256等和流加密算法不需要依赖操作系统底层的加密API也不需要在最终用户机器上额外安装任何运行库。这篇文章我会从源码结构、安装配置到实际编码把整套流程拆开讲透适合刚接手老项目但被加密模块卡住的新手也适合想从零集成加密能力、又不想被商业组件绑架的团队参考。1. 项目整体设计与选型逻辑1.1 为什么是DCPcrypt2而不是其他加密方案先说个直观的对比。Delphi生态里做加密路径无非几条Windows内置的CryptoAPI/Cryptography API Next Generation、第三方商业组件如SecureBlackbox、以及今天要讲的DCPcrypt2这种纯源码开源库。很多人习惯用Windows API但我个人在跨版本迁移时吃过大亏——同一个加密函数在Windows 7和Windows 10上的默认算法提供者表现就不完全一致更别提不同语言版本的系统偶尔会给你整出些莫名其妙的行为差异。DCPcrypt2的优势是算法全部由Delphi代码实现底层不依赖操作系统所以同样的加密代码在Windows、macOS、Linux通过FMX或跨平台编译下跑出来的结果完全一致。对于做产品软件的公司来说这点非常关键——你不想因为客户换了台电脑或者升级了系统就导致历史数据解不开。源码版另一个好处是可读性和可调试性。商业组件通常只给DCU或者加了混淆的源码出了问题你只能干瞪眼给厂商提单。DCPcrypt2的源码一打开算法实现、密钥扩展、分块逻辑全部摊在你面前就算真有bug顺着调用栈就能定位。1.2 源码包里的核心文件全览这个DCPcrypt2-XE12 fS 完整源码版.7z解压出来后目录结构并不复杂但信息量很大。核心文件大致分三层基础框架层DCPcrypt.pas是组件体系的基类定义所有加密组件都从它派生DCPblockciphers.pas定义了分组密码的通用处理逻辑填充、链式模式等DCPconst.pas放的是常量定义比如算法标识、默认参数。算法实现层每个算法一个文件例如DCPrijndael.pasAES/Rijndael、DCPsha1.pas、DCPmd5.pas、DCPblowfish.pas等。这部分提供了组件形式和非组件形式两套调用方式组件形式拖到窗体上就能用非组件形式直接在代码里创建实例我们后面讲。接口层DCPcrypt2_Reg.pas这个文件是设计期注册单元只有把它编译进包Package并在IDE里安装组件面板上才会出现DCPcrypt2的身影。另外包里通常会带上Packages目录里面有各个Delphi版本对应的DPK/DProj工程文件XE12的对应版本就是在这个目录下选择对应版本的项目文件编译安装。1.3 选型时我在想什么选择源码版还有一个容易被忽略的点可控的维护周期。Delphi版本每年更新老组件库在全新IDE上首次打开报错几乎是必然的。但因为是源码我可以很从容地打开编译日志逐条修复版本不兼容的语法或过时API调用。这个自己动手修的过程恰好能让我们彻底搞清楚库的内在工作原理。商业组件的试用版和正式版在加密库上的差异也可能给测试埋雷。DCPcrypt2不存在这种问题——源码就是源码编译出来什么样发布就是什么样不存在试用版加解密可以但正式版要额外授权这种恶心人的限制。2. 核心细节解析算法体系与组件设计2.1 分组加密的完整链条DCPcrypt2里最常用的是分组密码算法Block CipherAES就是典型代表。用生活类比来理解分组加密加密就像把一份长文档按固定字数拆页每一页单独锁进保险箱。文档不够一页时就要填充空内容凑满一页保险箱的锁芯结构就是算法本身而密钥就是开锁的钥匙。源码里TDCP_rijndael这个类实现了AES算法初始化时通过Init方法接收密钥并完成密钥扩展。密钥扩展是把原始密钥按照特定规则膨胀成多轮子密钥的过程AES-128会生成11组子密钥10轮加密每组16字节源码里这部分的到位度相当高连密钥表S-Box的生成都给你算得明明白白。分组密码有几种常见工作模式Mode of OperationDCPcrypt2的CipherMode属性支持设置ECB电子密码本每一页独立加密同样的明文页得到同样的密文页。简单但不推荐用于多块数据因为会暴露明文模式。CBC密码分组链接当前明文块先和上一块密文异或再加密。这是用得最多的模式需要初始化向量IV来加密第一块。CFB/OFB反馈模式把分组密码变成流密码适合加密流式数据或长度不固定的数据。实操中我基本只用CBC模式配合随机IV。源码里TDCP_cbc或TDCP_cfb这些类负责链式模式装饰逻辑它们包装底层分组算法封装成对外一致的接口。2.2 哈希算法到底在做什么哈希算法是另一个高频使用场景。源码里的TDCP_sha1、TDCP_md5、TDCP_sha256提供了不同强度的哈希计算。哈希算法的本质是把任意长度的数据通过一系列非线性映射压缩成一个固定长度的指纹。从数学上看这是个多对一的映射所以理论上是无法逆向还原出原始数据的——这也是为什么哈希能用来存密码、做数据完整性校验。实际操作时要注意DCPcrypt2的哈希类直接继承自TDCP_hash调用方式非常简单Init开始计算Update喂数据支持分多次喂Final结束并输出摘要。因为可以把文件分块循环调用Update所以即便几个GB的大小文件也能在内存占用极低的情况下算出哈希。2.3 组件的继承关系与扩展之道我最初掌握DCPcrypt2时卡住我的是它继承关系的理解。整个组件体系设计其实非常规整大致是这样的TDCP_cipher是所有对称加密组件的抽象基类定义了Init、EncryptBlock、DecryptBlock、Reset等核心虚方法。TDCP_blockcipher在TDCP_cipher基础上拓展了块大小、填充方式等处理。TDCP_hash是所有哈希组件的基类定义Init、Update、Final方法。具体算法就是从这些基类继续派生每个算法重写核心方法实现自己的细节。理解了这一层之后你再看DCPcrypt2的源码就会有一种原来如此的通透感。这种设计的好处是接口统一替换算法时业务代码几乎不用改。今天用AES明天想换Blowfish只要把组件类型换一下对外暴露的Init/Encrypt/Decrypt方法签名完全一致。3. 环境配置与安装实操3.1 RAD Studio 12的准备工作安装DCPcrypt2之前先确认你的RAD Studio 12已经打过最新补丁——这一步别跳过新版IDE自身的bug修复会直接影响第三方包的编译行为。我见过有人在没打补丁的XE12上编译DCPcrypt2时莫名报E2010 Incompatible types打了更新包之后同样代码直接过。把DCPcrypt2-XE12 fS 完整源码版.7z用7-Zip解压到指定目录。注意路径不要带中文和空格Delphi的老传统路径越干净越省心例如D:\Libs\DCPcrypt2。解压后先看一眼目录里的说明文件确认包内自带的XE12工程文件路径。3.2 编译安装组件的完整流程步骤一打开RAD Studio 12执行File Open Project定位到Packages目录下对应XE12的.DPK文件。这里要注意DCPcrypt2_Runtime.dpk和DCPcrypt2_Design.dpk是分开的运行时包是基础设计期包依赖前者。如果只用源代码不需要在IDE里拖组件编译运行时包就够了。步骤二先右键运行时包工程选择Build。观察Messages窗口如果编译通过会生成dcpcrypt2_runtime.bpl。此时打开Project Options在Description页签勾选Runtime onlyUsage选Runtime package这是标准做法。步骤三再打开设计期包DCPcrypt2_Design.dpk右键Build。这个包会引用运行时包并在注册单元DCPcrypt2_Reg.pas里调用RegisterComponents把组件注册到IDE。同样在其工程选项里Usage选Design packageDescription里勾选Design only。步骤四编译成功后在主菜单Component Install Packages里点击Add找到刚才生成的dcpcrypt2_design.bpl文件加入后组件面板就会出现DCPcrypt2分类。如果之前没添加过搜索路径还需要在Tools Options Environment Variables Delphi Options Library里把源码根目录或Source子目录加入Library路径这样IDE才能找到对应的.pas文件方便你随时按F12查看源码或在设计期调用组件。我踩过最大的坑是运行时包没编译成Runtime only导致设计期包链接时带着一堆内部符号警告。更麻烦的是关闭工程后下次打开IDE会提示找不到BPL。所以切记运行时包和设计期包的属性不要搞反。3.3 不走IDE纯源码引入的另类姿势如果你的项目不需要在设计期拖组件更喜欢代码里直接控制一切那更简单不要安装任何包直接把DCPcrypt2的Source目录加入项目的搜索路径然后在需要的地方uses对应的单元就行。比如用AES就uses DCPrijndael, DCPcrypt2;用哈希就uses DCPsha256;——注意这里DCPcrypt2这个单元名带了数字2是框架单元很多新手在uses里写成DCPcrypt就报找不到文件。这种纯源码引入方式发布的时候不需要BPL运行库整个exe自包含对于绿色软件、工具类程序尤其友好。我一般更推荐这种方式因为组件模式还要多管设计期包和运行时包而直接在代码里创建实例逻辑更透明出问题也好排查。4. 编码实战加解密与哈希的落地代码4.1 最标准的AES-CBC加密封装有了库咱们直接写代码。下面是封装的一个AES-256-CBC加密函数密钥32字节AES-256要求IV 16字节采用PKCS7填充uses System.SysUtils, System.Classes, DCPcrypt2, DCPrijndael; function AESEncryptString(const APlainText, AKey, AIV: string): string; var Cipher: TDCP_rijndael; Data, Encrypted: TBytes; i: Integer; begin Cipher : TDCP_rijndael.Create(nil); try Cipher.Init(GetBytes(AKey), 256, AIVBytes[0]); // 注意版本不同Init可能需要传指针这里以实际为准 Data : TEncoding.UTF8.GetBytes(APlainText); // 手动PKCS7填充 SetLength(Encrypted, (Length(Data) div 16 1) * 16); for i : 0 to Length(Data) - 1 do Encrypted[i] : Data[i]; for i : Length(Data) to Length(Encrypted) - 1 do Encrypted[i] : Length(Encrypted) - Length(Data); // 加密 Cipher.EncryptCBC(Encrypted[0], Encrypted[0], Length(Encrypted)); Result : TEncoding.ASCII.GetString(Encrypted); // 或者用Base64编码 finally Cipher.Free; end; end;重点解释几个细节TDCP_rijndael.Create(nil)因为只是临时调用不需要持有组件引用父组件传nil即可。Init方法的参数是Init(const Key; Size: LongWord; InitVector: Pointer)我们传原始密钥字节和密钥位数256IV作为指针传入。源码里它会在内部复制密钥和IV到自己的缓冲区所以你不用一直保存这两个数组。EncryptCBC这个方法的签名是procedure EncryptCBC(const InData; var OutData; Size: LongWord)InData和OutData可以直接传同一个变量表示原地加密省一次内存拷贝。解密流程完全对称用DecryptCBC即可。记得解密后要去掉填充字节——按最后一个字节的值截断对应长度的填充。4.2 大文件哈希计算与校验下面这段代码用于计算整个文件的SHA-256分块读入避免一次性加载大文件。这在做安装包校验、固件校验、文件去重时都能用上uses System.Classes, DCPcrypt2, DCPsha256; function CalcFileSHA256(const AFileName: string): string; var Hash: TDCP_sha256; FileStream: TFileStream; Buffer: array[0..8191] of Byte; BytesRead: Integer; Digest: array[0..31] of Byte; i: Integer; begin Hash : TDCP_sha256.Create(nil); FileStream : TFileStream.Create(AFileName, fmOpenRead or fmShareDenyNone); try Hash.Init; repeat BytesRead : FileStream.Read(Buffer, SizeOf(Buffer)); if BytesRead 0 then Hash.Update(Buffer, BytesRead); until BytesRead SizeOf(Buffer); Hash.Final(Digest); Result : ; for i : 0 to 31 do Result : Result IntToHex(Digest[i], 2); finally FileStream.Free; Hash.Free; end; end;这里有个容易被忽略的性能点缓冲区大小Buffer选用8KB对于机械硬盘和普通场景是均衡选择。加密库的计算性能很强瓶颈通常在文件I/O所以缓冲区适当加大例如64KB反而有助于提升整体吞吐。我在处理几个GB的镜像文件时实测直接提升约两成的计算速度。4.3 文件加密的完整过程实际项目里直接加密字符串的场景其实不多更多是加密文件。文件加密通常要把IV记录下来——密文文件头可以存IV解密时先读IV再初始化密码器。这里有经验的方案是IV随机生成每次加密都换然后以固定格式和密文放在一起这是业内通行做法安全性也有保障。procedure EncryptFile(const AInFile, AOutFile, AKey: string); var Cipher: TDCP_rijndael; Source, Dest: TFileStream; IV: array[0..15] of Byte; Buffer: array[0..8191] of Byte; BytesRead: Integer; begin Cipher : TDCP_rijndael.Create(nil); Source : TFileStream.Create(AInFile, fmOpenRead or fmShareDenyNone); Dest : TFileStream.Create(AOutFile, fmCreate); try // 生成随机IV for i : 0 to 15 do IV[i] : Random(256); Dest.Write(IV, SizeOf(IV)); Cipher.Init(GetBytes(AKey), 256, IV[0]); // 注意这里是流式加密用Cipher模式的Reset重置链状态 repeat BytesRead : Source.Read(Buffer, SizeOf(Buffer)); if BytesRead 0 then begin // 把不足16字节的尾块补零后加密或者直接用Cipher.EncryptCBC的Size为块大小整数倍 // 但更稳妥的做法是每次读入块大小整数倍最后处理尾块 end; until BytesRead SizeOf(Buffer); finally Source.Free; Dest.Free; Cipher.Free; end; end;注意上面这个代码是简化的骨架实际文件加密要处理尾块填充。DCPcrypt2底层EncryptCBC的Size参数必须是块大小16字节的整数倍所以尾块需要填充。我在项目中是定义一个PadBlock过程把最后不足16字节的部分按PKCS7规则填满再加密解密时再根据填充值去掉。详细代码不在这里展开但思路已经说清楚。4.4 非对称加密场景的补充DCPcrypt2还有一个常被忽略的部分RSA非对称加密在DCPrsa.pas里。虽然实现得比较古早但基础的RSA加解密、密钥生成能力都具备。非对称加密的典型用途是加密对称密钥本身或者做数字签名验证。用RSA时建议只用来加密一小段数据例如AES密钥因为RSA自身会把数据长度限制在密钥长度以内1024位密钥最多加密117字节不适合承载大流量数据。密钥生成也是个耗时的过程别在UI线程里跑否则界面会卡死几秒到几十秒这里说的都是血泪经验。5. 常见问题与排查技巧实录5.1 编译期报错一箩筐场景在XE12上首次编译DCPcrypt2_Runtime.dpkIDE报E2003 Undeclared identifier: GetKey或者E2010 Incompatible types。原因XE12对很多老代码做了更严格的类型检查尤其是PChar和PAnsiChar的区分。GetKey这类方法在老版本写法里经常因为AnsiString和String混用而出问题。处理先看报错定位到具体文件行。DCPcrypt2的源码在XE12兼容性上其实已经做了不少修正这个fs版本就是为此打过补丁的。如果还有问题最可能的是你的源码版本比较老可以查找源码里是否有{$IFDEF UNICODE}之类的条件编译指令确认在XE12下定义了正确的编译符号。再不行直接全局把涉及GetKey的相关调用改成SetLength(KeyBuf, ...)配合显式参数传递。场景设计期包编译时提示找不到dcpcrypt2_runtime.dcp文件。原因设计期包需要引用运行时包编译产物。如果你运行时包没有先编译成功或者没有把dcpcrypt2_runtime.dcp所在目录加入Library pathIDE就找不到。处理先确认运行时包编译成功然后在包选项Requires节点里添加对运行时包的引用再把包含.dcp文件的目录加入Library路径。顺序不能乱——先运行时包后设计期包这跟建房先打地基是一个道理。5.2 运行期解密失败的正确排查思路最常见的运行期报错是解密结果乱码或者解密过程抛EDCP_cipher异常。排查思路按顺序来第一查初始化参数加密时的密钥、IV、算法类型解密时是否完全一致。很多人喜欢把密钥转成字符串存数据库取出来再转回字节数组这一转就出问题——编码不一致、字符串长度变了、字符集不同都会直接导致解密失败。我的建议是密钥和IV一律用TBytes存储入库时用Base64编码取出时Base64解码中间不经过字符串的字符集转换。第二查数据通道密文在传输或保存过程是否被截断、被转码。比如有人把密文当字符串存入JSON结果JSON库自动做了Unicode转义取出来就不是原来的密文了。用Base64编码后再存能规避绝大多数传输/存储过程中的数据破坏。第三查算法模式加密用的CBC解密是不是也用CBC哪怕只是模式不匹配解密也能跑但结果绝对不是你想要的。查一下CipherMode属性设置。5.3 性能瓶颈与优化心得DCPcrypt2的性能在纯Delphi实现里算不错的但如果你要加密大量数据仍有几个优化空间。一是缓冲区复用避免在循环里反复分配大型TBytes二是使用流式模式避免反复Init/Reset三是对超大文件用分块加密和并行处理。我做项目时发现一个长期忽略的细节DCPcrypt2在Final之后组件状态是不可再直接加密的需要重新Init。如果你的代码在一个长生命周期对象里复用了加密组件实例记得每次加密前检查状态必要时重新初始化。这个状态逻辑在源码的Reset方法里有体现值得读一读。5.4 版本迁移与老项目维护的补充说明以前用DCPcrypt2写的老代码在新版本上重新编译时除了上面说的编译问题还要注意加密密钥格式的兼容性。老版本代码里如果有人用StrToHex之类的函数处理密钥新版本里这类辅助函数可能移到了其他单元或者改名叫HexToStr。排查时先全局搜索涉及密钥转换的工具函数把密钥、IV、加解密结果的格式理清楚再做迁移。另外DCPcrypt2的算法命名比较老派比如AES的类名是TDCP_rijndaelRijndael是AES的原始名称别在文档里找不到AES就以为库不含AES。6. 关于DCPcrypt2的几点碎碎念网上对DCPcrypt2的评价两极分化有人说它是Delphi加密的珠穆朗玛峰有人说它代码太老该淘汰了。我个人的体会是选库这事没有绝对的对错只有适合不适合。DCPcrypt2的原始版本确实停更多年但这个fS完整源码版正是在社区驱动下适配了新IDE的产物它的代码依然能打依然值得信赖。在使用过程中我最大的感受是它帮我建立了一种掌控感。依赖操作系统或商业黑盒组件时你永远不知道底层发生了什么事而DCPcrypt2的源码铺开我可以一行行追踪密钥怎么从用户口令变成轮子密钥、明文的每个字节如何被打散再重组。这种掌控感在排查线上问题、做安全审计的时候非常宝贵。技术选型从来不是看它有多新、有多潮而是看它在你的场景里能不能稳定运行、出了问题你能不能兜底。DCPcrypt2这个源码包正是那种越用越稳、出了问题也能兜底的库。如果你正在为Delphi项目的加密需求发愁不妨把源码打开亲手编译一遍体验一下这套老牌库的底气和实力。本文还有配套的精品资源点击获取