百度登录

最新推荐文章于 2022-09-30 15:23:29 发布

weixin_30296405

最新推荐文章于 2022-09-30 15:23:29 发布

阅读量506

点赞数

文章标签：爬虫

原文链接：http://www.cnblogs.com/wcymiss/p/6343905.html

版权

PC上我的账号登录登录需要验证码，然后用手机就不需要验证码。

设置Fiddler的Agent为WinPhone，然后浏览器打开百度进行登录，我用的是谷歌浏览器。

分析抓包内容，其登录的主要加密参数就是password。

登录的代码如下：

Sub Main()
    Dim strText As String
    Dim objHttp As Object
    Dim UserName As String
    Dim PassWord As String
    Dim PostData
    
    UserName = "abcd"
    PassWord = "1234"
    
    Set objHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    PostData = "username=" & UserName
    PostData = PostData & "&password=" & GetPassword(PassWord, objHttp)
    PostData = PostData & "&tpl=wimn"
    With objHttp
        .Open "POST", "https://wappass.baidu.com/wp/api/login", False
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .Send PostData
    End With
    
    '=========下面是验证登录=======
    With objHttp
        .Open "GET", "http://i.baidu.com/", False
        .Send
        strText = .responsetext
        Debug.Print Mid(strText, InStr(strText, "user-nick") - 10, 200)
    End With
    
    Set objHttp = Nothing
End Sub

Private Function GetPassword(PassWord As String, Optional ByVal objHttp As Object = Nothing) As String
    Dim strText As String
    Dim strJS As String
    Dim serverTimeVar As String
    Dim SBCtoDBC As String
    Dim biRadixBase As String
    Dim BarrettMu As String
    Dim Rsa As String
    Dim PassWordFunc As String
    
    If objHttp Is Nothing Then Set objHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    With objHttp
        .Open "GET", "http://wappass.baidu.com/wp/api/security/antireplaytoken?tpl=wimn", False
        .Send
        strText = .responsetext
    End With
    serverTimeVar = "var serverTime=""" & Split(Split(strText, ",""time"":""")(1), """")(0) & """;"
    
    With objHttp
        .Open "GET", "http://wappass.baidu.com/static/touch/js/base_3d7603a.js", False
        .Send
        strText = .responsetext
    End With
    BarrettMu = Split(strText, "!function(t)")(0) & ";"
    biRadixBase = "var biRadixBase" & Split(Split(strText, "var biRadixBase")(1), "!function(t,e)")(0) & ";"
    SBCtoDBC = "var SBCtoDBC=function(t)" & Split(Split(strText, "_SBCtoDBC:function(t)")(1), ",inputBlur")(0) & ";"
    
    With objHttp
        .Open "GET", "http://wappass.baidu.com/static/touch/js/login_843d752.js", False
        .Send
        strText = .responsetext
    End With
    Rsa = "var rsa=""" & Split(Split(strText, ",rsa:""")(1), """")(0) & """;"
    
    PassWordFunc = "function GetPassword(pwd){"
    PassWordFunc = PassWordFunc & "pwd=SBCtoDBC(pwd)+serverTime;"
    PassWordFunc = PassWordFunc & "setMaxDigits(131);"
    PassWordFunc = PassWordFunc & "var u=new RSAKeyPair(""10001"", """", rsa);"
    PassWordFunc = PassWordFunc & "return encryptedString(u,pwd)};"
    
    strJS = serverTimeVar & BarrettMu & biRadixBase & SBCtoDBC & Rsa & PassWordFunc
    strJS = "<html><script>" & strJS & "</script></html>"
    
    With CreateObject("htmlfile")
        .Write strJS
        GetPassword = .parentwindow.GetPassword(PassWord)
    End With
    
    Set objHttp = Nothing
End Function

转载于:https://www.cnblogs.com/wcymiss/p/6343905.html

weixin_30296405

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
百度登录

PC上我的账号登录登录需要验证码，然后用手机就不需要验证码。设置Fiddler的Agent为WinPhone，然后浏览器打开百度进行登录，我用的是谷歌浏览器。分析抓包内容，其登录的主要加密参数就是password。登录的代码如下：Sub Main() Dim strText As String Dim objHttp As Object Dim U...
复制链接

扫一扫