Dim text1 As String = "POSTsms.tencentcloudapi.com/?Action=SendSms&Language=zh-CN&Nonce=4306&PhoneNumberSet.0= 8615968015166&Region=&SecretId=&Sign=基伟休闲&SmsSdkAppid=1400517359&TemplateID=947545&TemplateParamSet.0=123321&Timestamp=1620261056&Version=2019-07-11"
Dim key1 = ""
Dim byteData = Encoding.utf8.GetBytes(text1)
Dim byteKey = Encoding.utf8.GetBytes(key1)
Dim hmac = new System.Security.Cryptography.HMACSHA1(byteKey)
Dim result = hmac.ComputeHash(byteData)
Dim s = Convert.ToBase64String(result )
output.show(s)
加好友 
发短信
Post By：2021/5/6 9:27:00 [显示全部帖子]
