(MD5加密+验证码)网页登录的一个案例-(VBA联手JAVASCRIPT解决)

kangatang

有些安全级别高的网站，需要下载网站特有的安全控件才能登陆，比如网银、支付宝。。。怀念2014年和论坛大侠hyy514联手尝试过一次。人生就短短几十年，需要经历和感悟来充实。很羡慕那些职业和兴趣一致的人，没有让生计挤压和消烛兴趣。

venomlk

哪位高手能否说一下，遇到以下情况怎么解决
var a=function(){....}
这个怎么调用？！

之前遇到的是以下语句
function a(n,m){....}
调用可以写为
js.codeobject.a(n,m)

lqh123109

写的很细，但可移值性可操作性不太强，还要去网页和JS分析，能否把网页JS和JS模块代码一起下载汇总，解然后JS.Eval 去执行汇总的JS汇总代码，直接拿到加密后的数据，否则去一个个分析，简单还好说，复杂的真不好对付了？ 我现在碰到问题，不知道如何汇总，不知道如何去JS加载运行，总是提示语法错误或者缺少标识符

kangatang

lqh123109 发表于 2019-10-23 08:22
写的很细，但可移值性可操作性不太强，还要去网页和JS分析，能否把网页JS和JS模块代码一起下载汇总，解然后 ...

case by case

不干的泪痕

kangatang 发表于 2019-10-25 22:14
case by case

大师，能否帮忙写一下怎么执行JavaScript的语句，已能实现从网页下载加密JS文件。就是写不对调用js文件的语句，在论坛搜了好几种写法都没成功。附件是下载的加密js文件，网页用encryptByDES(message, key)这个函数加密账号和密码的。
由于对JavaScript不熟，应该是语法上有错误。
求助：
1，如果能直接发现代码中的语法错误最好，麻烦帮指出一下；
2，或者直接帮把调用js加密文件加密的过程写一下，js加密文件见附件，可采用您贴中的方式加载或者直接读取都行，我的问题应该是调用加密文件进行加密上出错了。
vba刚入门不仅，还没接触JavaScript，经验不足。恳请前辈指点一二，拜谢。
前面也在其他帖子提了http://club.excelhome.net/thread-1478285-2-1.html，可能大师们没看到或者觉得太小儿科了懒得出手。。。


Sub loginjm()
Dim strText, strJS, strJSFun As String

With CreateObject("Microsoft.XMLHTTP")                    '获取加密js文件
    .Open "GET", "http://XXXX/uac/resources/static/cryptojs/rollups/tripledes.js", False
    .Send
    strJS = .responsetext

    .Open "GET", "http://XXXX/uac/resources/static/cryptojs/components/mode-ecb.js", False
    .Send
    strJS = strJS & ";" & .responsetext
End With

Set jsc = CreateObject("MSScriptControl.ScriptControl")
    jsc.Language = "javascript"
    '按网页js文件中的加密函数function encryptByDES(message, key)编写加密JavaScript语句，此处出错提示缺少“;”
    jsc.AddCode strJS & ";" & "Function jm(message, key){var keyHex = CryptoJS.enc.Utf8.parse(key);var encrypted = CryptoJS.DES.encrypt(message, keyHex, {mode : CryptoJS.mode.ECB,padding : CryptoJS.pad.Pkcs7});return encrypted.toString();}"
    '为了方便调试，假设账号是：12345678910，密钥是“9074d0f6406a414da93d16dd3e14760c”
    jmjg = jsc.Run("jm", "12345678910", "9074d0f6406a414da93d16dd3e14760c")

    Debug.Print jmjg
End Sub

232670631

群住，还来吗，有网抓想抓取，

kangatang

232670631 发表于 2020-3-26 16:34
群住，还来吗，有网抓想抓取，

我是楼主，不是群主

232670631

kangatang 发表于 2020-3-27 17:22
我是楼主，不是群主

楼主好，我想抓取数据，能发一个2020年的现成的案例，供我参考吗？不知道楼主收费么？

peter-chen

大师的代码得慢慢学习，先记录一下。感谢分享

kangatang

232670631 发表于 2020-4-1 10:02
楼主好，我想抓取数据，能发一个2020年的现成的案例，供我参考吗？不知道楼主收费么？

网络操作的VBA模块化通用代码，多年研究独家心得，大甩卖，5000起步。卖完后隐退江湖。出售代码包括：利用网页Javascript功能、自动切换代理服务器、可用代理服务器批量搜索、Winhttp类模块通用模块、VBA代码网络更新、STMP协议发邮件、POP协议收邮件，winSoket API通用类模块，VBA商业工具级别开发代码(版权原因，仅部分公开)。。。后面就不吹了。