或者用配置文件:
在项目目录里建一个 ip.txt的配置文件,里面是加密后的字符串。
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)
Dim Val3 As String = DecryptTextDecryptText(Val2,"UotRVIo","6CooObZh") '解密
e.ConnectionString = Val3
End If
End If
但是同样的道理,配置文件是放在项目目录下的,他同样可以获取到这个配置文件,然后反编译,获取到 DecryptTextDecryptText(Val2,"UotRVIo","6CooObZh") '解密 这个解密代码。那是不是一样可以被破密。
我在想是不是可以这样,配置文件第一次配置完之后,保存这个配置信息到项目里,然后就删掉这个配置文件。是不是会更有作用一点。
不知道行不行的通。。。
SaveConfigValue
保存设置信息
语法:
SaveConfigValue(Name, Value)
Name: 设置名称
Value: 设置值
设置信息经过加密储存,安全性比一般的方式更有保证。
GetConfigValue
读取设置信息。
语法:
GetConfigValue(Name, DefaultValue)
Name: 设置名称
DefaultValue:默认设置值,如果指定名称的设置不存在,则返回此值。