加密文件編號
1. 文件怎麼加密
一、隱藏文件夾
不想讓別人看到自己的重要文件，隱藏就是一個最直接的方法。在你需要隱藏的文件上點擊滑鼠右鍵，點擊屬性，勾選隱藏這個選項，然後點擊確定，然後再刷新一下這個文件就看不到了。
二、設置解壓密碼
很多壓縮工具可以設置解壓密碼的，當有文件需要加密的時候，直接加密壓縮就行了。使用的壓縮工具是WinRAR，在文件上點擊滑鼠右鍵，然後點擊添加到壓縮文件。
三、文件偽裝法
可以使用特殊的方法，將文件偽裝成「此電腦」，有需要加密的文件，直接在文件夾名稱後面加上一串代碼20d04fe0-3aea-1069-a2d8-08002b30309d 。
四、針對文檔進行加密
如果單個文檔的話，就可以直接對文檔進行加密，分別說一下PDF、Word、Excel、PPT加密的方法。
2. 怎麼用VB給文件夾加密
1、由於採用二進制讀取文件的方式，因此加密時一般可以不考慮文件類型。
2、這里只進行一次異或運算，如有需要可以進行多次異或運算。
3、此加密演算法速度快，當然加密強度也低 ；
參考代碼如下：
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
'-----------------------------------------------------------------------
'函數說明： 使用異或運算加密文件（可加密大部分文件）
'參數說明： 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