标题:一个关于用vb.net电子日记软件制作实现加密的问题!
只看楼主
魔的天使之翼
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2007-9-21
 问题点数:0 回复次数:0 
一个关于用vb.net电子日记软件制作实现加密的问题!


我想做用vb.net一个电子日记的软件,现在的打开保存功能是实现了,不过感觉有点不合适。保存功能代码:

Private Sub MenuItembaocun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItembaocun.Click
Dim s As String, name As String
Static count As Integer = 1
Dim message, title As String
Dim style As MsgBoxStyle
If txttitle.Text = "" Then
message = "请输入日记标题"
title = "错误"
MsgBox(message, MsgBoxStyle.OKOnly, title)
Else
name = txttitle.Text & count & ".txt"
s = Application.StartupPath() + "\" & txttitle.Text & count & ".txt"
count = count + 1
RichTextBox1.SaveFile(s, RichTextBoxStreamType.PlainText)

message = "保存成功!!"
title = "保存文件"
style = MsgBoxStyle.OKOnly
MsgBox(message, style, title)
End If
End Sub

这样可以保存到我指定的路径下。
打开功能代码是:
Private Sub MenuItemopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItemopen.Click

If Me.OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Dim MyFileName As String = Me.OpenFileDialog1.FileName

Me.RichTextBox1.LoadFile(MyFileName, RichTextBoxStreamType.PlainText)
Me.OpenFileDialog1.Filter = "*.txt|*.txt"
End If
End Sub

虽然没有错误,但我觉得不合适,日记软件肯定写的日记是要保密的,这样,只要别人知道你保存的地方,就可以看到
你写的内容,而且打开还必须要使用者知道自己保存哪里了,不然找不到,打开,可以打开电脑上的所有txt文件。
这样的功能不能满足日记软件的要求。不能实现内容的保密,要看以前写的日记也比较麻烦。

我想实现像qq空间那样,可以打开的话可以列出以前写的日记的纪录,选择然后打开。或者打开的话,使用者只能看到自己以前写的日记,不会电脑里面所有txt文件都看到,保存的文件别人不能在“我的电脑”路径下找到,实现加密。

找了好多,都不知道怎么办,希望各位能帮帮我,谢谢!

搜索更多相关主题的帖子: 电子日记 软件 String Dim 
2007-11-21 19:11



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-187674-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.010768 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved