请问下面的代码中,如何提取用户数据表中的密码。
我的用用户数据表是"users",表中用户名列是“NAME”,密码在“config”列中,这一列它的内容是这样的(下行红色部分),下面的代码怎么改呢。
李海燕 2 Group 安全综治办 PassWord EmIR5WBjrFGjO7SHZdBWwQ== Type 2 Role 安全办主任,疫情防控信息员
Dim dr As DataRow = DataTables("users").Find("[name] = '" & UserName & "'") '解密字符
try
If dr IsNot Nothing Then
Dim mm As String = DecryptText(dr("uspass"),"abc","ys")
If UserName = dr("name") AndAlso Password = mm Then '从数据库读取用户名和密码进行比较
Verified = True
End If
End If
catch ex As exception
msgbox(ex.message)
End try