我现在想下一个简单的通过达达平台下单的功能，这个是达达开放平台的接口文档

https://newopen.imdada.cn/#/development/file/mustread?_k=hkqkna

我已经注册好了一个开发者号码

app_key：dadac4300b3da8c2910

app_secret：0ed05802d9537f91dc0548ae3382efca

然后我想模拟发送一个订单请求

https://newopen.imdada.cn/#/development/file/add?_k=qrwm7l

但是看了很久都不懂，狐表的帮助文档我也看了《阿里云全国物流查询接口》，但是这个是通过get的方法获取，这个达达好像要我通过post的方法，实在是不知道怎么搞。还说要

请设置Header的Content-Type为application/json，也不知道是哪里可以设置，一头雾水

 比较麻烦。对方提供的是 java、php的demo代码，要转化成c#，然后c#转换成vb.net，vb.net再修改修改才能写到foxtable。

他那些接口思路，没办法套用到vb.net上吗？是不是有几个参数是php或者java专有的？

全局代码

\'请使用开发者对应的 app key & app secret
Public appKey As String = "dada00fe324e250fa4f"
Public appSecret As String = "b12e055b501c26a2db1ad45603e0ed92"
\' 测试环境发单url
Public ADD_ORDER_URL As String = "http://newopen.qa.imdada.cn/api/order/addOrder"

Public Function getSign(requestMap As IDictionary(Of String, Object)) As String
 \'请求参数键值升序排序
 Dim keySet As Dictionary(Of String, Object).KeyCollection = requestMap.Keys
 Dim List As List(Of String) = New List(Of String)(keySet)
 List.Sort()

 \'拼参数字符串.
 Dim signStr As New StringBuilder()
 For i As Integer = 0 To List.Count - 1
  Dim key As String = List(i)
  signStr.Append(key & requestMap(key))
 Next

 \'MD5签名并校验
 Dim sign As String = appSecret & signStr.ToString() & appSecret

 sign = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sign, "MD5")
 Return sign.ToUpper()
End Function

\'根据业务需求按照文档构造请求参数
Public Function  getRequestParam() As Dictionary(Of String, Object)
 Dim paramMap As Dictionary(Of String, Object) = New Dictionary(Of String, Object)()
        Dim jo As JObject = JObject.FromObject(getBodyParam())
 paramMap("body") = jo.tostring  \' 注意body是json字符串
 paramMap("format") = "json"
 Dim st As New Date(1970,1,1,8,0,0)
        Dim timestamp As Integer = CInt((Date.Now - st).TotalSeconds()) \'时间戳
 paramMap("timestamp") = timestamp
 paramMap("app_key") = appKey
 paramMap("v") = "1.0"
 paramMap("source_id") = 73753
 Return paramMap
End Function

\'根据业务需求按照文档构造请求参数
Public Function getBodyParam() As Dictionary(of String, object)
 Dim paramMap As new Dictionary(Of String, object)
 paramMap("origin_id") = format(Date.now, "yyyyMMddHHmmss")
 paramMap("city_name") = "上海"
 paramMap("city_code") = "021"
 paramMap("pay_for_supplier_fee") = 0.0
 paramMap("fetch_from_receiver_fee") = 0.0
 paramMap("deliver_fee") = 0.0
 paramMap("tips") = 0
 paramMap("info") = "测试订单"
 paramMap("cargo_price") = 10
 paramMap("is_prepay") = 0
 Dim st As New Date(1970,1,1,8,0,0)
        Dim timestamp As Integer = CInt((Date.Now.AddHours(2) - st).TotalSeconds()) \'时间戳
 paramMap("expected_fetch_time") = timestamp
        timestamp = CInt((Date.Now.AddHours(3)- st).TotalSeconds()) \'时间戳
 paramMap("expected_finish_time") = timestamp
 paramMap("invoice_title") = "测试"
 paramMap("receiver_name") = "测试"
 paramMap("receiver_address") = "上海市崇明岛"
 paramMap("receiver_phone") = "18588888888"
 paramMap("receiver_tel") = "18599999999"
 paramMap("receiver_lat") = 31.2
 paramMap("receiver_lng") = 121.5
 paramMap("callback") = "http,//localhost:8081/receive/"
 paramMap("shop_no") = 11047059

 Return paramMap

End Function

 Return str
End Function

调用代码

\'根据需求按照文档构造请求参数
Dim paramMap As IDictionary(Of String, Object) = getRequestParam
\'按照文档生成签名
Dim sign As String = getSign(paramMap)
paramMap("signature") = sign
\'发送请求

Dim jo As JObject = JObject.FromObject(paramMap)
msgbox(jo.ToString())
Dim response As String = sendPost(ADD_ORDER_URL, jo.ToString())
msgbox(response)

你这些，是不是哪里机翻的？还是人打的？总感觉，看起来，像是javaDemo机翻过来的vb.net

百度找工具。

https://www.baidu.com/baidu?wd=java%E8%BD%ACc%23&tn=monline_dg&ie=utf-8

https://www.baidu.com/baidu?wd=c%23%E8%BD%ACvb.net&tn=monline_dg&ie=utf-8

