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

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

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

'----------------------------------------------------------------------- '作者： hellostory '日期： 2011-05-26 '<a href="https://www.jb51.cc/tag/hanshu/" target="_blank" class="keywords">函数</a><a href="https://www.jb51.cc/tag/mingcheng/" target="_blank" class="keywords">名称</a>： XOR_Encrypt '<a href="https://www.jb51.cc/tag/hanshu/" target="_blank" class="keywords">函数</a>说明： 使用异或运算加密<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>（可加密大部分<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>） '参数说明： key - 密钥 ' fileName - 普通<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名， ' encryptFileName - 加密后的<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>名 '返回值： 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 '打开<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>并保存在二进制数组中 inputFileNo = FreeFile Open fileName For Binary As #inputFileNo length = LOF(inputFileNo) If length = 0 Then Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> "<a href="https://www.jb51.cc/tag/tuichu/" target="_blank" class="keywords">退出</a>加密：<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a><a href="https://www.jb51.cc/tag/neirong/" target="_blank" class="keywords">内容</a>为空！",vbInformation,"<a href="https://www.jb51.cc/tag/tishi/" target="_blank" class="keywords">提示</a>" 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 '将异或加密后的二进制数组保存在新的<a href="https://www.jb51.cc/tag/wenjian/" target="_blank" class="keywords">文件</a>中 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 Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a> "加密过程中出错：" & Err.Description,vbCritical,"<a href="https://www.jb51.cc/tag/cuowu/" target="_blank" class="keywords">错误</a>" XOR_Encrypt = False Resume Next End If End Function