VB利用异或运算加密文件

说明：1、由于采用二进制读取文件的方式，因此加密时一般可以不考虑文件类型。

2、这里只进行一次异或运算，如有需要可以进行多次异或运算。

3、此加密算法速度快，当然加密强度也低 :)

'-----------------------------------------------------------------------
'作者：     hellostory
'日期：     2011-05-26
'函数名称： XOR_Encrypt
'函数说明： 使用异或运算加密文件（可加密大部分文件）
'参数说明： 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