用程序加密TXT文本---后续问题

Question

补充！解密次数过多也是一样！
另外，加密以后用解密功能时格式会丢失，有没有办法保存格式。

Answer 1

Private Sub Command1_Click()
CommonDialog1.Filter = "Text File(*.txt)|*.txt|All File (*.*)|*.*"
CommonDialog1.ShowOpen
RichTextBox1.LoadFile CommonDialog1.filename
End SubPrivate Sub Command2_Click()
Dim s, temp, t As String
Dim i As Single
s = RichTextBox1.Text
t = ""
For i = 1 To Len(s)
temp = Mid$(s, i, 1)
temp = Chr(Asc(temp) Xor 1)
t = t + temp
Next i
RichTextBox1.Text = t
End SubPrivate Sub Command3_Click()
Dim s, temp, t As String
Dim i As Single
s = RichTextBox1.Text
t = ""
For i = 1 To Len(s)
temp = Mid$(s, i, 1)
temp = Chr(Asc(temp) Xor 1)
t = t + temp
Next i
RichTextBox1.Text = t
End SubPrivate Sub Command4_Click()
CommonDialog1.Filter = "text File(*.txt)|*.txt|All File(*.*)|*.*"
CommonDialog1.ShowSave
Open CommonDialog1.filename For Output As #1
Print #1, RichTextBox1.Text
Close #1
End Sub

Answer 2

我要回家了
可以了吗
QQ 26603030