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