自己随便写一个算法,放到函数里。加密时调用
Public Function JsLogin(Login As String) As Long
'加密口令
Dim bao As Integer
Dim Lengh As String
Dim i As Integer
bao = 0
Login = UCase(Trim(Login))
If VarType(Login) = vbEmpty Or VarType(Login) = vbNull Then
JsLogin = 0
Else
Lengh = Len(Login)
For i = 1 To Lengh
bao = bao + (Asc(Mid(Login, i, 1)) + i) * i
Next
JsLogin = bao + 1000
End If