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