加密文件编号
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