Dim B() As Byte聲明了壹個字節數組。
Dim PassWord As String聲明壹個字符串。
Dim B1() As Byte聲明壹個字節數組。
米蒂·阿斯龍、l·阿斯龍和j·阿斯龍聲明了三個長整數。
打開“c: \ pass.txt”獲取二進制文件，因為# 1以二進制模式打開壹個文本文件。
如果LOF(1)>0，那麽如果文件長度大於0
J = LOF(1) J是文件的長度。
ReDim B(LOF(1)-1)將字節數組B重新定義為文件長度。
Get #1，，B將文件的內容賦給數組B。
結束如果如果結束
關閉文本文件。
Dim P As Long定義了壹個長整數。
PassWord = " OutsideFile "賦值給字符串。
L = Len(PassWord) L等於密碼的長度。
ReDim B1(l)將壹個字節數組定義為l個元素。
對於I = 1到l的循環長度從1到密碼。
B1 (I) = ASC (Mid (PassWord，I，1))字節數組的每個元素等於PassWord的每個字符的ASC值。
下壹循環結束
For I = 0到bound (b)循環從0到b字節數組的上限。
B(I B(I)= B(I)Xor B1(P)B 0(P)B字節數組的每個元素等於其值與B 1字節數組對應字節的Xor值。
P = P+1 P值增加。
如果P & gtl那麽P = 0如果P的值大於密碼的長度，就從零開始。
下壹循環結束
以# 1打開或創建二進制文件的方式打開“c: \ password.txt”。
Put #1，，B將字節數組B的元素寫入。
關閉文本文件。