JS反混淆

最新推荐文章于 2024-08-08 07:50:16 发布

蓝天630902

最新推荐文章于 2024-08-08 07:50:16 发布

阅读量7.3k

点赞数

分类专栏： vba 文章标签： Js 反混淆 Vba

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

版权

vba 专栏收录该内容

11 篇文章 1 订阅

订阅专栏

Sub js反混淆()
    With CreateObject("Microsoft.XMLHTTP")
        On Error Resume Next
        .Open "GET", "http://passport.58.com/rsa/ppt_security.js", False    '这个js是被混淆了的
        .send
        ss = Replace(Replace(.responsetext, "eval(", ""), ".split('|'),0,{}))", ".split('|'),0,{})")
    End With
    Open "C:\a.html" For Append As #1
    Print #1, "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Strict//EN""    ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd""><html xmlns=""http://www.w3.org/1999/xhtml""><head><title></title></head><body><div id=""divTest""></div><script type=""text/javascript"">document.getElementById('divTest').innerText="
    Print #1, ss
    Print #1, "</script></body></html>"
    Close #1
    With CreateObject("internetExplorer.Application")
        .Visible = True
        .Navigate "C:\a.html"    '看看，是不是已经反混淆了
        While .ReadyState <> 4 Or .busy
            DoEvents
        Wend
    End With
End Sub