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

我的问题：

        （1）.   下面是腾讯官方短信API 接口，签名字符串生成的文档说明：

              签名字符串sig字段：根据公式 sha256（appkey=$appkey&random=$random&time=$time&mobile=$mobile）生成。

此生成公式中有四个参数：（1）appkey（密匙），（2）random（随机数），（3）time（时间戳），（4）mobile（手机号）

（2）下面是我用foxtable生成的短信API接口签名字符串：
Dim sj As long '生成一个随机数
sj = Rand.Next(1000000000,2000000000)

                  Dim dt1 As Date= #01/01/1970 08:03:25# '生成一个时间戳
                  Dim dt2 As Date= Date.now()
                  Dim sp As Integer =Math.Round(( dt2-dt1 ).TotalSeconds)

                                                      Dim appkey As String                    （密匙）
                                                      Dim random As Long                     （随机数）
                                                      Dim time As Integer                    （   时间戳）
                                                      Dim moblile As String                     （手机号）

                                            Dim aryTmp() As String = {appkey,random,time,moblile}             '命名包含四个参数的数组
                                            Array.Sort(aryTmp)                '数组排序
                                            Dim sig As String = String.Join("", aryTmp)                 ’将数组生成字符串
              sig = Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sig, "SHA256").ToLower()          'sha256算法加密

问题：代入参数值后，sig 提交腾讯短信API接口审核不通过，提示sig格式不对。
            请求老师给指点一下。我是刚入foxtable的老白（年龄55岁），这问题困扰几天了，劳驾版主老师帮一下忙。谢谢！

请不要发重复的问题！！

腾讯官方短信api开发文档的链接发上来看看

老师，你好！下面是我用到的腾讯短信接口的连接

https://cloud.tencent.com/document/product/382/5976

Dim sj As Integer '定义生成一个随机数
                 sj = Rand.Next(1000000000,2000000000)
        Dim hc As New HttpClient(" https://yun.tim.qq.com/v5/tlssmssvr/sendsms?sdkappid=1400294998&random=sj ") '请求短信接口地址
              Dim dt1 As Date= #01/01/1970 08:03:25# '定义生成一个时间戳
              Dim dt2 As Date= Date.now()
              Dim sp As Integer =Math.Round(( dt2-dt1 ).TotalSeconds)

                                   Dim appkey As String="26ccd48b4fc028fce1e4ef0b7723bdcd" '密匙参数
                                   Dim random As Integer= sj '随机数参数
                                   Dim time As Integer=sp '时间戳参数
                                   Dim moblile As String ="13589956068" '手机号参数
                                            Dim aryTmp() As String = {appkey,random,time,moblile} '定义包含上面四个参数的数组
                                               Array.Sort(aryTmp) '数组排序
                                            Dim sig As String = String.Join("", aryTmp) '数组转为字符串
                                                sig = Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sig, "SHA256")     '    sha256算法

                                  Dim params As JArray   '接口参数定义
                                  Dim sign As String
                                  Dim nationcode As String
                                  Dim tel As JObject
                                  Dim tpl_id As Integer

           Dim jo As New JObject '定义对象
                        Dim ja As New JArray
                ja.Add("123456") '定义数组
            jo("params")= ja
            jo("sig")=sig
            jo("sign")="新动感"
             Dim jo1 As New JObject '定义字对象
                 jo1("mobile")="13589956068"
                 jo1("nationcode")="86" ''代入注册的参数数值
            jo("tel")=jo1
            jo("time")=sp '代入生成的时间戳数值
            jo("tpl_id")=497632 '代入注册的参数数值
           hc.content=jo.ToString()
                 Dim ret As String = hc.getData()
                    If hc.rCookies.ContainsKey("error") Then
                              MessageBox.Show(hc.rCookies("error"), "提示", MessageBoxButtons.OK ,MessageBoxIcon.Warning)
                                Else
                       MessageBox.Show( ret)
                 End If

把附件的代码放到全局代码中

下载信息 [文件大小：下载次数： ]
点击浏览该文件:smssenderutil.txt

然后参考：

Dim sj As Long'定义生成一个随机数

sj = SmsSenderUtil.getRandom()

Dim hc As New HttpClient(" https://yun.tim.qq.com/v5/tlssmssvr/sendsms?sdkappid=1400294998&random= " & sj) '请求短信接口地址

hc.ContentType = "application/json"

Dim appkey As String="26ccd48b4fc028fce1e4ef0b7723bdcd" '密匙参数

Dim random As Long= sj '随机数参数

Dim time As Long=SmsSenderUtil.getCurrentTime() '时间戳参数

Dim moblile As String ="13589956068" '手机号参数

Dim sig As String = SmsSenderUtil.calculateSignature(appkey , random, time , moblile ) ' sha256算法

Dim params As JArray '接口参数定义

Dim sign As String

Dim nationcode As String

Dim tel As JObject

Dim tpl_id As Integer

Dim jo As New JObject '定义对象

Dim ja As New JArray

ja.Add("123456") '定义数组

jo("params")= ja

jo("sig")=sig

jo("sign")="新动感"

Dim jo1 As New JObject '定义字对象

jo1("mobile")="13589956068"

jo1("nationcode")="86" ''代入注册的参数数值

jo("tel")=jo1

jo("time")=sp '代入生成的时间戳数值

jo("tpl_id")=497632 '代入注册的参数数值

hc.content=jo.ToString()

Dim ret As String = hc.getData()

If hc.rCookies.ContainsKey("error") Then

MessageBox.Show(hc.rCookies("error"), "提示", MessageBoxButtons.OK ,MessageBoxIcon.Warning)

Else

MessageBox.Show( ret)

End If

[此贴子已经被作者于2019/12/16 10:23:11编辑过]

问题解决了，谢谢版主老师

主题：[求助]腾讯云短信接口问题