簡(jiǎn)介DCPcrypt2-XE12 fS 完整源碼版是專為 Delphi 12Athens/Sydney/Alexandria/Rio深度適配的開(kāi)源加密組件庫(kù)面向中高級(jí) Delphi 開(kāi)發(fā)者解決企業(yè)級(jí)數(shù)據(jù)安全開(kāi)發(fā)中 AES/RSA/SHA-256 等算法集成難、XE12 兼容性差、依賴 DLL 或配置復(fù)雜等痛點(diǎn)。資源共 74 個(gè)文件涵蓋 34 個(gè)核心 Pascal 單元如 DCPrijndael.pas、DCPsha256.pas、DCPrsa.pas、15 個(gè)平臺(tái)適配 inc 文件、4 套官方 DPK/DPROJ 工程文件含 XE12 專用包、4 個(gè) HTML 文檔及完整 Demo 工程文件加解密、哈希計(jì)算、數(shù)字簽名全部為純 Pascal 實(shí)現(xiàn)無(wú)外部依賴拖入項(xiàng)目即可 uses 調(diào)用。目前已有 96 人學(xué)習(xí)下載。讀者可直接獲得結(jié)構(gòu)清晰的模塊化源碼體系Ciphers 目錄覆蓋 15 對(duì)稱算法Hashes 目錄集成 MD5/SHA/RIPEMD/Tiger 等全系列哈希Docs 提供 MIT 許可協(xié)議與 API 參考Demo 工程含可視化界面與完整調(diào)用鏈路大幅降低數(shù)據(jù)庫(kù)字段加密、網(wǎng)絡(luò)傳輸簽名、本地文件保護(hù)等場(chǎng)景的落地門(mén)檻。 不少老Delphi開(kāi)發(fā)者看到XE12和DCPcrypt2這兩個(gè)詞放在一起第一反應(yīng)多半是這老古董還能用確實(shí)DCPcrypt2這個(gè)開(kāi)源加密庫(kù)的歷史可以追溯到Delphi 5時(shí)代很多年的老項(xiàng)目里都有它的身影。但我要說(shuō)的是在RAD Studio 12.0 Athens也就是大家說(shuō)的XE12時(shí)代它反而成了我首選的加密方案原因很簡(jiǎn)單源碼在手心里不慌。DCPcrypt2是一套純Delphi實(shí)現(xiàn)的加密算法組件庫(kù)涵蓋對(duì)稱加密AES、Blowfish、Twofish等、哈希算法MD5、SHA1、SHA256等和流加密算法不需要依賴操作系統(tǒng)底層的加密API也不需要在最終用戶機(jī)器上額外安裝任何運(yùn)行庫(kù)。它是一套純Delphi實(shí)現(xiàn)的加密算法組件庫(kù)涵蓋對(duì)稱加密AES、Blowfish、Twofish等、哈希算法MD5、SHA1、SHA256等和流加密算法不需要依賴操作系統(tǒng)底層的加密API也不需要在最終用戶機(jī)器上額外安裝任何運(yùn)行庫(kù)。這篇文章我會(huì)從源碼結(jié)構(gòu)、安裝配置到實(shí)際編碼把整套流程拆開(kāi)講透適合剛接手老項(xiàng)目但被加密模塊卡住的新手也適合想從零集成加密能力、又不想被商業(yè)組件綁架的團(tuán)隊(duì)參考。1. 項(xiàng)目整體設(shè)計(jì)與選型邏輯1.1 為什么是DCPcrypt2而不是其他加密方案先說(shuō)個(gè)直觀的對(duì)比。Delphi生態(tài)里做加密路徑無(wú)非幾條Windows內(nèi)置的CryptoAPI/Cryptography API Next Generation、第三方商業(yè)組件如SecureBlackbox、以及今天要講的DCPcrypt2這種純?cè)创a開(kāi)源庫(kù)。很多人習(xí)慣用Windows API但我個(gè)人在跨版本遷移時(shí)吃過(guò)大虧——同一個(gè)加密函數(shù)在Windows 7和Windows 10上的默認(rèn)算法提供者表現(xiàn)就不完全一致更別提不同語(yǔ)言版本的系統(tǒng)偶爾會(huì)給你整出些莫名其妙的行為差異。DCPcrypt2的優(yōu)勢(shì)是算法全部由Delphi代碼實(shí)現(xiàn)底層不依賴操作系統(tǒng)所以同樣的加密代碼在Windows、macOS、Linux通過(guò)FMX或跨平臺(tái)編譯下跑出來(lái)的結(jié)果完全一致。對(duì)于做產(chǎn)品軟件的公司來(lái)說(shuō)這點(diǎn)非常關(guān)鍵——你不想因?yàn)榭蛻魮Q了臺(tái)電腦或者升級(jí)了系統(tǒng)就導(dǎo)致歷史數(shù)據(jù)解不開(kāi)。源碼版另一個(gè)好處是可讀性和可調(diào)試性。商業(yè)組件通常只給DCU或者加了混淆的源碼出了問(wèn)題你只能干瞪眼給廠商提單。DCPcrypt2的源碼一打開(kāi)算法實(shí)現(xiàn)、密鑰擴(kuò)展、分塊邏輯全部攤在你面前就算真有bug順著調(diào)用棧就能定位。1.2 源碼包里的核心文件全覽這個(gè)DCPcrypt2-XE12 fS 完整源碼版.7z解壓出來(lái)后目錄結(jié)構(gòu)并不復(fù)雜但信息量很大。核心文件大致分三層基礎(chǔ)框架層DCPcrypt.pas是組件體系的基類定義所有加密組件都從它派生DCPblockciphers.pas定義了分組密碼的通用處理邏輯填充、鏈?zhǔn)侥Ｊ降菵CPconst.pas放的是常量定義比如算法標(biāo)識(shí)、默認(rèn)參數(shù)。算法實(shí)現(xiàn)層每個(gè)算法一個(gè)文件例如DCPrijndael.pasAES/Rijndael、DCPsha1.pas、DCPmd5.pas、DCPblowfish.pas等。這部分提供了組件形式和非組件形式兩套調(diào)用方式組件形式拖到窗體上就能用非組件形式直接在代碼里創(chuàng)建實(shí)例我們后面講。接口層DCPcrypt2_Reg.pas這個(gè)文件是設(shè)計(jì)期注冊(cè)單元只有把它編譯進(jìn)包Package并在IDE里安裝組件面板上才會(huì)出現(xiàn)DCPcrypt2的身影。另外包里通常會(huì)帶上Packages目錄里面有各個(gè)Delphi版本對(duì)應(yīng)的DPK/DProj工程文件XE12的對(duì)應(yīng)版本就是在這個(gè)目錄下選擇對(duì)應(yīng)版本的項(xiàng)目文件編譯安裝。1.3 選型時(shí)我在想什么選擇源碼版還有一個(gè)容易被忽略的點(diǎn)可控的維護(hù)周期。Delphi版本每年更新老組件庫(kù)在全新IDE上首次打開(kāi)報(bào)錯(cuò)幾乎是必然的。但因?yàn)槭窃创a我可以很從容地打開(kāi)編譯日志逐條修復(fù)版本不兼容的語(yǔ)法或過(guò)時(shí)API調(diào)用。這個(gè)自己動(dòng)手修的過(guò)程恰好能讓我們徹底搞清楚庫(kù)的內(nèi)在工作原理。商業(yè)組件的試用版和正式版在加密庫(kù)上的差異也可能給測(cè)試埋雷。DCPcrypt2不存在這種問(wèn)題——源碼就是源碼編譯出來(lái)什么樣發(fā)布就是什么樣不存在試用版加解密可以但正式版要額外授權(quán)這種惡心人的限制。2. 核心細(xì)節(jié)解析算法體系與組件設(shè)計(jì)2.1 分組加密的完整鏈條DCPcrypt2里最常用的是分組密碼算法Block CipherAES就是典型代表。用生活類比來(lái)理解分組加密加密就像把一份長(zhǎng)文檔按固定字?jǐn)?shù)拆頁(yè)每一頁(yè)單獨(dú)鎖進(jìn)保險(xiǎn)箱。文檔不夠一頁(yè)時(shí)就要填充空內(nèi)容湊滿一頁(yè)保險(xiǎn)箱的鎖芯結(jié)構(gòu)就是算法本身而密鑰就是開(kāi)鎖的鑰匙。源碼里TDCP_rijndael這個(gè)類實(shí)現(xiàn)了AES算法初始化時(shí)通過(guò)Init方法接收密鑰并完成密鑰擴(kuò)展。密鑰擴(kuò)展是把原始密鑰按照特定規(guī)則膨脹成多輪子密鑰的過(guò)程AES-128會(huì)生成11組子密鑰10輪加密每組16字節(jié)源碼里這部分的到位度相當(dāng)高連密鑰表S-Box的生成都給你算得明明白白。分組密碼有幾種常見(jiàn)工作模式Mode of OperationDCPcrypt2的CipherMode屬性支持設(shè)置ECB電子密碼本每一頁(yè)獨(dú)立加密同樣的明文頁(yè)得到同樣的密文頁(yè)。簡(jiǎn)單但不推薦用于多塊數(shù)據(jù)因?yàn)闀?huì)暴露明文模式。CBC密碼分組鏈接當(dāng)前明文塊先和上一塊密文異或再加密。這是用得最多的模式需要初始化向量IV來(lái)加密第一塊。CFB/OFB反饋模式把分組密碼變成流密碼適合加密流式數(shù)據(jù)或長(zhǎng)度不固定的數(shù)據(jù)。實(shí)操中我基本只用CBC模式配合隨機(jī)IV。源碼里TDCP_cbc或TDCP_cfb這些類負(fù)責(zé)鏈?zhǔn)侥Ｊ窖b飾邏輯它們包裝底層分組算法封裝成對(duì)外一致的接口。2.2 哈希算法到底在做什么哈希算法是另一個(gè)高頻使用場(chǎng)景。源碼里的TDCP_sha1、TDCP_md5、TDCP_sha256提供了不同強(qiáng)度的哈希計(jì)算。哈希算法的本質(zhì)是把任意長(zhǎng)度的數(shù)據(jù)通過(guò)一系列非線性映射壓縮成一個(gè)固定長(zhǎng)度的指紋。從數(shù)學(xué)上看這是個(gè)多對(duì)一的映射所以理論上是無(wú)法逆向還原出原始數(shù)據(jù)的——這也是為什么哈希能用來(lái)存密碼、做數(shù)據(jù)完整性校驗(yàn)。實(shí)際操作時(shí)要注意DCPcrypt2的哈希類直接繼承自TDCP_hash調(diào)用方式非常簡(jiǎn)單Init開(kāi)始計(jì)算Update喂數(shù)據(jù)支持分多次喂Final結(jié)束并輸出摘要。因?yàn)榭梢园盐募謮K循環(huán)調(diào)用Update所以即便幾個(gè)GB的大小文件也能在內(nèi)存占用極低的情況下算出哈希。2.3 組件的繼承關(guān)系與擴(kuò)展之道我最初掌握DCPcrypt2時(shí)卡住我的是它繼承關(guān)系的理解。整個(gè)組件體系設(shè)計(jì)其實(shí)非常規(guī)整大致是這樣的TDCP_cipher是所有對(duì)稱加密組件的抽象基類定義了Init、EncryptBlock、DecryptBlock、Reset等核心虛方法。TDCP_blockcipher在TDCP_cipher基礎(chǔ)上拓展了塊大小、填充方式等處理。TDCP_hash是所有哈希組件的基類定義Init、Update、Final方法。具體算法就是從這些基類繼續(xù)派生每個(gè)算法重寫(xiě)核心方法實(shí)現(xiàn)自己的細(xì)節(jié)。理解了這一層之后你再看DCPcrypt2的源碼就會(huì)有一種原來(lái)如此的通透感。這種設(shè)計(jì)的好處是接口統(tǒng)一替換算法時(shí)業(yè)務(wù)代碼幾乎不用改。今天用AES明天想換Blowfish只要把組件類型換一下對(duì)外暴露的Init/Encrypt/Decrypt方法簽名完全一致。3. 環(huán)境配置與安裝實(shí)操3.1 RAD Studio 12的準(zhǔn)備工作安裝DCPcrypt2之前先確認(rèn)你的RAD Studio 12已經(jīng)打過(guò)最新補(bǔ)丁——這一步別跳過(guò)新版IDE自身的bug修復(fù)會(huì)直接影響第三方包的編譯行為。我見(jiàn)過(guò)有人在沒(méi)打補(bǔ)丁的XE12上編譯DCPcrypt2時(shí)莫名報(bào)E2010 Incompatible types打了更新包之后同樣代碼直接過(guò)。把DCPcrypt2-XE12 fS 完整源碼版.7z用7-Zip解壓到指定目錄。注意路徑不要帶中文和空格Delphi的老傳統(tǒng)路徑越干凈越省心例如D:\Libs\DCPcrypt2。解壓后先看一眼目錄里的說(shuō)明文件確認(rèn)包內(nèi)自帶的XE12工程文件路徑。3.2 編譯安裝組件的完整流程步驟一打開(kāi)RAD Studio 12執(zhí)行File Open Project定位到Packages目錄下對(duì)應(yīng)XE12的.DPK文件。這里要注意DCPcrypt2_Runtime.dpk和DCPcrypt2_Design.dpk是分開(kāi)的運(yùn)行時(shí)包是基礎(chǔ)設(shè)計(jì)期包依賴前者。如果只用源代碼不需要在IDE里拖組件編譯運(yùn)行時(shí)包就夠了。步驟二先右鍵運(yùn)行時(shí)包工程選擇Build。觀察Messages窗口如果編譯通過(guò)會(huì)生成dcpcrypt2_runtime.bpl。此時(shí)打開(kāi)Project Options在Description頁(yè)簽勾選Runtime onlyUsage選Runtime package這是標(biāo)準(zhǔn)做法。步驟三再打開(kāi)設(shè)計(jì)期包DCPcrypt2_Design.dpk右鍵Build。這個(gè)包會(huì)引用運(yùn)行時(shí)包并在注冊(cè)單元DCPcrypt2_Reg.pas里調(diào)用RegisterComponents把組件注冊(cè)到IDE。同樣在其工程選項(xiàng)里Usage選Design packageDescription里勾選Design only。步驟四編譯成功后在主菜單Component Install Packages里點(diǎn)擊Add找到剛才生成的dcpcrypt2_design.bpl文件加入后組件面板就會(huì)出現(xiàn)DCPcrypt2分類。如果之前沒(méi)添加過(guò)搜索路徑還需要在Tools Options Environment Variables Delphi Options Library里把源碼根目錄或Source子目錄加入Library路徑這樣IDE才能找到對(duì)應(yīng)的.pas文件方便你隨時(shí)按F12查看源碼或在設(shè)計(jì)期調(diào)用組件。我踩過(guò)最大的坑是運(yùn)行時(shí)包沒(méi)編譯成Runtime only導(dǎo)致設(shè)計(jì)期包鏈接時(shí)帶著一堆內(nèi)部符號(hào)警告。更麻煩的是關(guān)閉工程后下次打開(kāi)IDE會(huì)提示找不到BPL。所以切記運(yùn)行時(shí)包和設(shè)計(jì)期包的屬性不要搞反。3.3 不走IDE純?cè)创a引入的另類姿勢(shì)如果你的項(xiàng)目不需要在設(shè)計(jì)期拖組件更喜歡代碼里直接控制一切那更簡(jiǎn)單不要安裝任何包直接把DCPcrypt2的Source目錄加入項(xiàng)目的搜索路徑然后在需要的地方uses對(duì)應(yīng)的單元就行。比如用AES就uses DCPrijndael, DCPcrypt2;用哈希就uses DCPsha256;——注意這里DCPcrypt2這個(gè)單元名帶了數(shù)字2是框架單元很多新手在uses里寫(xiě)成DCPcrypt就報(bào)找不到文件。這種純?cè)创a引入方式發(fā)布的時(shí)候不需要BPL運(yùn)行庫(kù)整個(gè)exe自包含對(duì)于綠色軟件、工具類程序尤其友好。我一般更推薦這種方式因?yàn)榻M件模式還要多管設(shè)計(jì)期包和運(yùn)行時(shí)包而直接在代碼里創(chuàng)建實(shí)例邏輯更透明出問(wèn)題也好排查。4. 編碼實(shí)戰(zhàn)加解密與哈希的落地代碼4.1 最標(biāo)準(zhǔn)的AES-CBC加密封裝有了庫(kù)咱們直接寫(xiě)代碼。下面是封裝的一個(gè)AES-256-CBC加密函數(shù)密鑰32字節(jié)AES-256要求IV 16字節(jié)采用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可能需要傳指針這里以實(shí)際為準(zhǔn) Data : TEncoding.UTF8.GetBytes(APlainText); // 手動(dòng)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;重點(diǎn)解釋幾個(gè)細(xì)節(jié)TDCP_rijndael.Create(nil)因?yàn)橹皇桥R時(shí)調(diào)用不需要持有組件引用父組件傳nil即可。Init方法的參數(shù)是Init(const Key; Size: LongWord; InitVector: Pointer)我們傳原始密鑰字節(jié)和密鑰位數(shù)256IV作為指針傳入。源碼里它會(huì)在內(nèi)部復(fù)制密鑰和IV到自己的緩沖區(qū)所以你不用一直保存這兩個(gè)數(shù)組。EncryptCBC這個(gè)方法的簽名是procedure EncryptCBC(const InData; var OutData; Size: LongWord)InData和OutData可以直接傳同一個(gè)變量表示原地加密省一次內(nèi)存拷貝。解密流程完全對(duì)稱用DecryptCBC即可。記得解密后要去掉填充字節(jié)——按最后一個(gè)字節(jié)的值截?cái)鄬?duì)應(yīng)長(zhǎng)度的填充。4.2 大文件哈希計(jì)算與校驗(yàn)下面這段代碼用于計(jì)算整個(gè)文件的SHA-256分塊讀入避免一次性加載大文件。這在做安裝包校驗(yàn)、固件校驗(yàn)、文件去重時(shí)都能用上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;這里有個(gè)容易被忽略的性能點(diǎn)緩沖區(qū)大小Buffer選用8KB對(duì)于機(jī)械硬盤(pán)和普通場(chǎng)景是均衡選擇。加密庫(kù)的計(jì)算性能很強(qiáng)瓶頸通常在文件I/O所以緩沖區(qū)適當(dāng)加大例如64KB反而有助于提升整體吞吐。我在處理幾個(gè)GB的鏡像文件時(shí)實(shí)測(cè)直接提升約兩成的計(jì)算速度。4.3 文件加密的完整過(guò)程實(shí)際項(xiàng)目里直接加密字符串的場(chǎng)景其實(shí)不多更多是加密文件。文件加密通常要把IV記錄下來(lái)——密文文件頭可以存IV解密時(shí)先讀IV再初始化密碼器。這里有經(jīng)驗(yàn)的方案是IV隨機(jī)生成每次加密都換然后以固定格式和密文放在一起這是業(yè)內(nèi)通行做法安全性也有保障。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 // 生成隨機(jī)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重置鏈狀態(tài) repeat BytesRead : Source.Read(Buffer, SizeOf(Buffer)); if BytesRead 0 then begin // 把不足16字節(jié)的尾塊補(bǔ)零后加密或者直接用Cipher.EncryptCBC的Size為塊大小整數(shù)倍 // 但更穩(wěn)妥的做法是每次讀入塊大小整數(shù)倍最后處理尾塊 end; until BytesRead SizeOf(Buffer); finally Source.Free; Dest.Free; Cipher.Free; end; end;注意上面這個(gè)代碼是簡(jiǎn)化的骨架實(shí)際文件加密要處理尾塊填充。DCPcrypt2底層EncryptCBC的Size參數(shù)必須是塊大小16字節(jié)的整數(shù)倍所以尾塊需要填充。我在項(xiàng)目中是定義一個(gè)PadBlock過(guò)程把最后不足16字節(jié)的部分按PKCS7規(guī)則填滿再加密解密時(shí)再根據(jù)填充值去掉。詳細(xì)代碼不在這里展開(kāi)但思路已經(jīng)說(shuō)清楚。4.4 非對(duì)稱加密場(chǎng)景的補(bǔ)充DCPcrypt2還有一個(gè)常被忽略的部分RSA非對(duì)稱加密在DCPrsa.pas里。雖然實(shí)現(xiàn)得比較古早但基礎(chǔ)的RSA加解密、密鑰生成能力都具備。非對(duì)稱加密的典型用途是加密對(duì)稱密鑰本身或者做數(shù)字簽名驗(yàn)證。用RSA時(shí)建議只用來(lái)加密一小段數(shù)據(jù)例如AES密鑰因?yàn)镽SA自身會(huì)把數(shù)據(jù)長(zhǎng)度限制在密鑰長(zhǎng)度以內(nèi)1024位密鑰最多加密117字節(jié)不適合承載大流量數(shù)據(jù)。密鑰生成也是個(gè)耗時(shí)的過(guò)程別在UI線程里跑否則界面會(huì)卡死幾秒到幾十秒這里說(shuō)的都是血淚經(jīng)驗(yàn)。5. 常見(jiàn)問(wèn)題與排查技巧實(shí)錄5.1 編譯期報(bào)錯(cuò)一籮筐場(chǎng)景在XE12上首次編譯DCPcrypt2_Runtime.dpkIDE報(bào)E2003 Undeclared identifier: GetKey或者E2010 Incompatible types。原因XE12對(duì)很多老代碼做了更嚴(yán)格的類型檢查尤其是PChar和PAnsiChar的區(qū)分。GetKey這類方法在老版本寫(xiě)法里經(jīng)常因?yàn)锳nsiString和String混用而出問(wèn)題。處理先看報(bào)錯(cuò)定位到具體文件行。DCPcrypt2的源碼在XE12兼容性上其實(shí)已經(jīng)做了不少修正這個(gè)fs版本就是為此打過(guò)補(bǔ)丁的。如果還有問(wèn)題最可能的是你的源碼版本比較老可以查找源碼里是否有{$IFDEF UNICODE}之類的條件編譯指令確認(rèn)在XE12下定義了正確的編譯符號(hào)。再不行直接全局把涉及GetKey的相關(guān)調(diào)用改成SetLength(KeyBuf, ...)配合顯式參數(shù)傳遞。場(chǎng)景設(shè)計(jì)期包編譯時(shí)提示找不到dcpcrypt2_runtime.dcp文件。原因設(shè)計(jì)期包需要引用運(yùn)行時(shí)包編譯產(chǎn)物。如果你運(yùn)行時(shí)包沒(méi)有先編譯成功或者沒(méi)有把dcpcrypt2_runtime.dcp所在目錄加入Library pathIDE就找不到。處理先確認(rèn)運(yùn)行時(shí)包編譯成功然后在包選項(xiàng)Requires節(jié)點(diǎn)里添加對(duì)運(yùn)行時(shí)包的引用再把包含.dcp文件的目錄加入Library路徑。順序不能亂——先運(yùn)行時(shí)包后設(shè)計(jì)期包這跟建房先打地基是一個(gè)道理。5.2 運(yùn)行期解密失敗的正確排查思路最常見(jiàn)的運(yùn)行期報(bào)錯(cuò)是解密結(jié)果亂碼或者解密過(guò)程拋EDCP_cipher異常。排查思路按順序來(lái)第一查初始化參數(shù)加密時(shí)的密鑰、IV、算法類型解密時(shí)是否完全一致。很多人喜歡把密鑰轉(zhuǎn)成字符串存數(shù)據(jù)庫(kù)取出來(lái)再轉(zhuǎn)回字節(jié)數(shù)組這一轉(zhuǎn)就出問(wèn)題——編碼不一致、字符串長(zhǎng)度變了、字符集不同都會(huì)直接導(dǎo)致解密失敗。我的建議是密鑰和IV一律用TBytes存儲(chǔ)入庫(kù)時(shí)用Base64編碼取出時(shí)Base64解碼中間不經(jīng)過(guò)字符串的字符集轉(zhuǎn)換。第二查數(shù)據(jù)通道密文在傳輸或保存過(guò)程是否被截?cái)唷⒈晦D(zhuǎn)碼。比如有人把密文當(dāng)字符串存入JSON結(jié)果JSON庫(kù)自動(dòng)做了Unicode轉(zhuǎn)義取出來(lái)就不是原來(lái)的密文了。用Base64編碼后再存能規(guī)避絕大多數(shù)傳輸/存儲(chǔ)過(guò)程中的數(shù)據(jù)破壞。第三查算法模式加密用的CBC解密是不是也用CBC哪怕只是模式不匹配解密也能跑但結(jié)果絕對(duì)不是你想要的。查一下CipherMode屬性設(shè)置。5.3 性能瓶頸與優(yōu)化心得DCPcrypt2的性能在純Delphi實(shí)現(xiàn)里算不錯(cuò)的但如果你要加密大量數(shù)據(jù)仍有幾個(gè)優(yōu)化空間。一是緩沖區(qū)復(fù)用避免在循環(huán)里反復(fù)分配大型TBytes二是使用流式模式避免反復(fù)Init/Reset三是對(duì)超大文件用分塊加密和并行處理。我做項(xiàng)目時(shí)發(fā)現(xiàn)一個(gè)長(zhǎng)期忽略的細(xì)節(jié)DCPcrypt2在Final之后組件狀態(tài)是不可再直接加密的需要重新Init。如果你的代碼在一個(gè)長(zhǎng)生命周期對(duì)象里復(fù)用了加密組件實(shí)例記得每次加密前檢查狀態(tài)必要時(shí)重新初始化。這個(gè)狀態(tài)邏輯在源碼的Reset方法里有體現(xiàn)值得讀一讀。5.4 版本遷移與老項(xiàng)目維護(hù)的補(bǔ)充說(shuō)明以前用DCPcrypt2寫(xiě)的老代碼在新版本上重新編譯時(shí)除了上面說(shuō)的編譯問(wèn)題還要注意加密密鑰格式的兼容性。老版本代碼里如果有人用StrToHex之類的函數(shù)處理密鑰新版本里這類輔助函數(shù)可能移到了其他單元或者改名叫HexToStr。排查時(shí)先全局搜索涉及密鑰轉(zhuǎn)換的工具函數(shù)把密鑰、IV、加解密結(jié)果的格式理清楚再做遷移。另外DCPcrypt2的算法命名比較老派比如AES的類名是TDCP_rijndaelRijndael是AES的原始名稱別在文檔里找不到AES就以為庫(kù)不含AES。6. 關(guān)于DCPcrypt2的幾點(diǎn)碎碎念網(wǎng)上對(duì)DCPcrypt2的評(píng)價(jià)兩極分化有人說(shuō)它是Delphi加密的珠穆朗瑪峰有人說(shuō)它代碼太老該淘汰了。我個(gè)人的體會(huì)是選庫(kù)這事沒(méi)有絕對(duì)的對(duì)錯(cuò)只有適合不適合。DCPcrypt2的原始版本確實(shí)停更多年但這個(gè)fS完整源碼版正是在社區(qū)驅(qū)動(dòng)下適配了新IDE的產(chǎn)物它的代碼依然能打依然值得信賴。在使用過(guò)程中我最大的感受是它幫我建立了一種掌控感。依賴操作系統(tǒng)或商業(yè)黑盒組件時(shí)你永遠(yuǎn)不知道底層發(fā)生了什么事而DCPcrypt2的源碼鋪開(kāi)我可以一行行追蹤密鑰怎么從用戶口令變成輪子密鑰、明文的每個(gè)字節(jié)如何被打散再重組。這種掌控感在排查線上問(wèn)題、做安全審計(jì)的時(shí)候非常寶貴。技術(shù)選型從來(lái)不是看它有多新、有多潮而是看它在你的場(chǎng)景里能不能穩(wěn)定運(yùn)行、出了問(wèn)題你能不能兜底。DCPcrypt2這個(gè)源碼包正是那種越用越穩(wěn)、出了問(wèn)題也能兜底的庫(kù)。如果你正在為Delphi項(xiàng)目的加密需求發(fā)愁不妨把源碼打開(kāi)親手編譯一遍體驗(yàn)一下這套老牌庫(kù)的底氣和實(shí)力。本文還有配套的精品資源點(diǎn)擊獲取