如何在易语言中调用这段js，生成正确的AS CP值

笨猴

关键js：

function(t) {
    var e = {};
    e.getHoney = function() {
        var t = Math.floor((new Date).getTime() / 1e3),
        e = t.toString(16).toUpperCase(),
        n = md5(t).toString().toUpperCase();
        if (8 != e.length) return {
            as: "479BB4B7254C150",
            cp: "7E0AC8874BB0985"
        };
        for (var o = n.slice(0, 5), i = n.slice( - 5), a = "", r = 0; 5 > r; r++) a += o[r] + e[r];
        for (var l = "",
        s = 0; 5 > s; s++) l += e[s + 3] + i;
        return {
            as: "A1" + a + e.slice( - 3),
            cp: e.slice(0, 3) + l + "E1"
        }
    },
    t.ascp = e
}

http://s3.pstatp.com/toutiao/resource/tt_search/page/media_profile/index_c8dab94.js 全部的js。

用控制台可以生成，直接在线调用md5，
let fn =  () => {
    let time = Math.floor((new Date).getTime() / 1e3),
        key = time.toString(16).toUpperCase(),
        md5key = md5(time).toString().toUpperCase();
     if (key.length != 8) {
         return {
           " asDefault": "479BB4B7254C150",
            "cp10Default": "7E0AC8874BB0985"
           };
        } else {
               let ascMd5str = md5key.slice(0,5),
                   descMd5str =md5key.slice(-5),
                   asStr=""
                   cpStr=""
               for (let j = 0; j < 5; j++) {
                    asStr += ascMd5str[j] + key[j];
                }
               for  (let k = 0; k < 5; k++) {
                    cpStr += descMd5str[k] + key[k + 3];
                }

                return {
                         "as": "A1" + asStr + key.slice( - 3),
                         "cp": key.slice(0, 3) + cpStr + "E1"
        };
    }
   
};
   setInterval("console.log(fn());",100);

一热心网友帮忙写的

子程序名	返回值类型	公开	备 注
JS_GetPar	文本型	√	此代码由**编程网Js调试工具生成代码，请添加**模块使用。模块下载地址 http://www.leybc.com/thread-2843-1-1.html

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

