1. 項(xiàng)目概述為什么要在Delphi里重拾DES加密如果你用Delphi開發(fā)過(guò)一些需要處理敏感信息的桌面應(yīng)用、數(shù)據(jù)庫(kù)工具或者內(nèi)部管理系統(tǒng)大概率會(huì)遇到一個(gè)需求如何安全地存儲(chǔ)或傳輸一些配置信息、用戶密碼或者臨時(shí)的文本數(shù)據(jù)直接明文存放肯定不行用現(xiàn)成的庫(kù)又可能面臨部署依賴或者許可問(wèn)題。這時(shí)候自己動(dòng)手實(shí)現(xiàn)一個(gè)輕量、可靠、可嵌入的加密模塊就成了一個(gè)很實(shí)際的選擇。DESData Encryption Standard算法雖然從現(xiàn)代密碼學(xué)的角度看其56位的密鑰長(zhǎng)度已不足以抵御暴力破解但在許多對(duì)安全性要求不是極端苛刻、且需要兼顧效率和兼容性的內(nèi)部應(yīng)用場(chǎng)景中它依然是一個(gè)經(jīng)典、穩(wěn)定且實(shí)現(xiàn)簡(jiǎn)單的選擇。尤其是在處理一些非核心的、短期的或本地的文本數(shù)據(jù)加密時(shí)一個(gè)自實(shí)現(xiàn)的DES模塊能給你帶來(lái)極大的掌控感和靈活性。這個(gè)“Delphi中DES文本加密模塊的實(shí)現(xiàn)與應(yīng)用”項(xiàng)目核心目標(biāo)就是打造一個(gè)這樣的工具它不依賴于外部DLL或復(fù)雜的第三方組件純粹用Object Pascal代碼實(shí)現(xiàn)DES算法的核心流程并封裝成易于調(diào)用的函數(shù)或類。你可以把它直接“拎”進(jìn)你的項(xiàng)目里幾行代碼就能完成對(duì)字符串的加密和解密。這對(duì)于維護(hù)一些遺留系統(tǒng)、開發(fā)輕量級(jí)工具或者單純想理解對(duì)稱加密算法在桌面端如何落地的開發(fā)者來(lái)說(shuō)非常具有實(shí)踐價(jià)值。接下來(lái)我會(huì)帶你從原理到代碼從模塊設(shè)計(jì)到實(shí)際踩坑完整地走一遍這個(gè)實(shí)現(xiàn)過(guò)程。2. DES算法核心原理與Delphi實(shí)現(xiàn)的適配考量在動(dòng)手寫代碼之前我們必須先搞清楚DES到底在干什么以及如何用Delphi的數(shù)據(jù)類型和操作來(lái)“模擬”它。DES是一種分組密碼一次處理64位8字節(jié)的明文數(shù)據(jù)塊通過(guò)一系列復(fù)雜的置換、替換和移位操作輸出64位的密文。其核心流程圍繞密鑰調(diào)度和16輪的Feistel網(wǎng)絡(luò)展開。2.1 從比特操作到字節(jié)數(shù)組Delphi的數(shù)據(jù)視角DES算法本質(zhì)上是比特位的游戲。標(biāo)準(zhǔn)文檔里充滿了“將64位輸入進(jìn)行初始置換IP”、“將56位密鑰左循環(huán)移位”這樣的描述。然而Delphi中最自然的數(shù)據(jù)單元是字節(jié)Byte、整數(shù)Integer和字符串String。因此我們實(shí)現(xiàn)的第一要?jiǎng)?wù)就是建立一套比特位與字節(jié)數(shù)組之間高效、準(zhǔn)確的轉(zhuǎn)換機(jī)制。你不能直接在Delphi里操作一個(gè)“64位比特?cái)?shù)組”。我們的策略是使用array[0..7] of Byte來(lái)表示一個(gè)64位的數(shù)據(jù)塊。那么如何取出這個(gè)字節(jié)數(shù)組中的第N個(gè)比特呢這里就需要用到位運(yùn)算。例如要獲取字節(jié)數(shù)組Data中第BitPos位0為最高位或最低位需統(tǒng)一定義的值函數(shù)可能是這樣的function GetBit(const Data: array of Byte; BitPos: Integer): Integer; var BytePos: Integer; BitInByte: Integer; begin // 假設(shè)BitPos從0開始指向整個(gè)數(shù)據(jù)塊的最高位標(biāo)準(zhǔn)DES常用 BytePos : BitPos div 8; BitInByte : 7 - (BitPos mod 8); // 計(jì)算字節(jié)內(nèi)的比特位置高位在前 Result : (Data[BytePos] shr BitInByte) and $01; end;相應(yīng)地設(shè)置比特位的函數(shù)也需要精心設(shè)計(jì)。這些基礎(chǔ)的比特操作函數(shù)將是構(gòu)建所有DES置換IP, PC-1, PC-2, E, P等的基石。一個(gè)常見的坑是比特序Bit Ordering和字節(jié)序Byte Endianness的混淆。DES標(biāo)準(zhǔn)通常規(guī)定明文的第一個(gè)字節(jié)的最高位MSB對(duì)應(yīng)比特位置1。而在我們的字節(jié)數(shù)組中索引0的字節(jié)是第一個(gè)字節(jié)。你必須嚴(yán)格遵循選定的約定并在所有置換表中保持一致否則加解密結(jié)果必然錯(cuò)誤。2.2 密鑰調(diào)度從64位到16輪子密鑰的生成DES的有效密鑰長(zhǎng)度是56位但輸入是64位8字節(jié)其中第8、16、24、...、64位是奇偶校驗(yàn)位。在密鑰生成的第一步我們需要通過(guò)置換選擇PC-1去除這些校驗(yàn)位得到56位密鑰。在Delphi中我們同樣用比特操作函數(shù)根據(jù)PC-1表對(duì)這64位輸入密鑰8字節(jié)進(jìn)行置換輸出一個(gè)56位的中間表示。這56位被分成左右各28位的C0和D0兩部分。接下來(lái)是16輪迭代每一輪中C(i-1)和D(i-1)分別進(jìn)行左循環(huán)移位移位位數(shù)由輪次決定然后合并再通過(guò)置換選擇PC-2壓縮成48位的子密鑰K(i)。這里的關(guān)鍵點(diǎn)是這16個(gè)子密鑰需要預(yù)先計(jì)算并存儲(chǔ)起來(lái)。在加密或解密時(shí)直接按順序加密或逆序解密使用這些子密鑰避免在每次處理數(shù)據(jù)塊時(shí)都重復(fù)進(jìn)行密鑰調(diào)度這是提升性能的關(guān)鍵。我們可以聲明一個(gè)數(shù)組來(lái)存儲(chǔ)它們SubKeys: array[1..16] of Int64;雖然每輪密鑰是48位但用Int64存儲(chǔ)操作更方便。2.3 Feistel輪函數(shù)S盒查表的核心每一輪加密的核心是Feistel輪函數(shù)F。它接受32位的右半部分R和48位的子密鑰K輸出一個(gè)32位的結(jié)果。其步驟包括擴(kuò)展置換E將32位的R擴(kuò)展為48位。與子密鑰異或?qū)U(kuò)展后的48位結(jié)果與子密鑰K進(jìn)行按位異或XOR。S盒替換將48位數(shù)據(jù)分成8組每組6位分別進(jìn)入8個(gè)不同的S盒Substitution Box。每個(gè)S盒是一個(gè)4行16列的查找表輸入6位首位和末位決定行中間4位決定列輸出4位。這是DES算法中唯一的非線性步驟提供了核心的混淆特性。P盒置換將8個(gè)S盒輸出的32位結(jié)果進(jìn)行一個(gè)固定置換。在Delphi實(shí)現(xiàn)中S盒的實(shí)現(xiàn)效率至關(guān)重要。最直接的方法是用常量二維數(shù)組定義8個(gè)S盒。查表時(shí)將6位輸入轉(zhuǎn)換為行號(hào)和列號(hào)然后取出對(duì)應(yīng)的4位值。這里要注意二進(jìn)制到十進(jìn)制的轉(zhuǎn)換準(zhǔn)確性。const SBox1: array[0..3, 0..15] of Byte ( (14, 4, 13, 1, 2, 15, 11, 8, 3, 10, 6, 12, 5, 9, 0, 7), // ... 其他行 ); // 查表示例假設(shè)輸入6位為 b1b2b3b4b5b6 Row : (b1 shl 1) or b6; // 首位和末位組成行號(hào) (0-3) Col : (b2 shl 3) or (b3 shl 2) or (b4 shl 1) or b5; // 中間4位組成列號(hào) (0-15) Output4Bits : SBox1[Row, Col];2.4 加密與解密的對(duì)稱性DES加密和解密過(guò)程高度對(duì)稱這得益于Feistel網(wǎng)絡(luò)的結(jié)構(gòu)。解密過(guò)程與加密完全相同唯一的區(qū)別是子密鑰的使用順序相反。加密時(shí)使用K1到K16解密時(shí)則使用K16到K1。這意味著只要我們正確實(shí)現(xiàn)了加密函數(shù)和密鑰調(diào)度解密函數(shù)幾乎可以復(fù)用加密流程只需反轉(zhuǎn)子密鑰數(shù)組的輸入順序即可。這大大簡(jiǎn)化了我們的模塊設(shè)計(jì)。3. 模塊設(shè)計(jì)與封裝打造易用的加密單元理解了核心原理后我們需要從“能用”走向“好用”設(shè)計(jì)一個(gè)接口清晰、職責(zé)單一、易于集成的Delphi單元Unit。3.1 接口設(shè)計(jì)面向過(guò)程還是面向?qū)ο髮?duì)于這樣一個(gè)功能相對(duì)固定的模塊我傾向于提供一個(gè)簡(jiǎn)單、清晰的面向過(guò)程接口輔以一個(gè)可選的輕量級(jí)類封裝。核心導(dǎo)出函數(shù)可以設(shè)計(jì)如下unit DESUtils; interface type TDESKey array[0..7] of Byte; // 64位密鑰 TDESBlock array[0..7] of Byte; // 64位數(shù)據(jù)塊 // 基礎(chǔ)塊加密/解密 procedure DESEncryptBlock(const Input: TDESBlock; const Key: TDESKey; out Output: TDESBlock); procedure DESDecryptBlock(const Input: TDESBlock; const Key: TDESKey; out Output: TDESBlock); // 文本字符串加密/解密 (處理編碼和填充) function DESEncryptString(const PlainText: string; const Key: TDESKey): string; function DESDecryptString(const CipherText: string; const Key: TDESKey): string; // 輔助函數(shù)從字符串生成密鑰如哈希或簡(jiǎn)單轉(zhuǎn)換 procedure GenerateDESKeyFromString(const StrKey: string; out Key: TDESKey); implementation // ... 內(nèi)部實(shí)現(xiàn) end.DESEncryptBlock和DESDecryptBlock是核心直接操作64位塊。DESEncryptString和DESDecryptString則是面向用戶的便捷函數(shù)它們內(nèi)部需要處理兩個(gè)關(guān)鍵問(wèn)題字符編碼和分組填充。3.2 編碼與填充文本處理的基石Delphi的string類型默認(rèn)是AnsiString或UnicodeString取決于版本。為了加密我們必須將其轉(zhuǎn)換為字節(jié)序列。對(duì)于AnsiString可以直接使用TEncoding.ANSI或舊版的SysUtils函數(shù)。對(duì)于UnicodeString你需要決定是加密UTF-8編碼的字節(jié)流還是UTF-16LE的字節(jié)流。我強(qiáng)烈建議在模塊內(nèi)部統(tǒng)一使用UTF-8編碼因?yàn)樗嫒菪院们覍?duì)于英文文本更節(jié)省空間?？梢允褂肨Encoding.UTF8.GetBytes和GetString進(jìn)行轉(zhuǎn)換。DES是分組密碼要求明文長(zhǎng)度是64位8字節(jié)的整數(shù)倍。對(duì)于不是整數(shù)倍的文本必須進(jìn)行填充Padding。常用的方案是PKCS#7/PKCS#5填充如果需要填充N個(gè)字節(jié)則每個(gè)填充字節(jié)的值都是N。例如一個(gè)需要填充3字節(jié)的塊末尾就加上0x03 0x03 0x03。解密后讀取最后一個(gè)字節(jié)的值即可知道需要移除多少填充字節(jié)。這里有一個(gè)至關(guān)重要的細(xì)節(jié)如果明文長(zhǎng)度恰好是8的倍數(shù)是否需要填充答案是需要。按照PKCS#7標(biāo)準(zhǔn)這種情況下需要額外添加一個(gè)完整的填充塊8個(gè)字節(jié)每個(gè)字節(jié)值為0x08。這樣解密端才能無(wú)歧義地移除填充。很多自實(shí)現(xiàn)的加密模塊會(huì)忽略這一點(diǎn)導(dǎo)致加解密兩端對(duì)“整塊”數(shù)據(jù)的處理不一致。3.3 工作模式ECB與CBC的選擇我們上面討論的都是對(duì)單個(gè)數(shù)據(jù)塊Block的操作稱為電子密碼本ECB, Electronic Codebook模式。在ECB模式下相同的明文塊總是產(chǎn)生相同的密文塊。這對(duì)于文本加密來(lái)說(shuō)可能不安全因?yàn)闀?huì)暴露數(shù)據(jù)的模式。更常用的模式是密碼分組鏈接CBC, Cipher Block Chaining。在CBC模式下每個(gè)明文塊在加密前會(huì)先與前一個(gè)密文塊進(jìn)行異或操作第一個(gè)塊與一個(gè)初始化向量IV異或。這樣相同的明文塊在不同的位置也會(huì)產(chǎn)生不同的密文塊安全性更好。在我們的模塊中應(yīng)該至少提供ECB和CBC兩種模式。對(duì)于DESEncryptString可以增加一個(gè)參數(shù)Mode并提供一個(gè)IV。強(qiáng)烈建議默認(rèn)使用CBC模式并生成一個(gè)隨機(jī)的IV可以將其預(yù)置到密文結(jié)果的前8個(gè)字節(jié)解密時(shí)先取出IV。這樣即使密鑰相同每次加密同一段文本也會(huì)得到不同的密文結(jié)果。4. 核心代碼實(shí)現(xiàn)與逐行解析讓我們深入到一些關(guān)鍵函數(shù)的實(shí)現(xiàn)細(xì)節(jié)中。假設(shè)我們已定義好所有的置換表IP, IP-1, PC-1, PC-2, E, P和S盒。4.1 密鑰調(diào)度過(guò)程實(shí)現(xiàn)procedure GenerateSubKeys(const Key: TDESKey; var SubKeys: array of Int64); var i, Round: Integer; PC1_Out: array[0..6] of Byte; // 56位用7字節(jié)存儲(chǔ) C, D: DWORD; // 各28位用32位DWORD存儲(chǔ)高4位閑置 CD: Int64; begin // 1. 通過(guò)PC-1置換去除校驗(yàn)位得到56位密鑰 (存儲(chǔ)于PC1_Out) Permute(Key, PC1_Out, PC1_Table, 56); // Permute是通用的置換函數(shù) // 2. 將56位拆分成C0和D0 (各28位) C : (PC1_Out[0] shl 20) or (PC1_Out[1] shl 12) or (PC1_Out[2] shl 4) or ((PC1_Out[3] and $F0) shr 4); D : ((PC1_Out[3] and $0F) shl 24) or (PC1_Out[4] shl 16) or (PC1_Out[5] shl 8) or PC1_Out[6]; // 3. 生成16輪子密鑰 for Round : 1 to 16 do begin // 3.1 對(duì)C和D進(jìn)行左循環(huán)移位移位表指定每輪移1位或2位 C : CircularLeftShift28(C, ShiftTable[Round]); D : CircularLeftShift28(D, ShiftTable[Round]); // 3.2 合并C和D為56位并通過(guò)PC-2置換壓縮成48位子密鑰 CD : (Int64(C) shl 28) or Int64(D); // 合并成56位 Permute48(CD, SubKeys[Round-1], PC2_Table); // 置換并存儲(chǔ)到SubKeys數(shù)組 end; end;關(guān)鍵點(diǎn)解析Permute函數(shù)這是一個(gè)通用函數(shù)根據(jù)傳入的置換表將輸入比特位映射到輸出比特位。實(shí)現(xiàn)它需要用到我們之前編寫的GetBit和SetBit函數(shù)。CircularLeftShift28對(duì)28位數(shù)進(jìn)行循環(huán)左移。注意DWORD是32位我們需要一個(gè)掩碼($0FFFFFFF)來(lái)確保只操作低28位。Permute48專門為生成48位子密鑰優(yōu)化的置換函數(shù)。因?yàn)檩斎胧?6位Int64的低56位有效輸出是48位存儲(chǔ)于Int64的低48位。4.2 單塊加密的Feistel輪函數(shù)實(shí)現(xiàn)function Feistel(R: DWORD; const SubKey: Int64): DWORD; var ExpandedR: Int64; // 48位 SBoxOut: DWORD; // 32位 i: Integer; SixBits: Byte; Row, Col, FourBits: Byte; begin // 1. 擴(kuò)展置換E: 將32位R擴(kuò)展為48位 ExpandedR : 0; for i : 0 to 47 do begin if GetBit32(R, E_Table[i]-1) 1 then // E_Table元素值范圍1-32 SetBit64(ExpandedR, i, 1); end; // 2. 與子密鑰異或 ExpandedR : ExpandedR xor SubKey; // 3. S盒替換 (8個(gè)S盒) SBoxOut : 0; for i : 0 to 7 do begin // 取出6位輸入 SixBits : (ExpandedR shr (42 - i*6)) and $3F; // 從高位開始取 // 計(jì)算行和列 Row : ((SixBits and $20) shr 4) or (SixBits and $01); // 首位和末位 Col : (SixBits and $1E) shr 1; // 中間4位 // 查表得到4位輸出 FourBits : SBoxes[i][Row, Col]; // SBoxes是8個(gè)S盒的數(shù)組 // 組合到32位輸出中 SBoxOut : (SBoxOut shl 4) or FourBits; end; // 4. P盒置換 Result : 0; for i : 0 to 31 do begin if GetBit32(SBoxOut, P_Table[i]-1) 1 then SetBit32(Result, i, 1); end; end;注意事項(xiàng)GetBit32和SetBit32是操作32位DWORD的比特函數(shù)SetBit64用于操作Int64。S盒的輸入6位在ExpandedR中的排列順序需要與標(biāo)準(zhǔn)一致。上述代碼假設(shè)ExpandedR的高位bit 47對(duì)應(yīng)S盒1的輸入高位。S盒查表后輸出的4位需要按順序組合成32位的SBoxOut。4.3 完整的DES加密塊函數(shù)procedure DESEncryptBlock(const Input: TDESBlock; const Key: TDESKey; out Output: TDESBlock); var L, R, Temp: DWORD; i: Integer; SubKeys: array[1..16] of Int64; IP_Out, FP_In: TDESBlock; begin // 1. 生成子密鑰 GenerateSubKeys(Key, SubKeys); // 2. 初始置換IP Permute(Input, IP_Out, IP_Table, 64); // 3. 拆分成L0和R0 (各32位) L : (IP_Out[0] shl 24) or (IP_Out[1] shl 16) or (IP_Out[2] shl 8) or IP_Out[3]; R : (IP_Out[4] shl 24) or (IP_Out[5] shl 16) or (IP_Out[6] shl 8) or IP_Out[7]; // 4. 16輪Feistel網(wǎng)絡(luò) for i : 1 to 16 do begin Temp : R; R : L xor Feistel(R, SubKeys[i]); // 核心輪函數(shù) L : Temp; end; // 5. 最后一輪后不交換直接合并為R16L16 FP_In[0] : (R shr 24) and $FF; FP_In[1] : (R shr 16) and $FF; FP_In[2] : (R shr 8) and $FF; FP_In[3] : R and $FF; FP_In[4] : (L shr 24) and $FF; FP_In[5] : (L shr 16) and $FF; FP_In[6] : (L shr 8) and $FF; FP_In[7] : L and $FF; // 6. 最終置換IP-1 Permute(FP_In, Output, FP_Table, 64); end;解密函數(shù)DESDecryptBlock與此幾乎完全相同唯一區(qū)別是將第4步的循環(huán)改為for i : 16 downto 1 do即子密鑰逆序使用。5. 字符串加密的完整流程與CBC模式實(shí)現(xiàn)將塊加密函數(shù)提升到字符串加密并引入CBC模式這才是模塊實(shí)用化的關(guān)鍵。function DESEncryptStringCBC(const PlainText: string; const Key: TDESKey; const IV: TDESBlock): string; var UTF8Bytes: TBytes; PaddedLen, i, BlockCount: Integer; PaddedData: TBytes; PrevBlock, CurrentBlock, EncryptedBlock: TDESBlock; ResultBytes: TBytes; begin // 1. 字符串轉(zhuǎn)UTF-8字節(jié)數(shù)組 UTF8Bytes : TEncoding.UTF8.GetBytes(PlainText); // 2. PKCS#7填充 PaddedLen : Length(UTF8Bytes); if (PaddedLen mod 8) 0 then PaddedLen : PaddedLen (8 - (PaddedLen mod 8)) else PaddedLen : PaddedLen 8; // 整塊也需要填充一個(gè)完整塊 SetLength(PaddedData, PaddedLen); Move(UTF8Bytes[0], PaddedData[0], Length(UTF8Bytes)); // 填充字節(jié)值為填充長(zhǎng)度 FillChar(PaddedData[Length(UTF8Bytes)], PaddedLen - Length(UTF8Bytes), PaddedLen - Length(UTF8Bytes)); // 3. 準(zhǔn)備輸出緩沖區(qū)可選將IV放在密文最前面 SetLength(ResultBytes, 8 PaddedLen); // 前8字節(jié)放IV Move(IV[0], ResultBytes[0], 8); // 4. CBC模式加密 PrevBlock : IV; // 第一個(gè)塊的前一個(gè)塊是IV BlockCount : PaddedLen div 8; for i : 0 to BlockCount - 1 do begin // 將當(dāng)前8字節(jié)明文塊復(fù)制到CurrentBlock Move(PaddedData[i*8], CurrentBlock[0], 8); // CBC模式明文塊與前一個(gè)密文塊或IV異或 XorBlock(CurrentBlock, PrevBlock, CurrentBlock); // 加密異或后的塊 DESEncryptBlock(CurrentBlock, Key, EncryptedBlock); // 存儲(chǔ)密文塊并作為下一輪的“前一個(gè)密文塊” Move(EncryptedBlock[0], ResultBytes[8 i*8], 8); PrevBlock : EncryptedBlock; end; // 5. 將結(jié)果字節(jié)數(shù)組轉(zhuǎn)換為可傳輸?shù)淖址鏐ase64 Result : Base64Encode(ResultBytes); // 需要實(shí)現(xiàn)或引用一個(gè)Base64編碼函數(shù) end;解密函數(shù)DESDecryptStringCBC則是逆過(guò)程Base64解碼得到字節(jié)數(shù)組。取出前8字節(jié)作為IV。循環(huán)處理每個(gè)8字節(jié)密文塊先解密再與“前一個(gè)密文塊”異或得到明文塊注意第一個(gè)“前一個(gè)密文塊”是IV。將所有解密后的明文塊拼接。移除PKCS#7填充取最后一個(gè)字節(jié)的值N檢查最后N個(gè)字節(jié)是否都等于N然后截?cái)嘧址?。將UTF-8字節(jié)數(shù)組轉(zhuǎn)換回字符串。XorBlock是一個(gè)簡(jiǎn)單的輔助過(guò)程對(duì)兩個(gè)TDESBlock進(jìn)行按字節(jié)異或。6. 實(shí)測(cè)中的常見問(wèn)題、調(diào)試技巧與安全考量即使算法實(shí)現(xiàn)完全正確在集成和實(shí)際使用中也會(huì)遇到各種問(wèn)題。下面是我在多個(gè)項(xiàng)目中總結(jié)出的經(jīng)驗(yàn)。6.1 結(jié)果比對(duì)與單元測(cè)試如何驗(yàn)證你的DES實(shí)現(xiàn)是正確的最可靠的方法是使用已知答案測(cè)試KAT。你可以從NIST的官方測(cè)試向量Test Vectors中找一些例子這些例子提供了特定的密鑰、明文和對(duì)應(yīng)的密文。用你的程序加密看結(jié)果是否一致。務(wù)必測(cè)試所有16輪以及加密和解密的雙向驗(yàn)證。在Delphi中可以編寫簡(jiǎn)單的控制臺(tái)程序或單元測(cè)試來(lái)進(jìn)行自動(dòng)化比對(duì)。特別注意十六進(jìn)制字符串與字節(jié)數(shù)組的轉(zhuǎn)換一個(gè)字符錯(cuò)誤就會(huì)導(dǎo)致全盤皆輸。建議編寫這樣的測(cè)試函數(shù)procedure TestDES; var Key, Plain, Cipher, IV: TDESBlock; Result: TDESBlock; begin // 示例一個(gè)簡(jiǎn)單的測(cè)試向量 (需替換為官方向量) HexToBytes(0123456789ABCDEF, Key); // 假設(shè)HexToBytes是自定義函數(shù) HexToBytes(0123456789ABCDEF, Plain); HexToBytes(85E813540F0AB405, Cipher); // 預(yù)期的ECB模式密文 DESEncryptBlock(Plain, Key, Result); if not CompareMem(Result, Cipher, SizeOf(TDESBlock)) then raise Exception.Create(加密測(cè)試失敗); DESDecryptBlock(Cipher, Key, Result); if not CompareMem(Result, Plain, SizeOf(TDESBlock)) then raise Exception.Create(解密測(cè)試失敗); WriteLn(所有基礎(chǔ)測(cè)試通過(guò)。); end;6.2 編碼與填充引發(fā)的“幽靈”錯(cuò)誤這是最隱蔽的一類錯(cuò)誤。現(xiàn)象是加密解密短文本正常但長(zhǎng)文本或包含中文等非ASCII字符的文本時(shí)解密后出現(xiàn)亂碼或尾部有多余字符。編碼不一致確保加密端和解密端使用完全相同的字符編碼。如果你在加密時(shí)用了TEncoding.UTF8解密時(shí)也必須用它。在跨系統(tǒng)如Delphi服務(wù)端和別的語(yǔ)言客戶端通信時(shí)這一點(diǎn)至關(guān)重要。填充錯(cuò)誤檢查你的PKCS#7填充邏輯特別是當(dāng)明文長(zhǎng)度恰好是8的倍數(shù)時(shí)你是否添加了額外的填充塊解密后移除填充時(shí)是否正確地讀取了最后一個(gè)字節(jié)并驗(yàn)證了填充字節(jié)的合法性一個(gè)健壯的實(shí)現(xiàn)應(yīng)該在移除填充前驗(yàn)證所有填充字節(jié)的值是否都等于填充長(zhǎng)度以防止惡意構(gòu)造的密文導(dǎo)致程序異常。CBC模式的IV管理IV不需要保密但必須不可預(yù)測(cè)。通常每次加密都生成一個(gè)隨機(jī)IV可以使用RandomBytes函數(shù)。密文需要將這個(gè)IV一起傳遞如預(yù)置在密文前。解密端必須先提取IV再用它解密。絕對(duì)不要使用固定的IV那會(huì)讓CBC模式的安全性大打折扣。6.3 性能優(yōu)化淺談純Pascal實(shí)現(xiàn)的DES在速度上肯定不如原生機(jī)器碼或硬件加速。但對(duì)于大多數(shù)文本加密場(chǎng)景數(shù)據(jù)量在KB級(jí)別其性能是完全可接受的。如果確實(shí)遇到性能瓶頸可以考慮以下方向查表法優(yōu)化將一些復(fù)雜的位操作如擴(kuò)展置換E、P盒置換預(yù)先計(jì)算成查找表。例如可以將32位輸入到48位輸出的擴(kuò)展置換做成一個(gè)包含256個(gè)條目的表以輸入字節(jié)的一部分為索引用空間換時(shí)間。合并操作在Feistel輪函數(shù)中將S盒查表與P盒置換合并成一張大的查找表。因?yàn)镾盒輸出是32位P盒是對(duì)這32位的固定置換可以預(yù)先計(jì)算出8個(gè)S盒輸入6位經(jīng)過(guò)S盒和P盒后的最終32位輸出表。這樣一輪中原本需要8次S盒查表和1次P盒置換可以簡(jiǎn)化為8次合并查表。但這會(huì)消耗較大的內(nèi)存8 * 64 * 4字節(jié) 2KB。使用匯編代碼對(duì)于最核心的循環(huán)和位操作可以嵌入少量匯編代碼以獲得最大性能。但這會(huì)犧牲代碼的可移植性和可讀性。對(duì)于絕大多數(shù)應(yīng)用我建議先實(shí)現(xiàn)一個(gè)正確、清晰的版本在確認(rèn)功能無(wú)誤后再根據(jù)實(shí)際性能分析Profiling結(jié)果決定是否進(jìn)行優(yōu)化。6.4 關(guān)于DES安全性的現(xiàn)實(shí)考量我們必須清醒認(rèn)識(shí)到DES的56位密鑰在現(xiàn)代計(jì)算能力面前是脆弱的。它不應(yīng)被用于保護(hù)高價(jià)值、長(zhǎng)期有效的敏感數(shù)據(jù)。那么在什么情況下使用這個(gè)自實(shí)現(xiàn)的DES模塊是合理的呢內(nèi)部工具或配置文件的輕量級(jí)混淆防止明文存儲(chǔ)帶來(lái)的 casual inspection隨意查看。遺留系統(tǒng)兼容需要與舊系統(tǒng)或使用DES的第三方系統(tǒng)進(jìn)行數(shù)據(jù)交換。學(xué)習(xí)與教學(xué)目的理解分組密碼和Feistel網(wǎng)絡(luò)的絕佳實(shí)踐。作為更復(fù)雜方案的一部分例如使用三重DES3DES它通過(guò)多次應(yīng)用DES來(lái)增加有效密鑰長(zhǎng)度。你的單DES模塊可以作為構(gòu)建3DES的基礎(chǔ)。如果你需要更強(qiáng)的安全性應(yīng)考慮在模塊基礎(chǔ)上實(shí)現(xiàn)3DES或者轉(zhuǎn)向更現(xiàn)代的算法如AES。Delphi也有許多成熟的加密庫(kù)如LockBox、DCPcrypt可供選擇它們經(jīng)過(guò)了更嚴(yán)格的審計(jì)和優(yōu)化。7. 模塊的集成、擴(kuò)展與后續(xù)思考將這個(gè)DES模塊集成到你的項(xiàng)目中非常簡(jiǎn)單。只需將DESUtils.pas單元添加到項(xiàng)目路徑并在需要的地方uses它。對(duì)于密鑰管理建議不要將硬編碼的密鑰放在源代碼中?？梢詮呐渲梦募?、注冊(cè)表或由用戶輸入派生通過(guò)一個(gè)密鑰派生函數(shù)如PBKDF2的簡(jiǎn)化應(yīng)用。這個(gè)模塊還可以輕松擴(kuò)展支持3DES封裝三次DES加密/解密過(guò)程加密-解密-加密或?qū)?yīng)的解密流程。支持更多工作模式如輸出反饋OFB、計(jì)數(shù)器CTR模式。提供流式加密接口處理大文件或網(wǎng)絡(luò)流。實(shí)現(xiàn)這樣一個(gè)基礎(chǔ)加密模塊的過(guò)程遠(yuǎn)比調(diào)用一個(gè)現(xiàn)成API收獲更多。它迫使你深入理解算法每個(gè)步驟的細(xì)節(jié)直面比特操作、字節(jié)序、填充、編碼等底層問(wèn)題。下次當(dāng)你再使用高級(jí)加密庫(kù)時(shí)你會(huì)對(duì)背后發(fā)生的事情有更直觀的感受。最終這個(gè)模塊的價(jià)值不僅在于那幾行加密代碼更在于它為你構(gòu)建起的一套關(guān)于對(duì)稱加密如何從理論走向?qū)嵺`的系統(tǒng)性認(rèn)知。