专家坐堂-MD5加密问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  MD5加密问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178601)

--  作者：刘林
--  发布时间：2022/7/11 21:58:00
--  MD5加密问题
https://md5jiami.bmcx.com/
请问老师，这个加密方式对应fox 命令怎么写？谢谢
要得到结果是32位小写

[此贴子已经被作者于2022/7/11 22:00:13编辑过]

--  作者：有点蓝
--  发布时间：2022/7/11 22:13:00
--

Dim s As String = "123456"

Using md5Hash As System.Security.Cryptography.MD5 = System.Security.Cryptography.MD5.Create()
Dim data As Byte() = md5Hash.ComputeHash(Encoding.UTF8.GetBytes(s))
Dim sBuilder As New StringBuilder()
Dim i As Integer
For i = 0 To data.Length - 1
sBuilder.Append(data(i).ToString("x2"))
Next i
Dim hash As String = sBuilder.ToString().Tolower
Output.Show(hash)
End Using

--  作者：刘林
--  发布时间：2022/7/11 22:16:00
--

dim val="12345“
Dim s = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(val, "MD5").Tolower
msgbox(s)
我找到个这个，请问要不要得，有问题没有？

--  作者：有点蓝
--  发布时间：2022/7/11 22:25:00
--
自己核对结果一样就可以

--  作者：刘林
--  发布时间：2022/7/11 22:42:00
--

Dim accountSid As String = "2cb53cfeee9935553b2414617ed0575e"
Dim authToken As String ="55ed68fa7df105059ca6dc33262deaaf"
Dim Timestamp As String =DateDiff("s", "01/01/1970 08:00:00", Now())
Dim Val As String =accountSid & authToken & Timestamp
Dim s = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(val, "MD5").Tolower
Dim hc As New HttpClient("https://openapi.danmi.com/distributor/sendSMS?accountSid=2cb53cfeee9935553b2414617ed0575e&to=13696057348&templateid=356821&param=刘林,你收到该短信则说明你的测试成功&timestamp=" & Timestamp & "&sig=" & s & "&accountId=858416")
messagebox.show("https://openapi.danmi.com/distributor/sendSMS?accountSid=2cb53cfeee9935553b2414617ed0575e&to=13696057348&templateid=356821&param=刘林,你收到该短信则说明你的测试成功&timestamp=" & Timestamp & "&sig=" & s & "&accountId=858416")
Dim result As String = hc.GetData()
Dim jo As JObject = Jobject.Parse(result)
messagebox.show(jo)

此主题相关图片如下：6a31291140f12d5e19bd70c494c4fd0.png

请问出现这个是什么原因

--  作者：有点蓝
--  发布时间：2022/7/11 22:48:00
--
返回的不是josn数据，或者没有数据

Dim result As String = hc.GetData()
messagebox.show(result )

--  作者：刘林
--  发布时间：2022/7/11 23:01:00
--

此主题相关图片如下：1657551508147.png

Dim accountSid As String = "2cb53cfeee9935553b2414617ed0575e"
Dim authToken As String ="55ed68fa7df105059ca6dc33262deaaf"
Dim Timestamp As String =DateDiff("s", "01/01/1970 08:00:00", Now())
Dim Val As String =accountSid & authToken & Timestamp
Dim s = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(val, "MD5").Tolower
Dim hc As New HttpClient("https://openapi.danmi.com/distributor/sendSMS?accountSid=2cb53cfeee9935553b2414617ed0575e&to=13696057348&templateid=356821&param=刘林,你收到该短信则说明你的测试成功&timestamp=" & Timestamp & "&sig=" & s & "&accountId=858416")
messagebox.show("https://openapi.danmi.com/distributor/sendSMS?accountSid=2cb53cfeee9935553b2414617ed0575e&to=13696057348&templateid=356821&param=刘林,你收到该短信则说明你的测试成功&timestamp=" & Timestamp & "&sig=" & s & "&accountId=858416")
Dim result As String = hc.GetData()
messagebox.show(result )

请老师帮研究下，这个文档说明这样写始终没对，哪里有问题？-

--  作者：有点蓝
--  发布时间：2022/7/11 23:06:00
--
要使用表单提交模式：http://www.foxtable.com/mobilehelp/topics/0159.htm

Dim hc As New HttpClient("https://openapi.danmi.com/distributor/sendSMS“)
hc.ContentType = "application/x-www-form-urlencoded;charset=UTF-8"
hc.FormData.Add("accountSid","2cb53cfeee9935553b2414617ed0575e")

--  作者：刘林
--  发布时间：2022/7/11 23:20:00
--

此主题相关图片如下：1657552662821.png

终于要成功了，过期是不是要用他服务上的时间，因为now是我本地电脑的时间，怎么取得对应服务器的时间呢？-

--  作者：刘林
--  发布时间：2022/7/11 23:57:00
--
找到了原因，时间戳要用毫秒，但现在是成功了，且平台扣了费，就是手机没有收到短信