我尽力，能够发送给官方，并且官方告诉我错误的地方，签名错误，然而我认为我没有错误，不知道怎么修改了，已经是尽力了，贴出所有代码，给后来的人，如果你有恒心，继续搞搞吧

1.全局代码里先添加MD5 32位加密的方法（狐表里默认的是24位的，不合适用）

2.在命令窗口里

Dim appKey As String = "dadac4300b3da8c2910"
Dim appSecret As String = "0ed05802d9537f91dc0548ae3382efca"
\' 测试环境发单url
Dim ADD_ORDER_URL As String = "http://newopen.qa.imdada.cn/api/order/addOrder"

\'根据业务需求按照文档构造请求参数
Dim jo As New JObject
jo("origin_id") = format(Date.now, "yyyyMMddHHmmss")
jo("city_name") = "上海"
jo("city_code") = "021"
jo("pay_for_supplier_fee") = 0.0
jo("fetch_from_receiver_fee") = 0.0
jo("deliver_fee") = 0.0
jo("tips") = 0
jo("info") = "测试订单"
jo("cargo_price") = 10
jo("is_prepay") = 0
Dim st As New Date(1970,1,1,8,0,0)
Dim timestamp As Integer = CInt((Date.Now.AddHours(2) - st).TotalSeconds()) \'时间戳
jo("expected_fetch_time") = timestamp
timestamp = CInt((Date.Now.AddHours(3)- st).TotalSeconds()) \'时间戳
jo("expected_finish_time") = timestamp
jo("invoice_title") = "测试"
jo("receiver_name") = "测试"
jo("receiver_address") = "上海市崇明岛"
jo("receiver_phone") = "18588888888"
jo("receiver_tel") = "18599999999"
jo("receiver_lat") = 31.2
jo("receiver_lng") = 121.5
jo("callback") = "http://localhost:8081/receive/"
jo("shop_no") = 11047059

Dim jo1 As New JObject
jo1("body") = CompressJson(jo)
\' jo.ToString \' 注意body是json字符串
jo1("format") = "json"
Dim st2 As New Date(1970,1,1,8,0,0)
Dim timestamp2 As Integer = CInt((Date.Now - st2).TotalSeconds()) \'时间戳
jo1("timestamp") = timestamp2
jo1("app_key") = appKey
jo1("v") = "1.0"
jo1("source_id") = 73753

Dim keyList As new List (of String )
keyList.Add("body")
keyList.Add("format")
keyList.Add("timestamp")
keyList.Add("app_key")
keyList.Add("v")
keyList.Add("source_id")

Dim keyAry() As String = KeyList.ToArray()
Array.Sort(KeyAry)

Dim sign As String

For i As Integer = 0 To KeyAry.Length -1
    sign = sign & KeyAry(i)  & jo1(KeyAry(i)).ToString
Next
sign = appSecret & sign & appSecret
sign = MD5(sign,32)
sign = sign.ToUpper
jo1("signature") = sign

output.show(jo1.ToString())
Dim hc As New HttpClient(ADD_ORDER_URL)
hc.Timeout = 5 \'设置超时为5秒
hc.C
hc.Content = CompressJson(jo1)
Dim ret As String = hc.GetData()
Dim Rejo As JObject = JObject.Parse(ret)
output .Show(rejo.ToString)

3点执行，效果如下： 

{
  "body": "{\\"origin_id\\":\\"20170828153247\\",\\"city_name\\":\\"上海\\",\\"city_code\\":\\"021\\",\\"pay_for_supplier_fee\\":0.0,\\"fetch_from_receiver_fee\\":0.0,\\"deliver_fee\\":0.0,\\"tips\\":0,\\"info\\":\\"测试订单\\",\\"cargo_price\\":10,\\"is_prepay\\":0,\\"expected_fetch_time\\":1503912768,\\"expected_finish_time\\":1503916368,\\"invoice_title\\":\\"测试\\",\\"receiver_name\\":\\"测试\\",\\"receiver_address\\":\\"上海市崇明岛\\",\\"receiver_phone\\":\\"18588888888\\",\\"receiver_tel\\":\\"18599999999\\",\\"receiver_lat\\":31.2,\\"receiver_lng\\":121.5,\\"callback\\":\\"http://localhost:8081/receive/\\",\\"shop_no\\":11047059}",
  "format": "json",
  "timestamp": 1503905568,
  "app_key": "dadac4300b3da8c2910",
  "v": "1.0",
  "source_id": 73753,
  "signature": "715B3EAA8E701A05D20BC9CB653A87A1"
}

{
  "status": "fail",
  "errorCode": 2003,
  "code": 2003,
  "msg": "签名错误"
}

汗，4楼例子很简单了啊。好吧，你参考下面的例子。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新达达物流.table

我曹，我终于发现我的问题所在，原来是用了非正规的MD5加密！我一行行代码去对比结果，然后我发现只需要改动MD5加密的地方，就返回成功了！

sign = MD5(sign,32)
改为

sign =System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(sign, "MD5"))

事情起源于我发现狐表的md5加密好像跟正规的不一样，于是我去搜论坛，发现这个帖子

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=60429&skin=0

里面介绍了MD5的32位加密的2个方法，

第一种MD5加密方法

把下面的代码写到全局代码，然后调用 msgbox(MD5("12345678", 32))