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