VB密码读取

加密和解密一直都是相对立的，你能加密，别人就能解密，再有就是跟踪你的程序运行来分析。所以，用户名和密码写入文件是没有问题的（当然写入注册表更有隐蔽性，因为一般人可以根据写入文件的先后来找到你的写入内容）；如果你可以被多用户允许使用，那么别人更改一下你设置中的用户名，或者修改分析后的密码，那么加密设置就是形同虚设。

建议：
1、采用复杂计算，将用户名和密码内容采用多次运算，合在一起，形成一个定长的验证串，然后写入注册表，做为对照依据。
2、程序运行需要判断登录时，将用户输入的用户名合密码再次运算，和保存的验证串对比，存在即通过。

3、下面的程序仅供参考，你可以进行更全面的完善，算法可以设计得更复杂（反正计算起来时很快的）。

窗体中添加一些标签，注明相关输入说明；添加5个文本框：Text1、Text2、Text3，分别表示添加用户的用户名、密码以及密码确认；添加Text4、Text5，表示登录的用户名和密码；添加Command1，表示“添加用户”的命令按钮；添加Command2，表示登录的“确定”按钮。代码如下：

Option Explicit
Dim NameLength As Integer, MmLength As Integer, Number As Integer
Dim I As Long, J As Long, K As Integer, S As String, T As String
Dim Nam(1 To 16) As Integer, Mima(1 To 16) As Integer, Result(1 To 16) As String
Dim Succeed As Boolean

Private Sub Command1_Click()
NameLength = Len(Text1)
If NameLength < 6 Or NameLength > 16 Then Label1 = "用户名长度错误": Exit Sub
'用户名长度是6～16个ASCII字符或者3～8个汉字<