这个例程POST提交怎么实现登陆

majormaster

学习了一些POST的教程，拿宜贷网做了个实验，发现这个网站的JS加密登陆计算方式和陆金所一样，但页面登陆确认多了一段AJAX，请问用易语言如何实现登陆？
易语言代码如下：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
cookie	文本型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
文本	文本型
name	文本型
pass	文本型
web	文本型
地址	文本型

name ＝ 删首尾空 (用户名.内容)
pass ＝ 删首尾空 (密码.内容)
文本 ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (“https://www.yidai.com/user/login/”)))
地址 ＝ 编码_ansi到usc2 (文本_取出中间文本 (文本, #常量2, #常量3 ))  ' 易语言获取=“L3VzZXIvbG9naW4=”浏览器获取=“L3VzZXJpbmRleA==”
调试输出 (地址)
name ＝ RSA加密 (name)
pass ＝ RSA加密 (pass)
地址 ＝ RSA加密 (地址)
web ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (“https://www.yidai.com/user/login/”, 1, “returnurl=” ＋ 地址 ＋ “&keywords=” ＋ name ＋ “&password=” ＋ pass, cookie)))
调试输出 (name, pass, 地址, cookie)

子程序名	返回值类型	公开	备 注
RSA加密	文本型
参数名	类 型	参考	可空	数组	备 注
加密参数	文本型

变量名	类 型	静态	数组	备 注
文本	文本型
publicKey	文本型
value	文本型
js	文本型

文本 ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (“https://www.yidai.com/user/login/?returnurl=userindex”)))
publicKey ＝ “E2E8F13A51EE5F5D63F6D0C51984ACDF366D99544B4FD0AE5132BC1B6EBE8CA9AD715CDA1626E69BF1FE37EF1B4E63AAB0B1836D929C907EE9A2DDBA5EAC26C10AD740972983BC7AA1984BEA030B44CCC74E00611FAA21C5F94AC24A8EBE0EE38ECCAA0776300FC2A3C20B0285E6373A402860D92F1645034B217C2D4F102115”
value ＝ “10001”
' 调试输出 (publicKey, value)
js ＝ JS调试 ( #常量1, “test”, “'” ＋ 加密参数 ＋ “','” ＋ publicKey ＋ “','” ＋ value ＋ “'”)
' 调试输出 (js)
返回 (js)

子程序名	返回值类型	公开	备 注
JS调试	文本型		代码由鬼鬼JS调试工具生成 BY QQ:120220707
参数名	类 型	参考	可空	数组	备 注
JS代码	文本型
函数名	文本型
参数	文本型

变量名	类 型	静态	数组	备 注
js	对象
return	文本型

CoInitialize (0)  ' 线程中请初始化COM  否则会出错
js.创建 (“ScriptControl”, )
js.写属性 (“Language”, “JavaScript”)
js.数值方法 (“AddCode”, JS代码)  ' 调试成功的JS代码段
return ＝ js.通用方法 (“eval”, 函数名 ＋ “(” ＋ 参数 ＋ “)”).取文本 ()
' CoUninitialize ()
返回 (return)
' 本例程调用方法直接复制    JS调试 (调试成功JS代码,"test" ,"'sasasaa','FFFFFFFFFFFFFFFFFFFFFFFFFFFSDDSDSD','100CDDD1'" )

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文本	文本型

XP风格 (2)

i支持库列表	支持库注释
spec	特殊功能支持库
xplib	XP风格界面库

.版本 2<br /> .支持库 spec<br /> .支持库 xplib<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 cookie, 文本型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型<br /> .局部变量 name, 文本型<br /> .局部变量 pass, 文本型<br /> .局部变量 web, 文本型<br /> .局部变量 地址, 文本型<br /> <br /> name ＝ 删首尾空 (用户名.内容)<br /> pass ＝ 删首尾空 (密码.内容)<br /> 文本 ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (“https://www.yidai.com/user/login/”)))<br /> 地址 ＝ 编码_ansi到usc2 (文本_取出中间文本 (文本, #常量2, #常量3))  ' 易语言获取=“L3VzZXIvbG9naW4=”浏览器获取=“L3VzZXJpbmRleA==”<br /> 调试输出 (地址)<br /> name ＝ RSA加密 (name)<br /> pass ＝ RSA加密 (pass)<br /> 地址 ＝ RSA加密 (地址)<br /> web ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (“https://www.yidai.com/user/login/”, 1, “returnurl=” ＋ 地址 ＋ “&keywords=” ＋ name ＋ “&password=” ＋ pass, cookie)))<br /> 调试输出 (name, pass, 地址, cookie)<br /> <br /> <br /> .子程序 RSA加密, 文本型, 公开<br /> .参数 加密参数, 文本型<br /> .局部变量 文本, 文本型<br /> .局部变量 publicKey, 文本型<br /> .局部变量 value, 文本型<br /> .局部变量 js, 文本型<br /> <br /> 文本 ＝ 编码_utf8到gb2312 (到文本 (网页_访问_对象 (“https://www.yidai.com/user/login/?returnurl=userindex”)))<br /> publicKey ＝ “E2E8F13A51EE5F5D63F6D0C51984ACDF366D99544B4FD0AE5132BC1B6EBE8CA9AD715CDA1626E69BF1FE37EF1B4E63AAB0B1836D929C907EE9A2DDBA5EAC26C10AD740972983BC7AA1984BEA030B44CCC74E00611FAA21C5F94AC24A8EBE0EE38ECCAA0776300FC2A3C20B0285E6373A402860D92F1645034B217C2D4F102115”<br /> value ＝ “10001”<br /> ' 调试输出 (publicKey, value)<br /> js ＝ JS调试 (#常量1, “test”, “'” ＋ 加密参数 ＋ “','” ＋ publicKey ＋ “','” ＋ value ＋ “'”)<br /> ' 调试输出 (js)<br /> 返回 (js)<br /> <br /> <br /> .子程序 JS调试, 文本型, 公开, 代码由鬼鬼JS调试工具生成 BY QQ:120220707<br /> .参数 JS代码, 文本型<br /> .参数 函数名, 文本型<br /> .参数 参数, 文本型, 可空<br /> .局部变量 js, 对象<br /> .局部变量 return, 文本型<br /> <br /> CoInitialize (0)  ' 线程中请初始化COM  否则会出错<br /> js.创建 (“ScriptControl”, )<br /> js.写属性 (“Language”, “JavaScript”)<br /> js.数值方法 (“AddCode”, JS代码)  ' 调试成功的JS代码段<br /> return ＝ js.通用方法 (“eval”, 函数名 ＋ “(” ＋ 参数 ＋ “)”).取文本 ()<br /> ' CoUninitialize ()<br /> 返回 (return)<br /> ' 本例程调用方法直接复制    JS调试 (调试成功JS代码,"test" ,"'sasasaa','FFFFFFFFFFFFFFFFFFFFFFFFFFFSDDSDSD','100CDDD1'" )<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本, 文本型<br /> <br /> XP风格 (2)

在宜贷的登陆页面中有这样一段确认登陆的：
$.ajax({
      type:"post",
      url:'/user/sublogin/',
      dataType:'json',
      async: true,
      data: postStr,      ' postStr= “returnurl=” ＋ 地址 ＋ “&keywords=” ＋ name ＋ “&password=” ＋ pass
      success:function(result){
        from_url=result[3]?result[3]:from_url;
        var status=false;
        $(result).each(function(i,v){
               
          if(i==0){
            if(v!=1){
              if(decodeURI(v)=='users_email_active_no'){
                window.location.href='/?user&q=olduser_approve';
              }else if(decodeURI(v)=='帐号已锁定，请联系客服'){
                                window.location.href='/user/tips_lock';               
                        }else{
                $("#error_str").html(decodeURI(v));
                $("#login_button").val('登录');
              }
            }else{
              status=true;
            }
          }else if(i == 1){
                        if(v == 'locked'){
                                window.location.href='/user/tips_lock';
                        }
                  }else if(i==2){
            if(status){
              if(from_url==bbs_url){
                from_url=from_url+'?key='+v;
              }

              //40亿活动跳转
              if(from_url.indexOf('edai.com/specialSubject.php?mod=tiger')>0){
                from_url=from_url+'&key='+v;
              }

              window.location.href=from_url;
            }
          }
        });
      },
      cache:false
    });

请教：易语言怎么调用来实现登陆？


补充内容 (2018-3-4 13:01):
源码附后面

补充内容 (2018-3-4 13:03):
7楼

Hwak

宜贷网 rsa hex base64.txt (26.62 KB, 下载次数: 2)

2018-3-4 08:50 上传

点击文件名下载附件 抓包分析 是什么就是什么 运行函数getrsa

smxmcylw

既然你是POST 登录，只需要抓包分析就好了，没必要知道 ajax的方式。

majormaster

ctw507 发表于 2018-3-4 08:51
抓包分析 是什么就是什么 运行函数getrsa

这个我已经抓到改好了，现在就是用代码登陆后加密都已经实现，就是显示未登陆，抓包就是没有AJAX这段提交，易语言怎么调用这段？和JS一样写子程序？

majormaster

smxmcylw 发表于 2018-3-4 08:28
既然你是POST 登录，只需要抓包分析就好了，没必要知道 ajax的方式。

这个我已经抓到改好了，现在就是用代码登陆后加密都已经实现，就是显示未登陆，AJAX这段进程没有，易语言怎么调用这段？和JS一样写子程序？

majormaster

这个是代码运行后的输出：
* “L3VzZXIvbG9naW4%3D”
* “59BB32B6B26489277261E1BEA3E94CE0D4AAA26EA1FB1D37396D33589D4B06816CBE82D0FB17482FCC9B91EDFD35DDF00C704C5DD3D189670A35D0051F23896A62923F4709550B8C7BBE65D33EB9DBC587940888A6769F04C56D3B5F610EE69D5C3880A082B13CC1472E8A5458D4CCBFA2ED397404F56FFDE40BB55604EC851E” | “88311CAF61BE67EF3E8547887DBE4E9E4C1D6B6D67FB8E21A023BC23571A69AE0938BBF19F43380D413F34B79232FEACFA5199668A0C14D245C2F66BFD3FA29ABF91FDA567FD634FD186279C652F902734A25B82E988AA74974B5B07B01E2CA2F3EE822EA82F5A8A76D764DAFE2AB8D224335FB91D954C353D0F054550822340” | “D0DADE8D597F0000160EC0841EE03EB2476E6578212C2232B8B0FF3686E0B3A0D20A2B81C4A6884CA58E243115D1EF5F322D0CFE172E88CD1F7B22972A4F098C67117D07C2479E05212E9A18A400E03F2D22741690FBE743D15C18546BF5E05CD185BEBC599681FE11FA094C35FC9EBBBF56710C1297F3A569C637F3CCF98AE1” | “__ads_session=PQ4T8yV3DwmvcJTPawA=”

majormaster

宜贷.e (694.55 KB, 下载次数: 6)

2018-3-4 13:02 上传

点击文件名下载附件
此为源码，帮忙看看