2.這裏只執行壹次異或運算，如果需要，可以執行多次異或運算。
3.這種加密算法速度快，當然加密強度低；
參考代碼如下:
1
2
三
四
五
六
七
八
九
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
四十二個
43
四十四
-
功能描述:通過異或運算加密文件（大多數文件都可以加密）。
參數描述:鍵-鍵
FileName-通用文件名，
加密文件名-加密的文件名。
返回值:真-成功，假-失敗。
-
私有函數XOR_Encrypt（密鑰為整數，文件名為字符串，加密文件名為字符串）為布爾值
出錯時轉到錯誤處理程序
Dim inputFileNo作為整數
dim file bytes（）As Byte
暗淡長度壹樣長
XOR_Encrypt = False
打開文件並將其保存在二進制數組中。
inputFileNo = FreeFile
以#inputFileNo格式打開二進制文件的文件名
長度= LOF（輸入文件編號）
如果長度= 0，則
MsgBox“退出加密:文件內容為空！，vbInformation，“提示“
退出功能
如果…就會結束
將文件字節（長度- 1）重定為字節
獲取輸入文件號，文件字節數（）
關閉#inputFileNo
對二進制數組進行異或運算。
暗淡的我只要
For i = LBound（文件字節）到UBound（文件字節）
文件字節（I）=文件字節（I）Xor密鑰
然後
將經過XOR加密的二進制數組保存在壹個新文件中。
Dim outputFileNo為整數
outputFileNo = FreeFile
以#outputFileNo形式打開二進制文件的encryptFileName
輸出文件號，文件字節
關閉#outputFileNo
異或加密=真
錯誤處理程序:
如果呃。那就編號
MsgBox“加密過程中出錯:“&；呃。描述，vbCritical，“錯誤”
XOR_Encrypt = False
下壹步繼續
如果…就會結束
結束功能