' 线程_初始化COM库 ()  ' 线程中请初始化COM  否则会出错
Js.创建 (“ScriptControl”, )
Js.写属性 (“Language”, “JavaScript”)
Js.数值方法 (“AddCode”, #常量_Js )  ' 请在常量_Js中放入调试成功的JS代码段
return ＝ Js.通用方法 (“eval”, “GetPar” ＋ “('')”).取文本 ()
' 线程_取消COM库 ()
返回 (return)
JS.zip (2.29 KB, 下载次数: 9)

2017-8-20 13:48 上传

点击文件名下载附件


哪有老铁能帮忙修改下，让其生成的as和cp值是正常的。

嘉轩嘉怡

  

子程序名	返回值类型	公开	备 注
JSGetPar	逻辑型
参数名	类 型	参考	可空	数组	备 注
as	文本型
cp	文本型

变量名	类 型	静态	数组	备 注
Js	对象
Str	对象
Return	逻辑型

' 线程_初始化COM库 ()
Js.创建 (“ScriptControl”, )
Js.写属性 (“Language”, “JavaScript”)
Js.数值方法 (“AddCode”, #常量_Js )  ' 请在常量_Js中放入调试成功的JS代码段
Str ＝ Js.通用方法 (“eval”, “GetPar” ＋ “('')”).取对象 ()
as ＝ Str.读属性 (“as”, ).取文本 ()
cp ＝ Str.读属性 (“cp”, ).取文本 ()
判断 (as ≠ “” 且 cp ≠ “”)
Return ＝ 真
Return ＝ 假
调试输出 (as, cp)
' 线程_取消COM库 ()
返回 (Return)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 JSGetPar, 逻辑型, 公开<br /> .参数 as, 文本型, 参考 可空<br /> .参数 cp, 文本型, 参考 可空<br /> .局部变量 Js, 对象<br /> .局部变量 Str, 对象<br /> .局部变量 Return, 逻辑型<br /> <br /> ' 线程_初始化COM库 ()<br /> Js.创建 (“ScriptControl”, )<br /> Js.写属性 (“Language”, “JavaScript”)<br /> Js.数值方法 (“AddCode”, #常量_Js)  ' 请在常量_Js中放入调试成功的JS代码段<br /> Str ＝ Js.通用方法 (“eval”, “GetPar” ＋ “('')”).取对象 ()<br /> as ＝ Str.读属性 (“as”, ).取文本 ()<br /> cp ＝ Str.读属性 (“cp”, ).取文本 ()<br /> .判断开始 (as ≠ “” 且 cp ≠ “”)<br />     Return ＝ 真<br /> .默认<br />     Return ＝ 假<br /> .判断结束<br /> 调试输出 (as, cp)<br /> ' 线程_取消COM库 ()<br /> 返回 (Return)

再把JS和易语言代码一并给你附上 GetASCP.e (646.03 KB, 下载次数: 33)

2017-8-21 14:55 上传

点击文件名下载附件

嘉轩嘉怡

正常值是什么样子？

笨猴

嘉轩嘉怡 发表于 2017-8-20 14:00
正常值是什么样子？

VM2986:1 Object {as: "A1F5C9B9493271B", cp: "599A99207A1FBE1"}
VM2987:1 Object {as: "A1F56919391271C", cp: "599A9A2E7C18CE1"}
VM2988:1 Object {as: "A195B949A9B271D", cp: "59929E22711EDE1"}
VM2989:1 Object {as: "A1A53949D92271E", cp: "599A95297E1BEE1"}
VM2990:1 Object {as: "A1258909195271F", cp: "5994932A7115FE1"}
VM2991:1 Object {as: "A1E5095929A2720", cp: "5999982E74250E1"}
VM2992:1 Object {as: "A1B529B929C2721", cp: "59929E2C7C211E1"}
VM2993:1 Object {as: "A1B529096932722", cp: "59949623722A2E1"}
VM2994:1 Object {as: "A1F59989B942723", cp: "5990912C77233E1"}
VM2995:1 Object {as: "A155B9B999F2724", cp: "5994932C7A2A4E1"}
VM2996:1 Object {as: "A12519299982725", cp: "5990982F762B5E1"}
VM2997:1 Object {as: "A1356959E9E2726", cp: "5990912175286E1"}
VM2998:1 Object {as: "A16589091942727", cp: "599B902D73237E1"}
VM2999:1 Object {as: "A19519D959E2728", cp: "59969D2E73248E1"}
VM3000:1 Object {as: "A165D9D9D952729", cp: "5990962A7D2F9E1"}
VM3001:1 Object {as: "A18539D9993272A", cp: "5997932D7722AE1"}
VM3002:1 Object {as: "A1B56979D90272B", cp: "5992922B7B2BBE1"}
VM3003:1 Object {as: "A1D5F90919D272C", cp: "599C93267D22CE1"}
VM3004:1 Object {as: "A1D5B969A9E272D", cp: "59969B20712CDE1"}
VM3005:1 Object {as: "A1C52999095272E", cp: "59909828762FEE1"}
VM3006:1 Object {as: "A1D58949B9F272F", cp: "5993992C7229FE1"}
VM3007:1 Object {as: "A11519A96992730", cp: "599592207D380E1"}
VM3008:1 Object {as: "A1C5F9597992731", cp: "599991297C301E1"}
VM3009:1 Object {as: "A13549C91912732", cp: "599E9823783A2E1"}
VM3010:1 Object {as: "A135C9F98942733", cp: "599692217A363E1"}
VM3011:1 Object {as: "A175A95959C2734", cp: "5999932B703F4E1"}
VM3012:1 Object {as: "A185195999B2735", cp: "599C9A2D71375E1"}
这样的

嘉轩嘉怡

好吧 没改好。。。。

MY寂寞的夜

怎么还没搞定？               

笨猴

MY寂寞的夜 发表于 2017-8-20 14:24
怎么还没搞定？

交给你搞定了

嘉轩嘉怡

  

子程序名	返回值类型	公开	备 注
GetPar
参数名	类 型	参考	可空	数组	备 注
as	文本型
cp	文本型

变量名	类 型	静态	数组	备 注
Time	文本型
key	文本型
md5key	文本型
ascMd5str	文本型		0
descMd5str	文本型		0
key_	文本型		0
i	整数型
asStr	文本型
cpStr	文本型

Time ＝ 时间_取现行时间戳 (真)
key ＝ 进制_十到十六 (到整数 (Time))
md5key ＝ 到大写 (取数据摘要 (到字节集 (Time)))
判断 (取文本长度 (key) ≠ 8)
as ＝ “479BB4B7254C150”
cp ＝ “7E0AC8874BB0985”
文本_逐字分割 (取文本左边 (md5key, 5), ascMd5str)
文本_逐字分割 (取文本右边 (md5key, 5), descMd5str)
文本_逐字分割 (key, key_)
计次循环首 (5, i)
asStr ＝ asStr ＋ ascMd5str [i] ＋ key_ [i]
cpStr ＝ cpStr ＋ descMd5str [i] ＋ key_ [i ＋ 3]
计次循环尾 ()
as ＝ “A1” ＋ asStr ＋ 取文本右边 (key, 3)
cp ＝ 取文本左边 (key, 3) ＋ cpStr ＋ “E1”

调试输出 (as, cp)

i支持库列表	支持库注释
dp1	数据操作支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 dp1<br /> .支持库 spec<br /> <br /> .子程序 GetPar<br /> .参数 as, 文本型, 参考 可空<br /> .参数 cp, 文本型, 参考 可空<br /> .局部变量 Time, 文本型<br /> .局部变量 key, 文本型<br /> .局部变量 md5key, 文本型<br /> .局部变量 ascMd5str, 文本型, , "0"<br /> .局部变量 descMd5str, 文本型, , "0"<br /> .局部变量 key_, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 asStr, 文本型<br /> .局部变量 cpStr, 文本型<br /> <br /> Time ＝ 时间_取现行时间戳 (真)<br /> key ＝ 进制_十到十六 (到整数 (Time))<br /> md5key ＝ 到大写 (取数据摘要 (到字节集 (Time)))<br /> .判断开始 (取文本长度 (key) ≠ 8)<br />     as ＝ “479BB4B7254C150”<br />     cp ＝ “7E0AC8874BB0985”<br /> .默认<br />     文本_逐字分割 (取文本左边 (md5key, 5), ascMd5str)<br />     文本_逐字分割 (取文本右边 (md5key, 5), descMd5str)<br />     文本_逐字分割 (key, key_)<br />     .计次循环首 (5, i)<br />         asStr ＝ asStr ＋ ascMd5str <i> ＋ key_ <i><br />         cpStr ＝ cpStr ＋ descMd5str <i> ＋ key_ [i ＋ 3]<br />     .计次循环尾 ()<br />     as ＝ “A1” ＋ asStr ＋ 取文本右边 (key, 3)<br />     cp ＝ 取文本左边 (key, 3) ＋ cpStr ＋ “E1”<br /> .判断结束<br /> <br /> 调试输出 (as, cp)

那个JS改起来无语  我直接翻译成易语言了  调用了精益模块 自己下下吧

* “A19509894A479D7” | “599DA0719CDB7E1”
* “A1E549B91A979D8” | “599FAB729ED18E1”
* “A1E599790AC79D9” | “5992AF779CD89E1”
* “A1B569690A779DA” | “5991A47494D7AE1”
* “A11559293A179DB” | “5995AB7493DEBE1”
* “A1A5A9D9FA279DC” | “5992A7769DDBCE1”
* “A1E5B9094AF79DD” | “599DA37690DEDE1”
* “A165D979DA279DE” | “5992AE7D95DAEE1”
* “A1F559397A879DF” | “5991A57F99DCFE1”
* “A16589D9CA379E0” | “599FAF7F92E00E1”
* “A1D559E9AAC79E1” | “5997AD729FE91E1”

笨猴

嘉轩嘉怡 发表于 2017-8-21 14:55
[e=0].版本 2
.支持库 spec

应该是哪有问题，值测试是错的，（如果值是对的，那么每次返回的数据都是不同的，如果是不对的，每次都会返回相同内容）附上测试代码

嘉轩嘉怡

笨猴 发表于 2017-8-21 20:02
应该是哪有问题，值测试是错的，（如果值是对的，那么每次返回的数据都是不同的，如果是不对的，每次都会 ...

这个是根据时间戳来算的 我完全是按照js来改写的 注册他是时间戳 而且是10位 所以你不要连续取  延时几秒就不一样 了