用VB如何逐字节读写二进制文件

Question

如题所述

Answer 1

下面的示例代码是逐字节读取一个二进制文件（1.dat），与一个固定数值（比如&H72）进行异或（Xor）后再逐字节写入另一个文件（2.dat）。这其实就是一个简单的文件加密的过程。

Private Sub Form_Click() '点击窗体运行
Dim b As Byte
Open "d:\tmp\1.dat" For Binary As #1
Open "d:\tmp\2.dat" For Binary As #2
Do
    Get #1, , b
    If Not EOF(1) Then Put #2, , b Xor &H72
Loop Until EOF(1)
Close
MsgBox "运行完毕"
End Sub

解密过程也很简单，只要把代码中的两个文件名互相对换，其他代码不变，即可。