更新密码：
For Each dr As DataRow In DataTables("userinfo").DataRows
If dr("username") <> "admin" Then
dr("psw") = Functions.Execute("atob", dr("card").SubString(11, 6))
End If
Next
atob内部函数代码如下：
Dim a As String = args(0)
Dim tp As String = args(1)
Dim b As String
If tp = "" Then
b = EncryptText(a,"#g1101#","#n0526#")
Else
Dim bb As Byte() = System.Text.Encoding.Default.GetBytes(urlencode(a))
b = Convert.ToBase64String(bb)
End If
Return b
[此贴子已经被作者于2024/2/29 15:37:05编辑过]
加好友 
发短信
Post By：2024/2/29 15:36:00 [显示全部帖子]
