如何加密文本

[chuting1]

需要对操作进行文本读写,
我想写文本时以一种加密方法写进去,直接打开是乱码,在程序打开时能看到真实内容

[砸死牛顿的苹果]

不如自定义个byte数与文件每一个byte 去xor下
随便说说 这样的加密太容易被破解了 不如用winrar加密码压缩下好了

[「已注销」]

这个是加密的问题吧。
写密要进行加密计算，解密就是反向过程。没有解密之前都是乱码的。

[chuting1]

xor也行啊,有个小例子吗

[chuting1]

xor运算是不是可以直接用

[mndsoft]

http://www.mndsoft.com/blog/article.asp?id=929

[chuting1]

谢谢

[chuting1]

是.net的呀,打不开

[砸死牛顿的苹果]

Private Sub Command1_Click()
Dim FileTmp() As Byte, LF As Long, PassKey As Byte
Open "e:\1.txt" For Binary As #1
LF = LOF(1)
If LF > 0 Then
ReDim FileTmp(LF - 1)
Else
MsgBox "文件没有内容"
Exit Sub
End If
Get #1, , FileTmp
PassKey = 178
Call StrNormal(FileTmp, PassKey)
Put #1, 1, FileTmp
Close #1
End Sub

Private Sub StrNormal(ByRef FileTmp() As Byte, ByVal PassKey As Byte)
Dim i As Long, LF As Long
LF = UBound(FileTmp)
For i = 0 To LF
FileTmp(i) = FileTmp(i) Xor PassKey
Next
End Sub

[砸死牛顿的苹果]

执行1次加密 再执行1次还原 依次的加密 还原..