Question

vb 文本转二进制文件保存

把文本框中的字符串存盘，但是用二进制的方式存盘结果用记事本打开还是原来的字符串
，怎样才能是保存后用记事本打开的效果跟打开EXE文件一样，且读此文件时可以还原成文本!

Answer 1

Private Sub Command1_Click()
Dim a() As String
a = Split(Text1.Text, vbCrLf)
If UBound(a) > 0 Then
Open "c:\1.txt" For Output As #1
For i = 0 To UBound(a)
For j = 1 To Len(a(i))
c = AscW(Mid(a(i), j, 1))
Print #1, Hex(c); Spc(1);
Next
Print #1, vbCrLf
Next
Close #1
End If
End Sub

Private Sub Command2_Click()
Dim a() As String
Open "c:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
a = Split(s, Chr(32))
j = ""
If UBound(a) > 0 Then
For i = 0 To UBound(a)
If a(i) <> "" Then j = j & ChrW("&h" & a(i))
Next
b = b & j & vbCrLf
End If
Loop
Close #1
Text1.Text = b
End Sub

追问

虽然能解决客观问题，但是文件大小增加了2倍多，还有修改时不能覆盖，需要用Kill,请问不改变大小是不是必须采用加密方式达到乱码效果？

追答

文件大小肯定要增加的，因为原本是2进制方式，你硬要把它变成字符串形式保存。其实想要看2进制的数值，就不要用记事本打开，而是用winhex之类16进制查看器之类的软件打开
加密的方法很多，都可以达到乱码的效果，最简单就是所有ascii码加一个固定的数，解密时减去这个数。

Answer 2

其实简单的加密可以用异或来实现。每一个字节都等于这个字节原有的内容异或前面一个字节。