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