vb程序没有数据库，怎么加密码

Question

vb程序中没有连接数据库，怎么设置密码呀？要能修改的密码，听说可以通过文本文档实现这样的功能，请问该怎么写这段代码呀？最好能给出一个实例。谢谢各位大侠了

Answer 1

把密码写ini文件.ini文件你自己随便找地点放.最好不要轻易让用户发现.至于明文写还是密文写,那是你的事情,密文写的话,用算法加密即可

Answer 2

ini文件是用几个API去写,[Record]
UserName="admin"
Password="123123"可以按这个格式去写给一个小的参考代码,包括读一个ini键值和写一个键值已经给了大部分了,自己学习改代码吧Option ExplicitPrivate Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long' Get the value.
Private Sub cmdGet_Click()
Dim buf As String * 256
Dim length As Long    length = GetPrivateProfileString( _
        txtApplication.Text, txtKey.Text, "<no value>", _
        buf, Len(buf), txtFilename.Text)
    txtValue.Text = Left$(buf, length)
End Sub' Set the value.
Private Sub cmdSet_Click()
    WritePrivateProfileString _
        txtApplication.Text, txtKey.Text, _
        txtValue.Text, txtFilename.Text
    txtValue.Text = "Ok"
End SubPrivate Sub Form_Load()
Dim ini_file As String    ini_file = App.Path
    If Right$(ini_file, 1) <> "\" Then ini_file = ini_file & "\"
    ini_file = ini_file & "test.ini"    txtFilename.Text = ini_file
End Sub