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


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

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

帅哥哟,离线,有人找我吗?
zcgmxf
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1636 积分:14489 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2020/6/10 14:01:00 [只看该作者]

行不行都谢谢您,辛苦了!

 回到顶部
帅哥哟,离线,有人找我吗?
zcgmxf
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1636 积分:14489 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2020/6/12 15:31:00 [只看该作者]

老师,有个问题,就是jo(Mac) output.show  s是乱码,怎么解决?谢谢!

Dim str As String = jo("ecName").ToString() & jo("apId").ToString() & jo("secretKey").ToString() & jo("mobiles").ToString() & jo("content").ToString() & jo("sign").ToString() & jo("addSerial").ToString() 
Dim md5Hash As System.Security.Cryptography.MD5 = System.Security.Cryptography.MD5.Create()
Dim data As Byte() = md5Hash.ComputeHash(Encoding.UTF8.GetBytes(str))

jo("mac") = Encoding.UTF8.GetString(data)
Dim base64 = Convert.ToBase64String(Encoding.UTF8.GetBytes(jo.ToString))
'output.Show(base64 )
output.Show(jo("mac"))
hc.Content = base64 
Dim ret As String = hc.GetData()
MessageBox.Show(ret)

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


加好友 发短信
等级:超级版主 帖子:107523 积分:546900 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/12 15:54:00 [只看该作者]

这个本来就是加密后的数据,肯定是乱码

 回到顶部
总数 13 上一页 1 2