Foxtable(狐表)用户栏目专家坐堂 → 关于fx使用zpay支付平台的求助


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

主题:关于fx使用zpay支付平台的求助

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


加好友 发短信
等级:超级版主 帖子:112784 积分:574277 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/3/17 21:09:00 [显示全部帖子]

'定义一个可排序的字典
Dim lst As New SortedDictionary(Of String, String)(StringComparer.Ordinal)
lst.Add("name", "iphone xs Max 一台")
lst.Add("money", "0.03")
lst.Add("out_trade_no", "201911914837526544601")
lst.Add("notify_url", "http://www.aaa.com/notify_url.php")
lst.Add("pid", "20220726190052")
lst.Add("param", "金色 256G")
lst.Add("return_url", "http://www.baidu.com")
lst.Add("type", "alipay")
'按顺序拼接参数
Dim su As New StringBuilder
For Each key As String In lst.keys
    su.AppendFormat("&{0}={1}", key, lst(key))
Next
Dim s As String = su.ToString().trimstart("&") & "vg9ZRZN4FOKtDM06UfqH69GDJoG4gGIJ"
'MD5加密
Dim sign As String = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(s, "MD5").Tolower

Dim url As String = "https://zpayz.cn/submit.php?name=iphone xs Max 一台&money=0.03&out_trade_no=201911914837526544601&notify_url=http://www.aaa.com/notify_url.php&pid=20220726190052&param=金色 256G&return_url=http://www.baidu.com&sign=" & sign & "&sign_type=MD5&type=alipay"
Output.Show(url)

 回到顶部