64,646
社区成员
发帖
与我相关
我的任务
分享
Function gStr(ByVal strSource As String) As String
Dim bytestr As Byte() = (New System.Text.ASCIIEncoding).GetBytes(strSource)
Dim bytestrv As Byte() = CType(System.Security.Cryptography.CryptoConfig.CreateFromName("MD5"), System.Security.Cryptography.HashAlgorithm).ComputeHash(bytestr)
Dim str As String = ""
Dim i As Integer
For i = 0 To 15
str &= Hex(bytestrv(i)).ToLower
Next
Return str
End Function