易语言过lkc星云币网页防火墙源码

易语言过lkc星云币网页防火墙源码

@夏萌同学

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口, , , ' 本源码来自三叶资源网(www.sanye.cx)
.程序集变量 http, winHttp
.程序集变量 url, 文本型
.程序集变量 str, 文本型
.程序集变量 header, 文本型
.程序集变量 s, 文本型
.程序集变量 jschl_vc, 文本型
.程序集变量 pass, 文本型
.程序集变量 jscry, jscript
.程序集变量 js, 文本型
.程序集变量 jsadd, 文本型
.程序集变量 jschl_answer, 文本型
.程序集变量 ck, 文本型

.子程序 __启动窗口_创建完毕

header ＝ #header
' http.SetProxy (“127.0.0.1:8888”)
url ＝ “https://lkc.ink/user/reg/ref/286912.html”
str ＝ 编码_Utf8到Ansi (http.OPEN (“GET”, url, , ck, header))
s ＝ 文本_取出中间文本 (str, “name=” ＋ #引号 ＋ “s” ＋ #引号 ＋ “ value=” ＋ #引号, #引号)
jschl_vc ＝ 文本_取出中间文本 (str, “name=” ＋ #引号 ＋ “jschl_vc” ＋ #引号 ＋ “ value=” ＋ #引号, #引号)
pass ＝ 文本_取出中间文本 (str, “name=” ＋ #引号 ＋ “pass” ＋ #引号 ＋ “ value=” ＋ #引号, #引号)
调试输出 (s, jschl_vc, pass)
jsadd ＝ 文本_取出中间文本 (str, “setTimeout(function(){”, “};”) ＋ “};”
jsadd ＝ jsadd ＋ 文本_取出中间文本 (str, #常量1, “toFixed(10);”) ＋ “toFixed(10);”
js ＝ 子文本替换 (“function getck(){ var t ='1234567';” ＋ jsadd ＋ #换行符 ＋ “ return a;}”, “a.value”, “a”, , , 真)
jscry.执行 (js)
jschl_answer ＝ jscry.运行 (“getck”)
调试输出 (jschl_answer)
延时 (4000)
url ＝ “https://lkc.ink/cdn-cgi/l/chk_jschl?s=” ＋ 编码_URL编码 (s, 真, 真) ＋ “&jschl_vc=” ＋ jschl_vc ＋ “&pass=” ＋ pass ＋ “&jschl_answer=” ＋ jschl_answer
str ＝ 编码_Utf8到Ansi (http.OPEN (“GET”, url, , ck, header))
url ＝ “https://lkc.ink/user/reg/ref/286912.html”
str ＝ 编码_Utf8到Ansi (http.OPEN (“GET”, url, , ck, header))
调试输出 (str)