Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.Name = "VIP数据2" Then
If Filesys.FileExists(ipFile) Then
Dim Val2 As String = FileSys.ReadAllText(ipFile)
Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","a",Val2) 将密文写入注册表
FileSys.DeleteFile(e.ProjectPath & "ip.txt",2,2) '彻底删除配置文件,就算是反编译了,也没有密文可以破解了。这样就能较好保护数据库。是不是这个意思?
End If
Dim b As String
b = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp","a",0)
Dim c As String = DecryptText(b,"16l3X","nRlI6CooOb") '解密
e.ConnectionString = c
messagebox.Show(c)
End If
[此贴子已经被作者于2014-6-7 14:02:44编辑过]