Foxtable(狐表)用户栏目专家坐堂 → API接口


  共有3064人关注过本帖树形打印复制链接

主题:API接口

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109728 积分:558356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/12 15:54:00 [显示全部帖子]

到这里下载c#的源码使用:https://doc.shouqianba.com/zh-cn/api/sign.html。
方法1、可以直接编译源码为dll引用
2、自行转换为vb.net代码参考着做:https://converter.telerik.com/,

下面举例使用激活接口:

全局代码:
Public Function MD5(ByVal value As String) As String
    Dim result As New StringBuilder()
    Dim cl1 As String = value
    Dim md5 As New System.Security.Cryptography.MD5CryptoServiceProvider()
    Dim s As Byte() = md5.ComputeHash(Encoding.GetEncoding("UTF-8").GetBytes(cl1))

    For i As Integer = 0 To s.Length - 1
        result.AppendFormat("{0:x2}", s(i))
    Next

    Return result.ToString()
End Function

调用
Dim hc As New HttpClient("https://vsi-api.shouqianba.com/terminal/activate")
hc.ContentType = "application/json"
Dim jo As New JObject
jo("app_id") = "xxx"
jo("code") = "xxx"
……自行补全需要的接口数据
dim s1 as string = jo.tostring
dim sign as string = MD5(s1)
dim vendor_sn as string = "xxx签名序列号"
hc.Headers.Add("Authorization",vendor_sn & " " & sign )
hc.Content = s1
Dim ret As String = hc.GetData()
msgbox(ret)

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109728 积分:558356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/12 17:48:00 [显示全部帖子]

就是把json的内容进行MD5加密

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109728 积分:558356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/13 8:38:00 [显示全部帖子]

Dim sign11 As String = MD5(s1 & tmkey)

去掉这句:Dim sign As String = sign11.ToUpper(),开发文档没有说转大写,源码也没有这种用法

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109728 积分:558356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/13 13:48:00 [显示全部帖子]

这个您咨询他们客服了,加密是照搬他们源码的,有问题找他们。

如果调用激活接口没有问题,这个加密方法肯定也没有问题。注意其它接口是使用激活接口返回的cn和ley

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109728 积分:558356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/13 16:51:00 [显示全部帖子]

Dim s2 As String = MD5("12" & vbcrlf & "3")

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109728 积分:558356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/13 16:59:00 [显示全部帖子]

Dim qwq As String = "{""client_sn"":""2021081219250001"",""operator"":"qwew"",""payway"":""3"",""subject"":""peisongdan2021081219250001"",""total_amount"":""100""}"

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109728 积分:558356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/14 9:05:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109728 积分:558356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/18 8:37:00 [显示全部帖子]

里面有个getSign加密函数,转换为vb道门放到全局代码,然后参考2楼的方法使用即可

 回到顶部