怎么用vb6以二进制读写文件

Question

如题，我想用vb6设计一个程序, 按下command1时 将c:\text.exe转换成二进制数据并保存在c:\data.txt中,按下command2时,将c:\data.txt还原成text.exe ... 既然是二进制的数据,那么data.txt这个文件里当然都是1和0了.. 请给出代码,测试成功后尽可能多的追加分数... 谢谢~
貌似只是改了下后缀名而已... 那..可以提供一个加解密的代码么? 加密的时候只要让别人看不出文件的内容就行(不要再像那样改改后缀了..) 当然..解密的时候还得还原成原来的文件

Answer 1

Pirvate Sub Sub1() 'C:\Data.exe 到 C:\Data.txt
Open "C:\Data.exe" For Binary As #1
Open "C:\Data.txt" For Binary As #2
Dim i As Byte
Do While Not EOF(1)
Get #1, , i
Put #2, , i
Loop
Close #1
Close #2
End Sub

Pirvate Sub Sub2() 'C:\Data.txt 到 C:\Data.exe
Open "C:\Data.txt" For Binary As #1
Open "C:\Data.exe" For Binary As #2
Dim i As Byte
Do While Not EOF(1)
Get #1, , i
Put #2, , i
Loop
Close #1
Close #2
End Sub

楼上的老兄说的很对，确实不是“1”和“0”，因为虽然内容由“1”“0”组成，但是这是硬盘碟片上的痕迹，而程序（二进制方式）所读写的是字节。然后，字节/双字节再被翻译成字符，再连接成字符串。这就是你在“记事本”中打开 EXE 看到的东西，所谓的“乱码”。

Answer 2

二进制文件并不是在文件里显示1和0，那是两回事。