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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → MD5加密问题

共有5803人关注过本帖树形打印复制链接主题：MD5加密问题

刘林

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

MD5加密问题 发帖心情

Post By：2022/7/11 21:58:00 [只看该作者]

https://md5jiami.bmcx.com/

请问老师，这个加密方式对应fox 命令怎么写？谢谢

要得到结果是32位小写

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

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

刘林

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：2022/7/11 22:16:00 [只看该作者]

dim val="12345“

Dim s = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(val, "MD5").Tolower

msgbox(s)

我找到个这个，请问要不要得，有问题没有？

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/7/11 22:25:00 [只看该作者]

自己核对结果一样就可以

刘林

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00

Post By：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)