如何用VB建个记事本，创建乱码文件?

Answer 1

将你要保存的内容的文本内容的ASC码进行ASC偏移后再存储，如dd
=
Chr(asc(dd)
+
3000)，读取时则相反。

Answer 2

option
explicit
'最基本的一个文件加密方法，适合初学者。用异或算法，对文件进行加密，密码是0-255之间的数字，你可以根据你的需要改变密码，也可以做一个头文件，把密码以加密的方法存储到文件中。可以实现你要的功能，用记事本打开时乱码。
'窗体上两个按钮，一个文本框
private
sub
command1_click()
'读文件
dim
s()
as
byte,
i
as
long
open
"c:\q.txt"
for
binary
as
#1'路径你可以给成你需要的路径以及文件名，我为了调试方便。如果改的话，写文件的路径不要忘记改啊
redim
s(lof(1)
-
1)
as
byte
get
#1,
,
s
for
i
=
0
to
ubound(s)
s(i)
=
s(i)
xor
(i
mod
255)'用异或运算，密码是从0-254循环，你可以改成你要的密码循环
next
i
text1.text
=
s
close
#1
end
sub
private
sub
command2_click()
'写文件
dim
s()
as
byte,
i
as
long
s
=
text1.text
for
i
=
0
to
ubound(s)
s(i)
=
s(i)
xor
(i
mod
255)
next
i
open
"c:\q.txt"
for
binary
as
#1
put
#1,
,
s
close
#1
end
sub