| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| Str | 文本型 | | |
| Eval_data | 文本型 | | |
| Cookie | 文本型 | | |
| tmp | 文本型 | | |
| json | zyJsonValue | | |
| encrypt_type | 文本型 | | |
| ct | 文本型 | | |
| bts0 | 文本型 | | |
| bts1 | 文本型 | | |
| chars_key | 文本型 | | |
| encrypt_data | 文本型 | | |
Str ＝
编码_Utf8到Ansi (网页_访问_对象 (“https://www.mafengwo.cn/”, , , Cookie
))
Eval_data ＝
文本_取出中间文本 (Str,
“cookie=”,
“;location”)调试输出 (Eval_data
)tmp ＝
计算表达式 (Eval_data
)tmp ＝
文本_取左边 (tmp,
“;”)Cookie ＝ Cookie ＋
“;” ＋ tmp
Str ＝
编码_Utf8到Ansi (网页_访问_对象 (“https://www.mafengwo.cn/”, , , Cookie
))
调试输出 (Str
)tmp ＝
文本_取出中间文本 (Str,
“;go(”,
“)”)json.
解析 (tmp
)bts0 ＝ json.
取文本 (“bts[0]”)bts1 ＝ json.
取文本 (“bts[1]”)ct ＝ json.
取文本 (“ct”)chars_key ＝ json.
取文本 (“chars”)encrypt_type ＝ json.
取文本 (“ha”)encrypt_data ＝
getEncryptCode (chars_key, bts0, bts1, ct, encrypt_type
)
如果真 (encrypt_data ＝
“”)
调试输出 (“计算出错”, encrypt_type
)返回 ()
Cookie ＝
子文本替换 (Cookie,
选择 (文本_取出中间文本 (Cookie,
“__jsl_clearance_s=”,
“;”) ＝
“”,
文本_取右边 (Cookie,
“__jsl_clearance_s=”),
文本_取出中间文本 (Cookie,
“__jsl_clearance_s=”,
“;”)), encrypt_data, , ,
真)调试输出 (Cookie
)Str ＝
编码_Utf8到Ansi (网页_访问_对象 (“https://www.mafengwo.cn/”, , , Cookie, ,
))
调试输出 (Str
)写到文件 (取特定目录 (3
) ＋
“aaaa.log”,
到字节集 (Str
))
|
| getEncryptCode | 文本型 | |
|
| chars_key | 文本型 | | | |
bts0 | 文本型 | | | | bts1 | 文本型 | | | | ct | 文本型 | | | | encrypt_type | 文本型 | | | |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| encrypt_data | 文本型 | | |
| n | 整数型 | | |
| i | 整数型 | | |
计次循环首 (取文本长度 (chars_key
) ＋ 1, n
)计次循环首 (取文本长度 (chars_key
) ＋ 1, i
)调试输出 (取文本中间 (chars_key, n, 1
) ＋
取文本中间 (chars_key, i, 1
))
encrypt_data ＝ bts0 ＋
取文本中间 (chars_key, n, 1
) ＋
取文本中间 (chars_key, i, 1
) ＋ bts1
如果真 (encrypt_type ＝
“md5”)如果真 (校验_取md5 (到字节集 (encrypt_data
)) ＝ ct
)返回 (encrypt_data
)
如果真 (encrypt_type ＝
“sha1”)如果真 (校验_取sha1 (到字节集 (encrypt_data
)) ＝ ct
)返回 (encrypt_data
)如果真 (encrypt_type ＝
“sha256”)如果真 (校验_取sha256 (到字节集 (encrypt_data
)) ＝ ct
)返回 (encrypt_data
)
计次循环尾 ()计次循环尾 ()返回 (“”)| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 脚本对象 | 对象 | | |
| result | 文本型 | | |
线程_初始化COM库 ()脚本对象.
创建 (“ScriptControl”,
)脚本对象.
写属性 (“Language”,
“JScript”)result ＝ 脚本对象.
文本方法 (“Eval”, 表达式
)脚本对象.
清除 ()线程_取消COM库 ()返回 (result
)
tql
