腾讯云短信签名串求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 腾讯云短信签名串求助

共有2395人关注过本帖树形打印复制链接主题：腾讯云短信签名串求助

cbt

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：566 积分：4184 威望：0 精华：0 注册：2015/5/13 8:32:00

腾讯云短信签名串求助 发帖心情

Post By：2020/10/17 18:03:00 [只看该作者]

$signature = base64_encode(hash_hmac("sha1", "POSTsms.tencentcloudapi.com/?Action=SendSms&Language=zh-CN&Nonce=6397&Region=&SecretId=123&Timestamp=1602928887&Version=2019-07-11", "456", true)); echo $signature;

结果是 bO9tOq48+G2ZafYyGSn8Rrfsxus=

就是它这个 sha1 有个 key 我没找到资料

cbt

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：566 积分：4184 威望：0 精华：0 注册：2015/5/13 8:32:00

Post By：2020/10/17 18:40:00 [只看该作者]

已解决：

Dim text1 As String = "POSTsms.tencentcloudapi.com/?Action=SendSms&Language=zh-CN&Nonce=6397&Region=&SecretId=123&Timestamp=1602928887&Version=2019-07-11"

Dim key1 = "456"

Dim byteData = Encoding.ASCII.GetBytes(text1)

Dim byteKey = Encoding.ASCII.GetBytes(key1)

Dim hmac = new System.Security.Cryptography.HMACSHA1(byteKey)

Dim result = hmac.ComputeHash(byteData)

Dim s = Convert.ToBase64String(result )

output.show(s)