参考代码
Dim text As String = "a=1252821871&b=tencentyun&k=AKIDgaoOYh2kOmJfWVdH4lpfxScG2zPLPGoK&e=1438669115&t=1436077115&r=11162&u=0&f="
Dim key = "nwOKDouy5JctNOlnere4gkVoOUz5EYAb"
Dim byteData = Encoding.ASCII.GetBytes(text)
Dim byteKey = Encoding.ASCII.GetBytes(key)
Dim hmac = new System.Security.Cryptography.HMACSHA1(byteKey)
Dim result = hmac.ComputeHash(byteData)
Dim ary(result.length+byteData.length-1) As Byte
result.CopyTo(ary,0)
byteData.CopyTo(ary, result.length)
Dim s = Convert.ToBase64String(ary)
output.show(s)
加好友 
发短信
Post By：2018/4/17 9:51:00 [只看该作者]
