vb 加密字符串的方法

Private Sub Command1_Click() '加密Dim b() As Byte, i As LongOpen "d:\1.txt" For Binary As #1b = InputB(LOF(1), #1)Close #1RandomizeFor i = 0 To UBound(b) - 1 b(i) = b(i) Xor b(i + 1)Nextb(i) = b(i) Xor 93Open "d:\2.txt"