Class SurroundingClass
Public shared Function base64(ByVal str As String, ByVal charset As String) As String
Return Convert.ToBase64String(System.Text.Encoding.GetEncoding(charset).GetBytes(str))
End Function
Public shared Function MD5(ByVal str As String, ByVal charset As String) As String
Dim buffer As Byte() = System.Text.Encoding.GetEncoding(charset).GetBytes(str)
Try
Dim check As System.Security.Cryptography.MD5CryptoServiceProvider
check = New System.Security.Cryptography.MD5CryptoServiceProvider()
Dim somme As Byte() = check.ComputeHash(buffer)
Dim ret As String = ""
For Each a As Byte In somme
If a < 16 Then
ret += "0" & a.ToString("X")
Else
ret += a.ToString("X")
End If
Next
Return ret.ToLower()
Catch
Throw
End Try
End Function
Public shared Function encrypt(ByVal content As String, ByVal keyValue As String, ByVal charset As String) As String
If keyValue IsNot Nothing Then
Return base64(MD5(content + keyValue, charset), charset)
End If
Return base64(MD5(content, charset), charset)
End Function
End Class
全局代码
我测试下，如果还有不懂再问
加好友 
发短信
Post By：2019/11/21 14:43:00 [显示全部帖子]
此主题相关图片如下：qq截图20191121144234.png
