Foxtable(狐表)用户栏目专家坐堂 → [求助]发送移动短信乱码


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

主题:[求助]发送移动短信乱码

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107847 积分:548592 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/12 15:59:00 [显示全部帖子]

http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150847&page=1&star=2

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107847 积分:548592 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/12 16:11:00 [显示全部帖子]

自己发的贴打不开?加密后的数据就是这样的,有什么奇怪的?

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

你理解错了,意思是使用32位的加密算法。

如果不正确,找移动要.net源码。如果没有就换其他短信平台吧

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107847 积分:548592 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/13 9:31:00 [显示全部帖子]

把上面的代码最前面加上public,放到全局代码
如:
public Function MD5(ByVal strSource As String, ByVal Code As Int16) As String
        Dim dataToHash As Byte() = (New System.Text.ASCIIEncoding).GetBytes(strSource)
……

然后命令窗口测试:
Dim s As String = "常德市第一中医院dddzzzfffgggg13807363451测试短信lPdRneeee"
Output.Show(md5(s,32))

如果结果也不是预期的,说明算法不一样。MD5有多种算法,如果官方不给实例,就自己在找找其他算法吧,或者就不要折腾了

 回到顶部