vb加密文档文件

Option Explicit 

Dim B() As Byte 
Dim PassWord As String 
Dim B1() As Byte 
Dim I As Long, l As Long, j As Long 

Private Sub Command1_Click() 
Open "f:\pass.txt" For Binary As #1 
If LOF(1) > 0 Then 
j = LOF(1) 
ReDim B(LOF(1) - 1) 
Get #1, , B 
End If 
Close #1 

Dim P As Long 
PassWord = "OutsideFile" 
l = Len(PassWord) 

ReDim B1(l) 
For I = 1 To l 
B1(I) = Asc(Mid(PassWord, I, 1)) 
Next 

For I = 0 To UBound(B) 
B(I) = B(I) Xor B1(P) 
P = P + 1 
If P > l Then P = 0 
Next 

Open "f:\password.txt" For Binary As #1 
Put #1, , B 
Close #1 

End Sub