VBA彻底解决MD5加密中文不一致问题

最新推荐文章于 2024-08-19 14:03:39 发布

蓝天630902

最新推荐文章于 2024-08-19 14:03:39 发布

阅读量7.5k

点赞数

分类专栏： vb vba

本文链接：https://blog.csdn.net/a814153a/article/details/9211793

版权

vba 同时被 2 个专栏收录

11 篇文章 1 订阅

订阅专栏

5 篇文章 0 订阅

订阅专栏

md5的“JavaScript”代码，在“http://www.cmd5.com/md5.js”里面

下面，我们通过Vba调用他来计算“VBA彻底解决MD5加密中文不一致问题”的md5:

Sub md5加密()
    Set mx = CreateObject("Msxml2.XMLHTTP.5.0")
    mx.Open "GET", "http://www.cmd5.com/md5.js", False
    mx.Send
    Set js = CreateObject("msscriptcontrol.scriptcontrol")
    js.Language = "JavaScript"
    js.AddCode mx.responsetext
    Debug.Print js.CodeObject.hex_md5("VBA彻底解决MD5加密中文不一致问题")    '小写
    Debug.Print js.Eval("var str='" & js.CodeObject.hex_md5("VBA彻底解决MD5加密中文不一致问题") & "';str.toUpperCase();")    '大写
End Sub