1. 項目概述為什么今天還要聊VB加密“Visual Basic加密解密實戰源碼剖析”這個標題乍一看可能會讓很多新入行的開發者感到困惑。Visual Basic那不是上個世紀的古董語言嗎現在誰還用VB做加密啊確實在Python、Go、Java等現代語言大行其道的今天VB尤其是經典的VB6早已不是技術主流。但恰恰是這種“非主流”讓這個項目具備了獨特的教學和實踐價值。我之所以想深入聊聊這個話題是因為加密解密本身是計算機安全領域的基石其核心思想——對稱加密、非對稱加密、哈希算法、密鑰管理——是跨語言、跨時代的。而VB以其極致的簡單性和直觀的可視化界面成為了理解這些復雜概念的絕佳“教學模具”。當你用VB寫一個加密程序時你不得不關注每一個字節的流動每一個API的調用這比在高級語言中調用一個現成的crypto庫要深刻得多。這個過程能讓你真正明白一個AES加密函數內部到底在做什么一個RSA密鑰對是如何生成的而不是僅僅成為一個“調包俠”。此外仍有大量的遺留系統、工業控制軟件或特定行業應用是基于VB包括VB6和VB.NET開發的。為這些系統增加或維護數據安全模塊是真實存在的需求。因此掌握如何在VB環境下實現安全的加密解密不僅是一次懷舊的技術考古更是一項具有現實意義的技能。本文將從一個老程序員的角度帶你手把手剖析VB實現加密解密的完整流程、核心源碼與那些教科書上不會寫的“坑”。2. 核心思路與方案選型在VB的“枷鎖”中跳舞在VB中實現加密首先面臨的就是環境與能力的限制。VB6沒有內置的強加密庫.NET Framework中的System.Security.Cryptography命名空間雖然強大但在VB.NET中直接使用也需要理解其背后的原理。我們的核心思路是利用Windows系統底層提供的加密APICryptoAPI/CNG或實現經典的加密算法。2.1 方案對比與選型理由面對VB的加密需求通常有以下幾個路徑調用Windows CryptoAPI這是最正統、兼容性最好的方式。CryptoAPI是微軟提供的一套加密接口從Windows 95時代就存在VB6可以通過API聲明直接調用。它支持DES、3DES、AESRijndael、RSA等主流算法并且密鑰管理、證書存儲等都由系統負責相對安全。使用第三方ActiveX控件或COM組件市面上有一些封裝好的加密控件通過簡單的屬性設置和方法調用就能完成加密。優點是快速缺點是黑盒化、可能有許可費用、且存在依賴。純VB代碼實現算法自己用VB代碼重寫AES、DES、MD5等算法。這無疑是最有挑戰性也最能學到東西的方式。但對于生產環境除非你是密碼學專家否則極易因實現不當引入安全漏洞如側信道攻擊。在VB.NET中使用.NET Cryptography庫如果項目是VB.NET那么這是首選。AesCryptoServiceProvider、RSACryptoServiceProvider等類功能完善是托管代碼中的標準做法。為什么我們選擇“調用CryptoAPI”作為主線進行剖析因為它最具代表性。它連接了古老的VB6和現代的加密理念整個過程涉及API聲明、字節數組操作、內存管理、錯誤處理等VB編程的核心難點。理解了它你不僅能學會加密更能深刻理解VB與操作系統交互的本質。這對于維護遺留代碼或深化Windows編程理解至關重要。2.2 整體架構設計一個健壯的VB加密模塊無論采用哪種方案都應遵循以下架構層次用戶界面層簡單的文本框輸入明文/密文按鈕觸發加密/解密操作。VB的強項正在于此用TextBox和CommandButton快速搭建。業務邏輯層協調整個流程。包括獲取用戶輸入、選擇算法和密鑰、調用核心加密函數、處理返回結果如將字節數組轉換為Base64字符串以便顯示和傳輸。加密核心層這是我們剖析的重點。它封裝了與CryptoAPI交互的所有細節創建加密上下文(CryptAcquireContext)、生成或導入密鑰(CryptGenKey/CryptImportKey)、執行加密解密(CryptEncrypt/CryptDecrypt)、以及最后的清理工作。數據表示層負責在VB的字符串、字節數組與CryptoAPI所需的字節流之間進行轉換。這里涉及到VB令人頭疼的字符串編碼問題ANSI vs Unicode。這個架構確保了功能的模塊化即使未來想替換核心的實現方式比如改用.NET庫其他層也能保持相對穩定。3. 核心細節解析與CryptoAPI的“握手”直接調用Windows API是VB進階的必經之路也是很多新手望而生畏的地方。加密相關的API尤其如此因為它涉及大量二進制數據和復雜的數據結構。3.1 API聲明與常量定義第一步是在VB模塊中正確聲明要使用的CryptoAPI函數、結構和常量。一個錯誤的聲明會導致調用失敗甚至程序崩潰。‘ 在模塊頂部聲明 Option Explicit ‘ 常量聲明 Public Const PROV_RSA_FULL As Long 1 Public Const CALG_RC4 As Long H6801 ‘ 這里以RC4流加密為例實際可根據需要改為CALG_AES_128等 Public Const CRYPT_EXPORTABLE As Long H1 Public Const KP_MODE As Long 4 Public Const CRYPT_MODE_CBC As Long 1 ‘ 使用CBC模式 ‘ 關鍵API函數聲明 Public Declare Function CryptAcquireContext Lib “advapi32.dll” Alias “CryptAcquireContextA” _ (ByRef phProv As Long, ByVal pszContainer As String, ByVal pszProvider As String, _ ByVal dwProvType As Long, ByVal dwFlags As Long) As Long Public Declare Function CryptCreateHash Lib “advapi32.dll” _ (ByVal hProv As Long, ByVal Algid As Long, ByVal hKey As Long, ByVal dwFlags As Long, _ ByRef phHash As Long) As Long Public Declare Function CryptHashData Lib “advapi32.dll” _ (ByVal hHash As Long, ByVal pbData As String, ByVal dwDataLen As Long, ByVal dwFlags As Long) As Long Public Declare Function CryptDeriveKey Lib “advapi32.dll” _ (ByVal hProv As Long, ByVal Algid As Long, ByVal hBaseData As Long, ByVal dwFlags As Long, _ ByRef phKey As Long) As Long Public Declare Function CryptEncrypt Lib “advapi32.dll” _ (ByVal hKey As Long, ByVal hHash As Long, ByVal Final As Long, ByVal dwFlags As Long, _ ByVal pbData As String, ByRef pdwDataLen As Long, ByVal dwBufLen As Long) As Long Public Declare Function CryptDecrypt Lib “advapi32.dll” _ (ByVal hKey As Long, ByVal hHash As Long, ByVal Final As Long, ByVal dwFlags As Long, _ ByVal pbData As String, ByRef pdwDataLen As Long) As Long ‘ … 其他如CryptDestroyKey, CryptReleaseContext等清理函數聲明省略注意這里使用的是Declare Function和Alias “CryptAcquireContextA”這表示我們調用的是ANSI版本的API。在VB6中字符串默認是BSTR一種Unicode字符串但很多老API需要ANSI字符串。使用Alias “A”版本并傳遞String類型VB會自動進行Unicode到ANSI的轉換。這是一個非常重要的細節處理不當會導致亂碼或失敗。3.2 密鑰管理與派生安全的加密密鑰是根本。在示例中我們通常從一個密碼口令派生出一個加密密鑰而不是直接使用密碼本身。這需要使用哈希函數。創建哈希對象使用CryptCreateHash指定算法如CALG_MD5。哈希密碼數據使用CryptHashData將用戶輸入的密碼字符串需轉換為ANSI添加到哈希對象中。派生密鑰使用CryptDeriveKey從剛才生成的哈希值派生出指定算法如CALG_RC4或CALG_AES_128的密鑰。這個過程確保了即使密碼簡單派生出的密鑰也具有密碼學強度并且相同的密碼總是派生出相同的密鑰用于解密。但請注意單純使用MD5等哈希從口令派生密鑰在現代標準下已不夠安全更佳實踐是使用PBKDF2等密鑰派生函數但在純VB6CryptoAPI環境下實現較復雜。3.3 加密解密的數據緩沖區管理這是整個過程中最容易出錯的地方。CryptEncrypt函數有一個關鍵特性它可能增大數據。為什么因為塊加密算法如AES、DES需要填充Padding以使數據長度符合塊大小的整數倍。例如AES-128的塊大小是16字節。你加密一個15字節的數據加密后會變成16字節填充了1個字節。你加密一個16字節的數據加密后會變成32字節因為需要填充一個完整的塊來標識結束具體取決于填充模式。如何應對第一次調用CryptEncrypt時將pbData參數設為vbNullStringpdwDataLen參數傳入一個變量如lngDataLen函數會在這個變量中返回所需的緩沖區大小。根據返回的大小重新分配一個足夠大的字符串緩沖區。將你的明文數據拷貝到這個緩沖區的前部。第二次調用CryptEncrypt傳入這個緩沖區并再次傳入緩沖區長度此時是實際分配的大小。函數會執行加密并更新pdwDataLen為加密后的實際數據長度。解密時CryptDecrypt會處理填充的移除所以解密后的數據長度會小于或等于密文長度。你需要根據pdwDataLen返回的實際長度來截取有效數據。‘ 偽代碼示意加密過程 Dim lngPlainLen As Long, lngBufLen As Long Dim strBuffer As String lngPlainLen Len(strPlainText) lngBufLen lngPlainLen ‘ 第一次調用獲取所需緩沖區大小 If CryptEncrypt(hKey, 0, 1, 0, vbNullString, lngBufLen, 0) 0 Then ‘ 錯誤處理 End If ‘ 分配緩沖區 strBuffer String$(lngBufLen, Chr$(0)) ‘ 將明文拷貝到緩沖區 Mid$(strBuffer, 1) strPlainText lngPlainLen lngBufLen ‘ 注意此時lngPlainLen被用作輸入長度參數 ‘ 第二次調用真正加密 If CryptEncrypt(hKey, 0, 1, 0, strBuffer, lngPlainLen, lngBufLen) 0 Then ‘ 錯誤處理 End If ‘ 此時strBuffer的前lngPlainLen字節就是密文 strCipherText Left$(strBuffer, lngPlainLen)4. 完整實戰流程從零構建一個VB加密工具讓我們拋開理論動手構建一個簡單的、支持口令加密的文本加密器。我們將使用CryptoAPI和RC4算法因其是流加密無需處理填充簡化初次理解。4.1 第一步創建項目與界面打開VB6新建一個“標準EXE”工程。在默認的Form1上添加以下控件TextBox命名為txtPassword用于輸入密碼。將PasswordChar屬性設為*。TextBox命名為txtInputMultiLine設為True用于輸入明文或密文。TextBox命名為txtOutputMultiLine設為TrueLocked設為True用于顯示結果。CommandButton命名為cmdEncryptCaption設為“加密”。CommandButton命名為cmdDecryptCaption設為“解密”。添加一個模塊Module1.bas將上一節中所有的API聲明、常量定義和核心函數代碼粘貼進去。4.2 第二步編寫核心加密函數在模塊中我們編寫一個可重用的加密/解密函數。由于RC4是對稱算法加密和解密是同一個過程。Public Function SimpleRC4Crypt(ByVal strInput As String, ByVal strPassword As String, ByVal fEncrypt As Boolean) As String Dim hProv As Long, hHash As Long, hKey As Long Dim lngResult As Long Dim strBuffer As String Dim lngDataLen As Long ‘ 1. 獲取加密服務上下文 If CryptAcquireContext(hProv, vbNullString, vbNullString, PROV_RSA_FULL, 0) 0 Then ‘ 嘗試創建新的密鑰容器 If CryptAcquireContext(hProv, vbNullString, vbNullString, PROV_RSA_FULL, CRYPT_NEWKEYSET) 0 Then MsgBox “無法獲取加密上下文” vbCritical Exit Function End If End If On Error GoTo ErrorHandler ‘ 確保發生錯誤時能釋放資源 ‘ 2. 創建哈希對象 If CryptCreateHash(hProv, CALG_MD5, 0, 0, hHash) 0 Then GoTo ErrorHandler ‘ 3. 將密碼加入哈希 ‘ 注意CryptoAPI的ANSI版本需要ANSI字符串。VB的String是Unicode直接傳遞會導致問題。 ‘ 一種簡單轉換使用StrConv(strPassword, vbFromUnicode)但更嚴謹的做法是操作字節數組。 ‘ 此處為簡化假設密碼是ASCII字符直接傳遞。 If CryptHashData(hHash, strPassword, Len(strPassword), 0) 0 Then GoTo ErrorHandler ‘ 4. 從哈希派生密鑰 If CryptDeriveKey(hProv, CALG_RC4, hHash, CRYPT_EXPORTABLE, hKey) 0 Then GoTo ErrorHandler ‘ 5. 準備數據緩沖區 lngDataLen Len(strInput) strBuffer strInput ‘ 復制輸入數據 ‘ 6. 執行加密或解密RC4加密解密是同一操作 If fEncrypt Then lngResult CryptEncrypt(hKey, 0, 1, 0, strBuffer, lngDataLen, Len(strBuffer)) Else lngResult CryptDecrypt(hKey, 0, 1, 0, strBuffer, lngDataLen) End If If lngResult 0 Then GoTo ErrorHandler ‘ 7. 返回結果 SimpleRC4Crypt Left$(strBuffer, lngDataLen) ErrorHandler: ‘ 8. 逆序清理所有句柄 If hKey 0 Then CryptDestroyKey hKey If hHash 0 Then CryptDestroyHash hHash If hProv 0 Then CryptReleaseContext hProv, 0 If Err.Number 0 Then ‘ 可以記錄錯誤信息 Err.Number, Err.Description SimpleRC4Crypt “” End If End Function4.3 第三步連接界面與邏輯回到Form1為兩個按鈕編寫點擊事件。Private Sub cmdEncrypt_Click() Dim strPassword As String, strInput As String, strOutput As String strPassword Trim$(txtPassword.Text) strInput txtInput.Text If strPassword “” Then MsgBox “請輸入密碼” vbExclamation Exit Sub End If strOutput SimpleRC4Crypt(strInput, strPassword, True) If strOutput “” Then txtOutput.Text strOutput ‘ 通常我們會將二進制密文轉換為Base64以便于文本顯示和傳輸 ‘ 這里為了直觀直接顯示可能包含不可見字符 Else txtOutput.Text “加密失敗” End If End Sub Private Sub cmdDecrypt_Click() Dim strPassword As String, strInput As String, strOutput As String strPassword Trim$(txtPassword.Text) strInput txtInput.Text ‘ 這里輸入的是密文 If strPassword “” Then MsgBox “請輸入密碼” vbExclamation Exit Sub End If strOutput SimpleRC4Crypt(strInput, strPassword, False) If strOutput “” Then txtOutput.Text strOutput Else txtOutput.Text “解密失敗密碼錯誤或數據損壞。” End If End Sub4.4 第四步測試與驗證運行程序F5。在密碼框輸入一個密碼如“MySecret”。在上方文本框輸入一段明文如“Hello, VB Crypto World!”。點擊“加密”下方文本框會顯示一堆亂碼密文。點擊“解密”下方文本框應該能正確恢復出“Hello, VB Crypto World!”。恭喜你已經完成了一個最基礎的VB加密工具但這僅僅是開始它存在很多問題比如密碼編碼、錯誤處理粗糙、結果不是文本友好格式而這正是我們接下來要優化的。5. 進階優化與關鍵問題剖析一個玩具級的加密模塊和工業級可用的模塊之間隔著無數個細節。下面我們來逐一攻克。5.1 編碼問題的終極解決方案前面提到密碼字符串的傳遞存在編碼問題。CryptHashData期望的是字節序列。如果密碼包含中文或特殊字符直接傳遞String會導致錯誤。正確的做法是使用字節數組Byte Array。我們需要修改SimpleRC4Crypt函數中哈希密碼的部分‘ … 省略其他代碼 … ‘ 3. 將密碼加入哈希 (修正版) Dim abytPassword() As Byte ‘ 將Unicode密碼轉換為ANSI字節數組。注意這會丟失非ANSI字符信息。 ‘ 更健壯的做法是使用UTF-8轉換但這需要額外的輔助函數或使用VB.NET。 abytPassword StrConv(strPassword, vbFromUnicode) If CryptHashData(hHash, abytPassword(0), UBound(abytPassword) 1, 0) 0 Then GoTo ErrorHandler ‘ … 省略其他代碼 …同時輸入輸出數據也可能不是純文本。為了通用性我們的函數應該處理字節數組而不是字符串。但為了接口友好可以提供字符串版本內部轉換和字節數組版本。5.2 實現更安全的算法與模式以AES-CBC為例RC4已被證明是不安全的應避免用于新系統。讓我們將核心算法升級到AES-256-CBC。這涉及到更多細節更改算法常量使用CALG_AES_256H6610。處理初始化向量IVCBC模式需要IV。IV應該是隨機且不可預測的每次加密都應不同但需要和密文一起保存以供解密。處理填充AES是塊加密必須處理填充。CryptoAPI默認使用PKCS#7填充。我們需要重寫核心函數使其能夠生成隨機IV并將IV預置在密文之前一種常見做法。解密時先從密文頭部提取IV。Public Function AES256EncryptData(abytPlain() As Byte, strPassword As String) As Byte() ‘ 返回的字節數組結構IV (16字節) 密文 Dim hProv As Long, hHash As Long, hKey As Long Dim abytIV(0 To 15) As Byte ‘ AES塊大小是16字節 Dim abytCipher() As Byte Dim lngPlainLen As Long, lngBufLen As Long Dim i As Long ‘ 1. 獲取上下文、創建哈希、派生密鑰略同前 ‘ 2. 生成隨機IV If CryptGenRandom(hProv, 16, abytIV(0)) 0 Then GoTo ErrorHandler ‘ 3. 設置密鑰的CBC模式和IV If CryptSetKeyParam(hKey, KP_MODE, CRYPT_MODE_CBC, 0) 0 Then GoTo ErrorHandler If CryptSetKeyParam(hKey, KP_IV, abytIV(0), 0) 0 Then GoTo ErrorHandler ‘ 4. 計算加密后所需緩沖區大小 lngPlainLen UBound(abytPlain) 1 lngBufLen lngPlainLen If CryptEncrypt(hKey, 0, 1, 0, ByVal 0, lngBufLen, 0) 0 Then GoTo ErrorHandler ‘ 5. 準備緩沖區IV 密文 ReDim abytCipher(0 To 15 lngBufLen - 1) ‘ 前16字節放IV For i 0 To 15 abytCipher(i) abytIV(i) Next i ‘ 將明文數據拷貝到緩沖區IV之后的部分 For i 0 To lngPlainLen - 1 abytCipher(16 i) abytPlain(i) Next i ‘ 6. 執行加密 lngPlainLen lngBufLen ‘ 注意這個技巧lngPlainLen現在代表“待加密數據長度” If CryptEncrypt(hKey, 0, 1, 0, abytCipher(16), lngPlainLen, lngBufLen) 0 Then GoTo ErrorHandler ‘ 7. 調整數組大小為實際大小IV長度 密文長度 ReDim Preserve abytCipher(0 To 15 lngPlainLen - 1) AES256EncryptData abytCipher ErrorHandler: ‘ 清理代碼略 End Function解密函數則需要先拆分出IV然后設置密鑰模式和IV最后解密。5.3 錯誤處理與日志記錄生產代碼絕不能僅僅用MsgBox或靜默失敗。我們需要一個完善的錯誤處理機制。使用GetLastErrorAPI當CryptoAPI函數返回0失敗時可以調用GetLastError獲取詳細的系統錯誤碼。錯誤碼轉換編寫一個函數將錯誤碼轉換為可讀的描述。可以通過FormatMessageAPI實現。日志記錄將錯誤信息、操作時間等記錄到文件或事件查看器便于排查問題。Private Declare Function GetLastError Lib “kernel32” () As Long Private Declare Function FormatMessage Lib “kernel32” Alias “FormatMessageA” _ (ByVal dwFlags As Long, ByVal lpSource As Long, ByVal dwMessageId As Long, _ ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, _ ByVal Arguments As Long) As Long Public Function GetCryptoAPIErrorText(ByVal lngErrorCode As Long) As String Const FORMAT_MESSAGE_FROM_SYSTEM H1000 Dim strBuffer As String Dim lngLength As Long strBuffer String$(256, Chr$(0)) lngLength FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, 0, lngErrorCode, 0, strBuffer, Len(strBuffer), 0) If lngLength 0 Then GetCryptoAPIErrorText Left$(strBuffer, lngLength) Else GetCryptoAPIErrorText “未知錯誤” CStr(lngErrorCode) End If End Function在錯誤處理標簽ErrorHandler中可以這樣使用If hKey 0 Then CryptDestroyKey hKey ‘ … 其他清理 … If Err.Number 0 Then LogError “SimpleRC4Crypt函數內部錯誤” Err.Description ElseIf lngResult 0 Then ‘ API調用失敗 Dim lngErr As Long lngErr GetLastError() LogError “CryptoAPI調用失敗” GetCryptoAPIErrorText(lngErr) End If6. 常見陷阱與實戰排坑指南在VB中玩加密踩坑是家常便飯。下面是我多年總結的一些典型問題和解決方法。6.1 數據對齊與緩沖區溢出這是最隱蔽的Bug來源之一。Windows API特別是涉及內存操作的對數據對齊很敏感。在VB中如果你直接傳遞一個字節數組的某個元素地址如abytData(0)需要確保這個數組在內存中是連續且對齊的。使用ReDim聲明的動態數組通常是安全的。但如果你操作的是結構體問題就復雜了。避坑技巧對于復雜的API調用盡量使用動態字節數組作為中間緩沖區。避免直接傳遞自定義Type變量的地址除非你完全了解其內存布局并使用了LenB和VarPtr等危險操作。6.2 字符串與字節數組的轉換黑洞VB6的字符串是BSTR以雙字節Unicode存儲。而加密操作本質是面向字節的。StrConv函數是你的朋友但也是陷阱。vbFromUnicode將Unicode字符串轉換為當前系統代碼頁的ANSI字節數組。如果字符串包含當前代碼頁無法表示的字符如中文在英文系統上信息會丟失。vbUnicode將字節數組解釋為Unicode字符序列。如果你把一個加密后的字節數組本質是隨機字節用這個轉換得到的是亂碼并且可能包含字符串結束符Chr$(0)導致字符串被意外截斷。解決方案對于需要保持數據完整性的場景如加密后的密文、哈希值永遠不要使用String類型作為內部處理類型始終使用字節數組Byte()。僅在最終需要顯示或傳輸時將字節數組轉換為Base64或Hex字符串。‘ 字節數組轉Base64需要自己實現或借助第三方控件 Function BytesToBase64(abytData() As Byte) As String ‘ 實現略可使用MSXML的DOMDocument或第三方代碼 End Function ‘ Base64轉字節數組 Function Base64ToBytes(ByVal strBase64 As String) As Byte() ‘ 實現略 End Function6.3 密鑰管理不當我們示例中從口令派生密鑰的方式非常初級。在實際項目中不要硬編碼密鑰任何寫在源碼里的密鑰都不是秘密。使用強密鑰派生函數如果必須從口令派生應使用PBKDF2、bcrypt或scrypt并加入鹽值Salt。在純VB6中實現這些有難度可以考慮封裝一個小的、經過審計的C DLL來提供這些功能。考慮使用Windows證書存儲對于高安全需求可以使用CryptoAPI將非對稱密鑰對RSA存儲在受保護的Windows證書存儲區中這是更專業和安全的做法。6.4 算法與模式的選擇棄用弱算法絕對不要使用DES、RC2、RC4、MD5、SHA1進行新的加密或完整性驗證。使用AES128/256、SHA256/384/512。理解模式ECB模式是不安全的它會暴露明文中的重復模式。始終使用CBC需要IV、CTR或GCM認證加密模式。GCM模式在CryptoAPI中可能支持有限在.NET中更易用。認證很重要加密只能保證機密性不能保證完整性。攻擊者可能篡改密文。對于重要數據應使用HMAC或選擇像GCM這樣的認證加密模式。6.5 資源泄露每一個通過CryptAcquireContext、CryptCreateHash、CryptGenKey等函數獲得的句柄hProvhHashhKey都必須有對應的釋放函數CryptReleaseContextCryptDestroyHashCryptDestroyKey來釋放。VB不會自動幫你做這些。務必在錯誤處理路徑和正常路徑上都確保釋放并且通常按創建順序的逆序釋放。7. 從VB6到VB.NET的遷移與升級如果你的項目有機會升級到VB.NET那么加密解密將變得簡單而強大。.NET Framework提供了System.Security.Cryptography命名空間。以下是一個VB.NET中使用AES-256-CBC加密的示例其簡潔性和安全性遠超VB6的API調用Imports System.Security.Cryptography Imports System.Text Public Class CryptoHelper Public Shared Function EncryptStringToBytes_Aes(ByVal plainText As String, ByVal Key() As Byte, ByVal IV() As Byte) As Byte() Using aesAlg As Aes Aes.Create() aesAlg.Key Key aesAlg.IV IV Dim encryptor As ICryptoTransform aesAlg.CreateEncryptor(aesAlg.Key, aesAlg.IV) Using msEncrypt As New IO.MemoryStream() Using csEncrypt As New CryptoStream(msEncrypt, encryptor, CryptoStreamMode.Write) Using swEncrypt As New IO.StreamWriter(csEncrypt) swEncrypt.Write(plainText) End Using Return msEncrypt.ToArray() End Using End Using End Using End Function Public Shared Function DecryptStringFromBytes_Aes(ByVal cipherText() As Byte, ByVal Key() As Byte, ByVal IV() As Byte) As String Using aesAlg As Aes Aes.Create() aesAlg.Key Key aesAlg.IV IV Dim decryptor As ICryptoTransform aesAlg.CreateDecryptor(aesAlg.Key, aesAlg.IV) Using msDecrypt As New IO.MemoryStream(cipherText) Using csDecrypt As New CryptoStream(msDecrypt, decryptor, CryptoStreamMode.Read) Using srDecrypt As New IO.StreamReader(csDecrypt) Return srDecrypt.ReadToEnd() End Using End Using End Using End Using End Function End Class在VB.NET中密鑰派生可以使用Rfc2898DeriveBytesPBKDF2內存管理和資源釋放由Using語句自動處理代碼的可讀性和安全性都得到了質的飛躍。因此對于新項目或重大重構強烈建議遷移到.NET平臺。回過頭看在VB6中折騰加密就像用手工工具打造精密儀器過程繁瑣但能讓你對每一個齒輪和螺絲都有深刻的理解。這種理解在你日后使用更高級的工具時會轉化為一種篤定和洞察力。你知道在那一行簡單的Aes.Create().Encrypt()背后大概發生著什么樣的數據流動和數學變換。這份底層的認知或許就是這個“過時”項目留給我們的最大財富。