一个关于用vb.net电子日记软件制作实现加密的问题！
<P> <BR> 我想做用vb.net一个电子日记的软件，现在的打开保存功能是实现了，不过感觉有点不合适。保存功能代码：<BR><BR> Private Sub MenuItembaocun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItembaocun.Click<BR> Dim s As String, name As String<BR> Static count As Integer = 1<BR> Dim message, title As String<BR> Dim style As MsgBoxStyle<BR> If txttitle.Text = "" Then<BR> message = "请输入日记标题"<BR> title = "错误"<BR> MsgBox(message, MsgBoxStyle.OKOnly, title)<BR> Else<BR> name = txttitle.Text & count & ".txt"<BR> s = Application.StartupPath() + "\" & txttitle.Text & count & ".txt"<BR> count = count + 1<BR> RichTextBox1.SaveFile(s, RichTextBoxStreamType.PlainText)</P><P> message = "保存成功!!"<BR> title = "保存文件"<BR> style = MsgBoxStyle.OKOnly<BR> MsgBox(message, style, title)<BR> End If<BR> End Sub<BR><BR>这样可以保存到我指定的路径下。<BR>打开功能代码是：<BR> Private Sub MenuItemopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemopen.Click</P>
<P> If Me.OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then<BR> Dim MyFileName As String = Me.OpenFileDialog1.FileName</P>
<P> Me.RichTextBox1.LoadFile(MyFileName, RichTextBoxStreamType.PlainText)<BR> Me.OpenFileDialog1.Filter = "*.txt|*.txt"<BR> End If<BR> End Sub<BR><BR>虽然没有错误，但我觉得不合适，日记软件肯定写的日记是要保密的，这样，只要别人知道你保存的地方，就可以看到<BR>你写的内容，而且打开还必须要使用者知道自己保存哪里了，不然找不到，打开，可以打开电脑上的所有txt文件。<BR>这样的功能不能满足日记软件的要求。不能实现内容的保密，要看以前写的日记也比较麻烦。<BR><BR>我想实现像qq空间那样，可以打开的话可以列出以前写的日记的纪录，选择然后打开。或者打开的话，使用者只能看到自己以前写的日记，不会电脑里面所有txt文件都看到，保存的文件别人不能在“我的电脑”路径下找到，实现加密。<BR><BR>找了好多，都不知道怎么办，希望各位能帮帮我，谢谢！</P>
页:
[1]