怎么用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

这样的话你就放心吧，别人不会得到你的源代码的。得到的是汇编语言。这样哪怕你再会加密也不可能连汇编码都不吵源生成。所以说不用加密的。

而你如果真的用vb来编写卖钱的软件么，可以用注册码加密的方升碰态法。这样的话就看你的加密算法怎吵陪么样了。一般用md5就可以了

---