Private Sub Command1_Click() 按钮1的单击事件
Dim B() As Byte 声明一个字节数组
Dim PassWord As String 声明一个字符串
Dim B1() As Byte 声明一个字节数组
Dim I As Long, l As Long, j As Long 声明三个长整数
Open "c:\pass.txt" For Binary As #1 打开文本文件，用二进制方式
If LOF(1) > 0 Then 如果文件长度大于0
j = LOF(1) J为文件的长度
ReDim B(LOF(1) - 1) 重新定义字节数组B为文件长度
Get #1, , B 将文件的内容赋值给数组B
End If If 结束
Close #1 关闭文本文件
Dim P As Long 定义一个长整数
PassWord = "OutsideFile" 赋值给字符串
l = Len(PassWord) L等于PassWord的长度
ReDim B1(l) 将字节数组定义为L个元素
For I = 1 To l 循环从1到PassWord长度
B1(I) = Asc(Mid(PassWord, I, 1)) 字节数组每个元素等于PassWord的每个字符的ASC值
Next 循环结束
For I = 0 To UBound(B) 循环为0到B字节数组上限
B(I) = B(I) Xor B1(P) B字节数组每个元素等于其值与B1字节数组相应字节的异或值
P = P + 1 P值增加
If P > l Then P = 0 如果P值大于PassWord的长度则从零开始
Next 循环结束
Open "c:\password.txt" For Binary As #1 打开或建立二进制文件
Put #1, , B 将字节数组B的元素写入
Close #1 关闭文本文件