現(xiàn)：從原理到工程實(shí)踐)
1. 項(xiàng)目概述為什么要在Delphi里重拾DES加密如果你用Delphi開發(fā)過一些需要處理敏感信息的桌面應(yīng)用、數(shù)據(jù)庫工具或者內(nèi)部管理系統(tǒng)大概率會遇到一個(gè)需求如何安全地存儲或傳輸一些配置信息、用戶密碼或者臨時(shí)的文本數(shù)據(jù)直接明文存放肯定不行用現(xiàn)成的庫又可能面臨部署依賴或者許可問題。這時(shí)候自己動手實(shí)現(xiàn)一個(gè)輕量、可靠、可嵌入的加密模塊就成了一個(gè)很實(shí)際的選擇。DESData Encryption Standard算法雖然從現(xiàn)代密碼學(xué)的角度看其56位的密鑰長度已不足以抵御暴力破解但在許多對安全性要求不是極端苛刻、且需要兼顧效率和兼容性的內(nèi)部應(yīng)用場景中它依然是一個(gè)經(jīng)典、穩(wěn)定且實(shí)現(xiàn)簡單的選擇。尤其是在處理一些非核心的、短期的或本地的文本數(shù)據(jù)加密時(shí)一個(gè)自實(shí)現(xiàn)的DES模塊能給你帶來極大的掌控感和靈活性。這個(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)目里幾行代碼就能完成對字符串的加密和解密。這對于維護(hù)一些遺留系統(tǒng)、開發(fā)輕量級工具或者單純想理解對稱加密算法在桌面端如何落地的開發(fā)者來說非常具有實(shí)踐價(jià)值。接下來我會帶你從原理到代碼從模塊設(shè)計(jì)到實(shí)際踩坑完整地走一遍這個(gè)實(shí)現(xiàn)過程。2. DES算法核心原理與Delphi實(shí)現(xiàn)的適配考量在動手寫代碼之前我們必須先搞清楚DES到底在干什么以及如何用Delphi的數(shù)據(jù)類型和操作來“模擬”它。DES是一種分組密碼一次處理64位8字節(jié)的明文數(shù)據(jù)塊通過一系列復(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)的第一要務(wù)就是建立一套比特位與字節(jié)數(shù)組之間高效、準(zhǔn)確的轉(zhuǎn)換機(jī)制。你不能直接在Delphi里操作一個(gè)“64位比特?cái)?shù)組”。我們的策略是使用array[0..7] of Byte來表示一個(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對應(yīng)比特位置1。而在我們的字節(jié)數(shù)組中索引0的字節(jié)是第一個(gè)字節(jié)。你必須嚴(yán)格遵循選定的約定并在所有置換表中保持一致否則加解密結(jié)果必然錯(cuò)誤。2.2 密鑰調(diào)度從64位到16輪子密鑰的生成DES的有效密鑰長度是56位但輸入是64位8字節(jié)其中第8、16、24、...、64位是奇偶校驗(yàn)位。在密鑰生成的第一步我們需要通過置換選擇PC-1去除這些校驗(yàn)位得到56位密鑰。在Delphi中我們同樣用比特操作函數(shù)根據(jù)PC-1表對這64位輸入密鑰8字節(jié)進(jìn)行置換輸出一個(gè)56位的中間表示。這56位被分成左右各28位的C0和D0兩部分。接下來是16輪迭代每一輪中C(i-1)和D(i-1)分別進(jìn)行左循環(huán)移位移位位數(shù)由輪次決定然后合并再通過置換選擇PC-2壓縮成48位的子密鑰K(i)。這里的關(guān)鍵點(diǎn)是這16個(gè)子密鑰需要預(yù)先計(jì)算并存儲起來。在加密或解密時(shí)直接按順序加密或逆序解密使用這些子密鑰避免在每次處理數(shù)據(jù)塊時(shí)都重復(fù)進(jìn)行密鑰調(diào)度這是提升性能的關(guān)鍵。我們可以聲明一個(gè)數(shù)組來存儲它們SubKeys: array[1..16] of Int64;雖然每輪密鑰是48位但用Int64存儲操作更方便。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)換為行號和列號然后取出對應(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; // 首位和末位組成行號 (0-3) Col : (b2 shl 3) or (b3 shl 2) or (b4 shl 1) or b5; // 中間4位組成列號 (0-15) Output4Bits : SBox1[Row, Col];2.4 加密與解密的對稱性DES加密和解密過程高度對稱這得益于Feistel網(wǎng)絡(luò)的結(jié)構(gòu)。解密過程與加密完全相同唯一的區(qū)別是子密鑰的使用順序相反。加密時(shí)使用K1到K16解密時(shí)則使用K16到K1。這意味著只要我們正確實(shí)現(xiàn)了加密函數(shù)和密鑰調(diào)度解密函數(shù)幾乎可以復(fù)用加密流程只需反轉(zhuǎn)子密鑰數(shù)組的輸入順序即可。這大大簡化了我們的模塊設(shè)計(jì)。3. 模塊設(shè)計(jì)與封裝打造易用的加密單元理解了核心原理后我們需要從“能用”走向“好用”設(shè)計(jì)一個(gè)接口清晰、職責(zé)單一、易于集成的Delphi單元Unit。3.1 接口設(shè)計(jì)面向過程還是面向?qū)ο髮τ谶@樣一個(gè)功能相對固定的模塊我傾向于提供一個(gè)簡單、清晰的面向過程接口輔以一個(gè)可選的輕量級類封裝。核心導(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ù)從字符串生成密鑰如哈希或簡單轉(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)鍵問題字符編碼和分組填充。3.2 編碼與填充文本處理的基石Delphi的string類型默認(rèn)是AnsiString或UnicodeString取決于版本。為了加密我們必須將其轉(zhuǎn)換為字節(jié)序列。對于AnsiString可以直接使用TEncoding.ANSI或舊版的SysUtils函數(shù)。對于UnicodeString你需要決定是加密UTF-8編碼的字節(jié)流還是UTF-16LE的字節(jié)流。我強(qiáng)烈建議在模塊內(nèi)部統(tǒng)一使用UTF-8編碼因?yàn)樗嫒菪院们覍τ谟⑽奈谋靖?jié)省空間?？梢允褂肨Encoding.UTF8.GetBytes和GetString進(jìn)行轉(zhuǎn)換。DES是分組密碼要求明文長度是64位8字節(jié)的整數(shù)倍。對于不是整數(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é)如果明文長度恰好是8的倍數(shù)是否需要填充答案是需要。按照PKCS#7標(biāo)準(zhǔn)這種情況下需要額外添加一個(gè)完整的填充塊8個(gè)字節(jié)每個(gè)字節(jié)值為0x08。這樣解密端才能無歧義地移除填充。很多自實(shí)現(xiàn)的加密模塊會忽略這一點(diǎn)導(dǎo)致加解密兩端對“整塊”數(shù)據(jù)的處理不一致。3.3 工作模式ECB與CBC的選擇我們上面討論的都是對單個(gè)數(shù)據(jù)塊Block的操作稱為電子密碼本ECB, Electronic Codebook模式。在ECB模式下相同的明文塊總是產(chǎn)生相同的密文塊。這對于文本加密來說可能不安全因?yàn)闀┞稊?shù)據(jù)的模式。更常用的模式是密碼分組鏈接CBC, Cipher Block Chaining。在CBC模式下每個(gè)明文塊在加密前會先與前一個(gè)密文塊進(jìn)行異或操作第一個(gè)塊與一個(gè)初始化向量IV異或。這樣相同的明文塊在不同的位置也會產(chǎn)生不同的密文塊安全性更好。在我們的模塊中應(yīng)該至少提供ECB和CBC兩種模式。對于DESEncryptString可以增加一個(gè)參數(shù)Mode并提供一個(gè)IV。強(qiáng)烈建議默認(rèn)使用CBC模式并生成一個(gè)隨機(jī)的IV可以將其預(yù)置到密文結(jié)果的前8個(gè)字節(jié)解密時(shí)先取出IV。這樣即使密鑰相同每次加密同一段文本也會得到不同的密文結(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)度過程實(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é)存儲 C, D: DWORD; // 各28位用32位DWORD存儲高4位閑置 CD: Int64; begin // 1. 通過PC-1置換去除校驗(yàn)位得到56位密鑰 (存儲于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 對C和D進(jìn)行左循環(huán)移位移位表指定每輪移1位或2位 C : CircularLeftShift28(C, ShiftTable[Round]); D : CircularLeftShift28(D, ShiftTable[Round]); // 3.2 合并C和D為56位并通過PC-2置換壓縮成48位子密鑰 CD : (Int64(C) shl 28) or Int64(D); // 合并成56位 Permute48(CD, SubKeys[Round-1], PC2_Table); // 置換并存儲到SubKeys數(shù)組 end; end;關(guān)鍵點(diǎn)解析Permute函數(shù)這是一個(gè)通用函數(shù)根據(jù)傳入的置換表將輸入比特位映射到輸出比特位。實(shí)現(xiàn)它需要用到我們之前編寫的GetBit和SetBit函數(shù)。CircularLeftShift28對28位數(shù)進(jìn)行循環(huán)左移。注意DWORD是32位我們需要一個(gè)掩碼($0FFFFFFF)來確保只操作低28位。Permute48專門為生成48位子密鑰優(yōu)化的置換函數(shù)。因?yàn)檩斎胧?6位Int64的低56位有效輸出是48位存儲于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對應(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é)值為填充長度 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); // 存儲密文塊并作為下一輪的“前一個(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則是逆過程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è)簡單的輔助過程對兩個(gè)TDESBlock進(jìn)行按字節(jié)異或。6. 實(shí)測中的常見問題、調(diào)試技巧與安全考量即使算法實(shí)現(xiàn)完全正確在集成和實(shí)際使用中也會遇到各種問題。下面是我在多個(gè)項(xiàng)目中總結(jié)出的經(jīng)驗(yàn)。6.1 結(jié)果比對與單元測試如何驗(yàn)證你的DES實(shí)現(xiàn)是正確的最可靠的方法是使用已知答案測試KAT。你可以從NIST的官方測試向量Test Vectors中找一些例子這些例子提供了特定的密鑰、明文和對應(yīng)的密文。用你的程序加密看結(jié)果是否一致。務(wù)必測試所有16輪以及加密和解密的雙向驗(yàn)證。在Delphi中可以編寫簡單的控制臺程序或單元測試來進(jìn)行自動化比對。特別注意十六進(jìn)制字符串與字節(jié)數(shù)組的轉(zhuǎn)換一個(gè)字符錯(cuò)誤就會導(dǎo)致全盤皆輸。建議編寫這樣的測試函數(shù)procedure TestDES; var Key, Plain, Cipher, IV: TDESBlock; Result: TDESBlock; begin // 示例一個(gè)簡單的測試向量 (需替換為官方向量) 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(加密測試失敗); DESDecryptBlock(Cipher, Key, Result); if not CompareMem(Result, Plain, SizeOf(TDESBlock)) then raise Exception.Create(解密測試失敗); WriteLn(所有基礎(chǔ)測試通過。); end;6.2 編碼與填充引發(fā)的“幽靈”錯(cuò)誤這是最隱蔽的一類錯(cuò)誤?，F(xiàn)象是加密解密短文本正常但長文本或包含中文等非ASCII字符的文本時(shí)解密后出現(xiàn)亂碼或尾部有多余字符。編碼不一致確保加密端和解密端使用完全相同的字符編碼。如果你在加密時(shí)用了TEncoding.UTF8解密時(shí)也必須用它。在跨系統(tǒng)如Delphi服務(wù)端和別的語言客戶端通信時(shí)這一點(diǎn)至關(guān)重要。填充錯(cuò)誤檢查你的PKCS#7填充邏輯特別是當(dāng)明文長度恰好是8的倍數(shù)時(shí)你是否添加了額外的填充塊解密后移除填充時(shí)是否正確地讀取了最后一個(gè)字節(jié)并驗(yàn)證了填充字節(jié)的合法性一個(gè)健壯的實(shí)現(xiàn)應(yīng)該在移除填充前驗(yàn)證所有填充字節(jié)的值是否都等于填充長度以防止惡意構(gòu)造的密文導(dǎo)致程序異常。CBC模式的IV管理IV不需要保密但必須不可預(yù)測。通常每次加密都生成一個(gè)隨機(jī)IV可以使用RandomBytes函數(shù)。密文需要將這個(gè)IV一起傳遞如預(yù)置在密文前。解密端必須先提取IV再用它解密。絕對不要使用固定的IV那會讓CBC模式的安全性大打折扣。6.3 性能優(yōu)化淺談純Pascal實(shí)現(xiàn)的DES在速度上肯定不如原生機(jī)器碼或硬件加速。但對于大多數(shù)文本加密場景數(shù)據(jù)量在KB級別其性能是完全可接受的。如果確實(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盒是對這32位的固定置換可以預(yù)先計(jì)算出8個(gè)S盒輸入6位經(jīng)過S盒和P盒后的最終32位輸出表。這樣一輪中原本需要8次S盒查表和1次P盒置換可以簡化為8次合并查表。但這會消耗較大的內(nèi)存8 * 64 * 4字節(jié) 2KB。使用匯編代碼對于最核心的循環(huán)和位操作可以嵌入少量匯編代碼以獲得最大性能。但這會犧牲代碼的可移植性和可讀性。對于絕大多數(shù)應(yīng)用我建議先實(shí)現(xiàn)一個(gè)正確、清晰的版本在確認(rèn)功能無誤后再根據(jù)實(shí)際性能分析Profiling結(jié)果決定是否進(jìn)行優(yōu)化。6.4 關(guān)于DES安全性的現(xiàn)實(shí)考量我們必須清醒認(rèn)識到DES的56位密鑰在現(xiàn)代計(jì)算能力面前是脆弱的。它不應(yīng)被用于保護(hù)高價(jià)值、長期有效的敏感數(shù)據(jù)。那么在什么情況下使用這個(gè)自實(shí)現(xiàn)的DES模塊是合理的呢內(nèi)部工具或配置文件的輕量級混淆防止明文存儲帶來的 casual inspection隨意查看。遺留系統(tǒng)兼容需要與舊系統(tǒng)或使用DES的第三方系統(tǒng)進(jìn)行數(shù)據(jù)交換。學(xué)習(xí)與教學(xué)目的理解分組密碼和Feistel網(wǎng)絡(luò)的絕佳實(shí)踐。作為更復(fù)雜方案的一部分例如使用三重DES3DES它通過多次應(yīng)用DES來增加有效密鑰長度。你的單DES模塊可以作為構(gòu)建3DES的基礎(chǔ)。如果你需要更強(qiáng)的安全性應(yīng)考慮在模塊基礎(chǔ)上實(shí)現(xiàn)3DES或者轉(zhuǎn)向更現(xiàn)代的算法如AES。Delphi也有許多成熟的加密庫如LockBox、DCPcrypt可供選擇它們經(jīng)過了更嚴(yán)格的審計(jì)和優(yōu)化。7. 模塊的集成、擴(kuò)展與后續(xù)思考將這個(gè)DES模塊集成到你的項(xiàng)目中非常簡單。只需將DESUtils.pas單元添加到項(xiàng)目路徑并在需要的地方uses它。對于密鑰管理建議不要將硬編碼的密鑰放在源代碼中?？梢詮呐渲梦募?、注冊表或由用戶輸入派生通過一個(gè)密鑰派生函數(shù)如PBKDF2的簡化應(yīng)用。這個(gè)模塊還可以輕松擴(kuò)展支持3DES封裝三次DES加密/解密過程加密-解密-加密或?qū)?yīng)的解密流程。支持更多工作模式如輸出反饋OFB、計(jì)數(shù)器CTR模式。提供流式加密接口處理大文件或網(wǎng)絡(luò)流。實(shí)現(xiàn)這樣一個(gè)基礎(chǔ)加密模塊的過程遠(yuǎn)比調(diào)用一個(gè)現(xiàn)成API收獲更多。它迫使你深入理解算法每個(gè)步驟的細(xì)節(jié)直面比特操作、字節(jié)序、填充、編碼等底層問題。下次當(dāng)你再使用高級加密庫時(shí)你會對背后發(fā)生的事情有更直觀的感受。最終這個(gè)模塊的價(jià)值不僅在于那幾行加密代碼更在于它為你構(gòu)建起的一套關(guān)于對稱加密如何從理論走向?qū)嵺`的系統(tǒng)性認(rèn)知。 Delphi中DES加密模塊實(shí)現(xiàn)：從原理到工程實(shí)踐
1. 項(xiàng)目概述為什么要在Delphi里重拾DES加密如果你用Delphi開發(fā)過一些需要處理敏感信息的桌面應(yīng)用、數(shù)據(jù)庫工具或者內(nèi)部管理系統(tǒng)大概率會遇到一個(gè)需求如何安全地存儲或傳輸一些配置信息、用戶密碼或者臨時(shí)的文本數(shù)據(jù)直接明文存放肯定不行用現(xiàn)成的庫又可能面臨部署依賴或者許可問題。這時(shí)候自己動手實(shí)現(xiàn)一個(gè)輕量、可靠、可嵌入的加密模塊就成了一個(gè)很實(shí)際的選擇。DESData Encryption Standard算法雖然從現(xiàn)代密碼學(xué)的角度看其56位的密鑰長度已不足以抵御暴力破解但在許多對安全性要求不是極端苛刻、且需要兼顧效率和兼容性的內(nèi)部應(yīng)用場景中它依然是一個(gè)經(jīng)典、穩(wěn)定且實(shí)現(xiàn)簡單的選擇。尤其是在處理一些非核心的、短期的或本地的文本數(shù)據(jù)加密時(shí)一個(gè)自實(shí)現(xiàn)的DES模塊能給你帶來極大的掌控感和靈活性。這個(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)目里幾行代碼就能完成對字符串的加密和解密。這對于維護(hù)一些遺留系統(tǒng)、開發(fā)輕量級工具或者單純想理解對稱加密算法在桌面端如何落地的開發(fā)者來說非常具有實(shí)踐價(jià)值。接下來我會帶你從原理到代碼從模塊設(shè)計(jì)到實(shí)際踩坑完整地走一遍這個(gè)實(shí)現(xiàn)過程。2. DES算法核心原理與Delphi實(shí)現(xiàn)的適配考量在動手寫代碼之前我們必須先搞清楚DES到底在干什么以及如何用Delphi的數(shù)據(jù)類型和操作來“模擬”它。DES是一種分組密碼一次處理64位8字節(jié)的明文數(shù)據(jù)塊通過一系列復(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)的第一要務(wù)就是建立一套比特位與字節(jié)數(shù)組之間高效、準(zhǔn)確的轉(zhuǎn)換機(jī)制。你不能直接在Delphi里操作一個(gè)“64位比特?cái)?shù)組”。我們的策略是使用array[0..7] of Byte來表示一個(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對應(yīng)比特位置1。而在我們的字節(jié)數(shù)組中索引0的字節(jié)是第一個(gè)字節(jié)。你必須嚴(yán)格遵循選定的約定并在所有置換表中保持一致否則加解密結(jié)果必然錯(cuò)誤。2.2 密鑰調(diào)度從64位到16輪子密鑰的生成DES的有效密鑰長度是56位但輸入是64位8字節(jié)其中第8、16、24、...、64位是奇偶校驗(yàn)位。在密鑰生成的第一步我們需要通過置換選擇PC-1去除這些校驗(yàn)位得到56位密鑰。在Delphi中我們同樣用比特操作函數(shù)根據(jù)PC-1表對這64位輸入密鑰8字節(jié)進(jìn)行置換輸出一個(gè)56位的中間表示。這56位被分成左右各28位的C0和D0兩部分。接下來是16輪迭代每一輪中C(i-1)和D(i-1)分別進(jìn)行左循環(huán)移位移位位數(shù)由輪次決定然后合并再通過置換選擇PC-2壓縮成48位的子密鑰K(i)。這里的關(guān)鍵點(diǎn)是這16個(gè)子密鑰需要預(yù)先計(jì)算并存儲起來。在加密或解密時(shí)直接按順序加密或逆序解密使用這些子密鑰避免在每次處理數(shù)據(jù)塊時(shí)都重復(fù)進(jìn)行密鑰調(diào)度這是提升性能的關(guān)鍵。我們可以聲明一個(gè)數(shù)組來存儲它們SubKeys: array[1..16] of Int64;雖然每輪密鑰是48位但用Int64存儲操作更方便。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)換為行號和列號然后取出對應(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; // 首位和末位組成行號 (0-3) Col : (b2 shl 3) or (b3 shl 2) or (b4 shl 1) or b5; // 中間4位組成列號 (0-15) Output4Bits : SBox1[Row, Col];2.4 加密與解密的對稱性DES加密和解密過程高度對稱這得益于Feistel網(wǎng)絡(luò)的結(jié)構(gòu)。解密過程與加密完全相同唯一的區(qū)別是子密鑰的使用順序相反。加密時(shí)使用K1到K16解密時(shí)則使用K16到K1。這意味著只要我們正確實(shí)現(xiàn)了加密函數(shù)和密鑰調(diào)度解密函數(shù)幾乎可以復(fù)用加密流程只需反轉(zhuǎn)子密鑰數(shù)組的輸入順序即可。這大大簡化了我們的模塊設(shè)計(jì)。3. 模塊設(shè)計(jì)與封裝打造易用的加密單元理解了核心原理后我們需要從“能用”走向“好用”設(shè)計(jì)一個(gè)接口清晰、職責(zé)單一、易于集成的Delphi單元Unit。3.1 接口設(shè)計(jì)面向過程還是面向?qū)ο髮τ谶@樣一個(gè)功能相對固定的模塊我傾向于提供一個(gè)簡單、清晰的面向過程接口輔以一個(gè)可選的輕量級類封裝。核心導(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ù)從字符串生成密鑰如哈希或簡單轉(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)鍵問題字符編碼和分組填充。3.2 編碼與填充文本處理的基石Delphi的string類型默認(rèn)是AnsiString或UnicodeString取決于版本。為了加密我們必須將其轉(zhuǎn)換為字節(jié)序列。對于AnsiString可以直接使用TEncoding.ANSI或舊版的SysUtils函數(shù)。對于UnicodeString你需要決定是加密UTF-8編碼的字節(jié)流還是UTF-16LE的字節(jié)流。我強(qiáng)烈建議在模塊內(nèi)部統(tǒng)一使用UTF-8編碼因?yàn)樗嫒菪院们覍τ谟⑽奈谋靖?jié)省空間?？梢允褂肨Encoding.UTF8.GetBytes和GetString進(jìn)行轉(zhuǎn)換。DES是分組密碼要求明文長度是64位8字節(jié)的整數(shù)倍。對于不是整數(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é)如果明文長度恰好是8的倍數(shù)是否需要填充答案是需要。按照PKCS#7標(biāo)準(zhǔn)這種情況下需要額外添加一個(gè)完整的填充塊8個(gè)字節(jié)每個(gè)字節(jié)值為0x08。這樣解密端才能無歧義地移除填充。很多自實(shí)現(xiàn)的加密模塊會忽略這一點(diǎn)導(dǎo)致加解密兩端對“整塊”數(shù)據(jù)的處理不一致。3.3 工作模式ECB與CBC的選擇我們上面討論的都是對單個(gè)數(shù)據(jù)塊Block的操作稱為電子密碼本ECB, Electronic Codebook模式。在ECB模式下相同的明文塊總是產(chǎn)生相同的密文塊。這對于文本加密來說可能不安全因?yàn)闀┞稊?shù)據(jù)的模式。更常用的模式是密碼分組鏈接CBC, Cipher Block Chaining。在CBC模式下每個(gè)明文塊在加密前會先與前一個(gè)密文塊進(jìn)行異或操作第一個(gè)塊與一個(gè)初始化向量IV異或。這樣相同的明文塊在不同的位置也會產(chǎn)生不同的密文塊安全性更好。在我們的模塊中應(yīng)該至少提供ECB和CBC兩種模式。對于DESEncryptString可以增加一個(gè)參數(shù)Mode并提供一個(gè)IV。強(qiáng)烈建議默認(rèn)使用CBC模式并生成一個(gè)隨機(jī)的IV可以將其預(yù)置到密文結(jié)果的前8個(gè)字節(jié)解密時(shí)先取出IV。這樣即使密鑰相同每次加密同一段文本也會得到不同的密文結(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)度過程實(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é)存儲 C, D: DWORD; // 各28位用32位DWORD存儲高4位閑置 CD: Int64; begin // 1. 通過PC-1置換去除校驗(yàn)位得到56位密鑰 (存儲于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 對C和D進(jìn)行左循環(huán)移位移位表指定每輪移1位或2位 C : CircularLeftShift28(C, ShiftTable[Round]); D : CircularLeftShift28(D, ShiftTable[Round]); // 3.2 合并C和D為56位并通過PC-2置換壓縮成48位子密鑰 CD : (Int64(C) shl 28) or Int64(D); // 合并成56位 Permute48(CD, SubKeys[Round-1], PC2_Table); // 置換并存儲到SubKeys數(shù)組 end; end;關(guān)鍵點(diǎn)解析Permute函數(shù)這是一個(gè)通用函數(shù)根據(jù)傳入的置換表將輸入比特位映射到輸出比特位。實(shí)現(xiàn)它需要用到我們之前編寫的GetBit和SetBit函數(shù)。CircularLeftShift28對28位數(shù)進(jìn)行循環(huán)左移。注意DWORD是32位我們需要一個(gè)掩碼($0FFFFFFF)來確保只操作低28位。Permute48專門為生成48位子密鑰優(yōu)化的置換函數(shù)。因?yàn)檩斎胧?6位Int64的低56位有效輸出是48位存儲于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對應(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é)值為填充長度 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); // 存儲密文塊并作為下一輪的“前一個(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則是逆過程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è)簡單的輔助過程對兩個(gè)TDESBlock進(jìn)行按字節(jié)異或。6. 實(shí)測中的常見問題、調(diào)試技巧與安全考量即使算法實(shí)現(xiàn)完全正確在集成和實(shí)際使用中也會遇到各種問題。下面是我在多個(gè)項(xiàng)目中總結(jié)出的經(jīng)驗(yàn)。6.1 結(jié)果比對與單元測試如何驗(yàn)證你的DES實(shí)現(xiàn)是正確的最可靠的方法是使用已知答案測試KAT。你可以從NIST的官方測試向量Test Vectors中找一些例子這些例子提供了特定的密鑰、明文和對應(yīng)的密文。用你的程序加密看結(jié)果是否一致。務(wù)必測試所有16輪以及加密和解密的雙向驗(yàn)證。在Delphi中可以編寫簡單的控制臺程序或單元測試來進(jìn)行自動化比對。特別注意十六進(jìn)制字符串與字節(jié)數(shù)組的轉(zhuǎn)換一個(gè)字符錯(cuò)誤就會導(dǎo)致全盤皆輸。建議編寫這樣的測試函數(shù)procedure TestDES; var Key, Plain, Cipher, IV: TDESBlock; Result: TDESBlock; begin // 示例一個(gè)簡單的測試向量 (需替換為官方向量) 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(加密測試失敗); DESDecryptBlock(Cipher, Key, Result); if not CompareMem(Result, Plain, SizeOf(TDESBlock)) then raise Exception.Create(解密測試失敗); WriteLn(所有基礎(chǔ)測試通過。); end;6.2 編碼與填充引發(fā)的“幽靈”錯(cuò)誤這是最隱蔽的一類錯(cuò)誤?，F(xiàn)象是加密解密短文本正常但長文本或包含中文等非ASCII字符的文本時(shí)解密后出現(xiàn)亂碼或尾部有多余字符。編碼不一致確保加密端和解密端使用完全相同的字符編碼。如果你在加密時(shí)用了TEncoding.UTF8解密時(shí)也必須用它。在跨系統(tǒng)如Delphi服務(wù)端和別的語言客戶端通信時(shí)這一點(diǎn)至關(guān)重要。填充錯(cuò)誤檢查你的PKCS#7填充邏輯特別是當(dāng)明文長度恰好是8的倍數(shù)時(shí)你是否添加了額外的填充塊解密后移除填充時(shí)是否正確地讀取了最后一個(gè)字節(jié)并驗(yàn)證了填充字節(jié)的合法性一個(gè)健壯的實(shí)現(xiàn)應(yīng)該在移除填充前驗(yàn)證所有填充字節(jié)的值是否都等于填充長度以防止惡意構(gòu)造的密文導(dǎo)致程序異常。CBC模式的IV管理IV不需要保密但必須不可預(yù)測。通常每次加密都生成一個(gè)隨機(jī)IV可以使用RandomBytes函數(shù)。密文需要將這個(gè)IV一起傳遞如預(yù)置在密文前。解密端必須先提取IV再用它解密。絕對不要使用固定的IV那會讓CBC模式的安全性大打折扣。6.3 性能優(yōu)化淺談純Pascal實(shí)現(xiàn)的DES在速度上肯定不如原生機(jī)器碼或硬件加速。但對于大多數(shù)文本加密場景數(shù)據(jù)量在KB級別其性能是完全可接受的。如果確實(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盒是對這32位的固定置換可以預(yù)先計(jì)算出8個(gè)S盒輸入6位經(jīng)過S盒和P盒后的最終32位輸出表。這樣一輪中原本需要8次S盒查表和1次P盒置換可以簡化為8次合并查表。但這會消耗較大的內(nèi)存8 * 64 * 4字節(jié) 2KB。使用匯編代碼對于最核心的循環(huán)和位操作可以嵌入少量匯編代碼以獲得最大性能。但這會犧牲代碼的可移植性和可讀性。對于絕大多數(shù)應(yīng)用我建議先實(shí)現(xiàn)一個(gè)正確、清晰的版本在確認(rèn)功能無誤后再根據(jù)實(shí)際性能分析Profiling結(jié)果決定是否進(jìn)行優(yōu)化。6.4 關(guān)于DES安全性的現(xiàn)實(shí)考量我們必須清醒認(rèn)識到DES的56位密鑰在現(xiàn)代計(jì)算能力面前是脆弱的。它不應(yīng)被用于保護(hù)高價(jià)值、長期有效的敏感數(shù)據(jù)。那么在什么情況下使用這個(gè)自實(shí)現(xiàn)的DES模塊是合理的呢內(nèi)部工具或配置文件的輕量級混淆防止明文存儲帶來的 casual inspection隨意查看。遺留系統(tǒng)兼容需要與舊系統(tǒng)或使用DES的第三方系統(tǒng)進(jìn)行數(shù)據(jù)交換。學(xué)習(xí)與教學(xué)目的理解分組密碼和Feistel網(wǎng)絡(luò)的絕佳實(shí)踐。作為更復(fù)雜方案的一部分例如使用三重DES3DES它通過多次應(yīng)用DES來增加有效密鑰長度。你的單DES模塊可以作為構(gòu)建3DES的基礎(chǔ)。如果你需要更強(qiáng)的安全性應(yīng)考慮在模塊基礎(chǔ)上實(shí)現(xiàn)3DES或者轉(zhuǎn)向更現(xiàn)代的算法如AES。Delphi也有許多成熟的加密庫如LockBox、DCPcrypt可供選擇它們經(jīng)過了更嚴(yán)格的審計(jì)和優(yōu)化。7. 模塊的集成、擴(kuò)展與后續(xù)思考將這個(gè)DES模塊集成到你的項(xiàng)目中非常簡單。只需將DESUtils.pas單元添加到項(xiàng)目路徑并在需要的地方uses它。對于密鑰管理建議不要將硬編碼的密鑰放在源代碼中?？梢詮呐渲梦募?、注冊表或由用戶輸入派生通過一個(gè)密鑰派生函數(shù)如PBKDF2的簡化應(yīng)用。這個(gè)模塊還可以輕松擴(kuò)展支持3DES封裝三次DES加密/解密過程加密-解密-加密或?qū)?yīng)的解密流程。支持更多工作模式如輸出反饋OFB、計(jì)數(shù)器CTR模式。提供流式加密接口處理大文件或網(wǎng)絡(luò)流。實(shí)現(xiàn)這樣一個(gè)基礎(chǔ)加密模塊的過程遠(yuǎn)比調(diào)用一個(gè)現(xiàn)成API收獲更多。它迫使你深入理解算法每個(gè)步驟的細(xì)節(jié)直面比特操作、字節(jié)序、填充、編碼等底層問題。下次當(dāng)你再使用高級加密庫時(shí)你會對背后發(fā)生的事情有更直觀的感受。最終這個(gè)模塊的價(jià)值不僅在于那幾行加密代碼更在于它為你構(gòu)建起的一套關(guān)于對稱加密如何從理論走向?qū)嵺`的系統(tǒng)性認(rèn)知。