請問有加密一個檔案夾的思路嗎？
1、不要壓縮軟體
2、不使用網上的軟體，我們要自行開發
3、不是采用隱藏等低級的方式。
uj5u.com熱心網友回復：
檔案夾加密是為什么防止什么，防止轉移時丟失的，參考rar,zip，加個密碼就行了，新的作業系統可以把zip當檔案夾來處理.
防止電腦丟失時被人強行取用的，參考windows系統自帶的檔案夾加密功能，檔案夾上右鍵，常規，高級，加密內容以便保護資料.
防止本機檔案流失的，參考市面上一些加密軟體的作法，常駐軟體過濾檔案的IO操作，讀時解密，寫時加密。
uj5u.com熱心網友回復：
我們是銀行作業單位，有些客戶的資料需要保密，如果使用RAR加密，每次解壓/修改/加密，很不方便。所以希望開發一個軟體，謝謝
uj5u.com熱心網友回復：
普通的檔案的話，只要RAR視窗不關掉，直接打開編輯，然后保存，RAR會提示需不需要保存修改過的檔案。然后就直接保存進去了。uj5u.com熱心網友回復：
看看微軟的bitlock ，直接用，很舒服，包括移動硬碟U盤啥的，也可以整個硬碟加密。win7以上支持，除非你還在折騰XP
uj5u.com熱心網友回復：
微軟的bitlock就是干這種事的.uj5u.com熱心網友回復：
我現在也想做，有個想法不知道對不對。我想模擬磁盤的原理，一個大檔案，一個索引檔案，把要加密的檔案合并保存在一個連續的檔案中，索引檔案保存檔案名、大小及保存位置，設計程式進行加密、保存、提取uj5u.com熱心網友回復：
用ifs檔案過濾驅動可以實作。目前的商用加密軟體都是這個原理。windows sdk中有例子代碼。至于你是否看得懂，就不好說了。uj5u.com熱心網友回復：
確實微軟的bitlock已經委好用了uj5u.com熱心網友回復：
'-----------------------------------------------------------------------'函式說明： 使用<a href="https://www.baidu.com/s?wd=%E5%BC%82%E6%88%96%E8%BF%90%E7%AE%97&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1Y3rj64ujD3PHTYmHbsnj-W0ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3ErH6YrjRzn10" target="_blank" class="baidu-highlight">異或運算</a>加密檔案（可加密大部分檔案）
'引數說明： key - 密鑰
' fileName - 普通檔案名，
' encryptFileName - 加密后的檔案名
'回傳值： true - 成功，false - 失敗
'-----------------------------------------------------------------------
Private Function XOR_Encrypt(key As Integer, fileName As String, encryptFileName As String) As Boolean
On Error GoTo errHandler
Dim inputFileNo As Integer
Dim fileBytes() As Byte
Dim length As Long
XOR_Encrypt = False
'打開檔案并保存在二進制陣列中
inputFileNo = FreeFile
Open fileName For Binary As #inputFileNo
length = LOF(inputFileNo)
If length = 0 Then
MsgBox "退出加密：檔案內容為空！", vbInformation, "提示"
Exit Function
End If
ReDim fileBytes(length - 1) As Byte
Get inputFileNo, , fileBytes()
Close #inputFileNo
'將該二進制陣列進行異或加密
Dim i As Long
For i = LBound(fileBytes) To UBound(fileBytes)
fileBytes(i) = fileBytes(i) Xor key
Next
'將異或加密后的二進制陣列保存在新的檔案中
Dim outputFileNo As Integer
outputFileNo = FreeFile
Open encryptFileName For Binary As #outputFileNo
Put outputFileNo, , fileBytes
Close #outputFileNo
XOR_Encrypt = True
errHandler:
If Err.Number Then
MsgBox "加密程序中出錯：" & Err.Description, vbCritical, "錯誤"
XOR_Encrypt = False
Resume Next
End If
End Function
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/49985.html
標籤：VB基礎類
上一篇：你好大神，我想把表格資料加密后上傳到云盤，以保證資料安全。
下一篇：不能打包怎么辦