主题：[求助]MD5密码修改

1、要输入【原密码】，对原密码加密后得到字符串，根据字符串替换成新的字符即可。

2、参考代码

Dim oldpwd As String = "123456"
Dim newpwd As String = "abc"
Dim fdr As DataRow = DataTables("表A").Find("config like '%" & MD5Encrypt(oldpwd) & "%'")
If fdr IsNot Nothing Then
    fdr("config") = fdr("config").replace(MD5Encrypt(oldpwd), MD5Encrypt(newpwd))
Else
    msgbox("密码不正确")
End If