Dim APPSign,寄件人,寄件电话,寄件省,寄件市,寄件区,寄件地址,商家密钥,商家ID,商品名,订单编号,收件人,收件电话,收件省,收件市,收件区,收件地址,商品数量,商品重量,收件邮编,寄件邮编 As String
寄件人="王勇"
寄件电话="13821025484"
寄件省="上海"
寄件市="上海"
寄件区="青浦区区"
寄件地址="华徐公路3029弄28号"
寄件邮编="201705"
收件人="王勇"
收件电话="13821025484"
收件省="上海"
收件市="上海"
收件区="青浦区"
收件地址="华徐公路3029弄28号"
收件邮编="3512000"
商家密钥="KA4js3k2"
商家ID="K100122"
商品名="衣服"
商品数量="1"
商品重量="0.5"
订单编号="B2201601031"
Dim sign As String = 商家密钥 & "APPID" & 商家ID & "APPSecret" & 商家密钥 & "ItemName" & 商品名 & "ItemNumber" & 商品数量 & "ItemWeight" & 商品重量 & "LogisticID" & 订单编号 & "ReceiverAddress" & 收件地址 & "ReceiverArea" & 收件区 & "ReceiverCity" & 收件市 & "ReceiverMobile" & 收件电话 & "ReceiverName" & 收件人 & "ReceiverPostcode" & 收件邮编 & "ReceiverProv" & 收件省 & "SenderAddress" & 寄件地址 & "SenderArea" & 寄件区 & "SenderCity" & 寄件市 & "SenderMobile" & 寄件电话 & "SenderName" & 寄件人 & "SenderPostcod" & 寄件邮编 & "SenderProv" & 寄件省 & 商家密钥
Output.Show(sign)
APPSign=MD5Encrypt2(sign, 32)
Output.Show(APPSign)
'7ed9631a8ff6af1b4988e4ba34f894a2
楼上的方法
APPSign=System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sign , "MD5")
Output.Show(APPSign)
'A29D0B219AADBAD92BC0BC8D45B7F780
另一种加密方法
都不对。跟说明文档里面的不一样,是哪里错了?
返回的结果是
{"Message":"签名校验失败","IsSuccess":false}
是哪错了?
Dim hc As new HttpClient("http://122.51.51.119:1862/api/1/v3.0/Order")
hc.FormData.Add("Appid", 商家ID) 'ID
hc.FormData.Add("APPSecret", 商家密钥) '密钥
hc.FormData.Add("APPSign",APPSign) '加密sign
hc.FormData.Add("LogisticID",订单编号) '订单号
hc.FormData.Add( "SenderName",寄件人) '寄件人
hc.FormData.Add ("SenderPostcode", 寄件邮编) '寄件邮编
hc.FormData.Add("SenderMobile",寄件电话) '寄件电话
hc.FormData.Add ("SenderProv",寄件省) '寄件省
hc.FormData.Add("SenderCity",寄件市) '寄件市
hc.FormData.Add("SenderArea",寄件区) '寄件区
hc.FormData.Add ("SenderAddress",寄件地址) '寄件地址
hc.FormData.Add("ReceiverName",收件人) '收件人
hc.FormData.Add("ReceiverPostcode",收件邮编) '收件邮编
hc.FormData.Add("ReceiverMobile",收件电话) '收件电话
hc.FormData.Add ("ReceiverProv",收件省) '收件省
hc.FormData.Add("ReceiverCity", 收件市) '收件市
hc.FormData.Add("ReceiverArea", 收件区) '收件区
hc.FormData.Add ("ReceiverAddress",收件地址) '收件地址
hc.FormData.Add("ItemName",商品名) '商品名字
hc.FormData.Add ("ItemNumber", 商品数量) '商品件数
hc.FormData.Add ("ItemWeight",商品重量) '商品总重
Output.Show(hc.GetData)