易语言网络验证接入方法

.版本 2
.支持库 spec
.支持库 dp1

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 返回值, 文本型
.局部变量 返回数据, 文本型
.局部变量 局_属性名, 文本型, , "10"
.局部变量 局_计次, 整数型
.局部变量 加密附加码, 文本型
.局部变量 左边结果, 文本型
.局部变量 北京时间戳, 文本型
.局部变量 拼接结果, 文本型
.局部变量 MD5结果, 文本型
.局部变量 文本长度, 整数型
.局部变量 卡密更数据, 文本型
.局部变量 到期时间, 文本型
.局部变量 令牌, 文本型
.局部变量 日期时间, 文本型

置DLL装载目录 (取运行目录 () ＋ “\” ＋ “Plugin”)
按钮1.禁止 ＝ 真
按钮1.标题 ＝ “正启动,当服务器被攻击会慢”
' 1937a.cn/login 官网 QQ2群617143264 d219cbd2e8ce070d26e07a348c6a511b'1937a.cn/login 官网 QQ2群617143264
返回值 ＝ 网络验证 (“d219cbd2e8ce070d26e07a348c6a511b”, “2325255345537C4949587426537E64BA701F37A”)
调试输出 (返回值)
文本长度 ＝ 取文本长度 (返回值)
' 调试输出 (文本长度)

.如果 (文本长度 ＞ 20)
    加密附加码 ＝ “fgrdsghjy7ywwed5dd”
    左边结果 ＝ 取文本左边 (加密附加码, 10)
    北京时间戳 ＝ 取文本左边 (时间_取北京时间戳 (), 7)
    拼接结果 ＝ 左边结果 ＋ 北京时间戳
    MD5结果 ＝ 取数据摘要 (到字节集 (拼接结果))
    到期时间 ＝ 取中间文本 (返回值, “#”, “#”, 0, 假)
    令牌 ＝ 取中间文本 (返回值, “!”, “!”, 0, 假)
    日期时间 ＝ 时间_时间戳转文本1 (到期时间, 1)
    ' 调试输出 (发数据 (到期时间))
    调试输出 (“原件到期时间” ＋ 日期时间)
    调试输出 (“原件令牌” ＋ 令牌)


.否则

.如果结束
.如果 (令牌 ＝ MD5结果)
    调试输出 (“原件验证成功”)
.否则
    调试输出 (“原件验证失败”)

.如果结束
按钮1.标题 ＝ “网络验证”

按钮1.禁止 ＝ 假


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

置DLL装载目录 (取运行目录 () ＋ “\” ＋ “Plugin”)

.子程序 _按钮2_被单击, , , 储存发数据
.局部变量 返回数据, 文本型

' 第一个参数（你key），第2个参数（你要保存数据）云控制数据对应码是用1 （第3个参数） 保存数据只能用2-30 ，数据对应码相同会替换新数据'1937a.cn/login 官网 QQ2群617143264
按钮2.禁止 ＝ 真
按钮2.标题 ＝ “正启动,当服务器被攻击会慢”
返回数据 ＝ 发数据 (“b3aed2ebebac907a2161e6ec794c67f6”, “c602ce7efdd30058760e3280841221b7”, “9”)

调试输出 (返回数据)
按钮2.标题 ＝ “发数据”
按钮2.禁止 ＝ 假

.子程序 _按钮3_被单击
.局部变量 取到数据, 文本型

' 第一个参数（你key），第2个参数（你要接收数据）云控制数据对应码是用1 （第3个参数） 接收数据只能用2-30
按钮3.禁止 ＝ 真
按钮3.标题 ＝ “正启动”
取到数据 ＝ 接收数据 (“b3aed2ebebac907a2161e6ec794c67f6”, “9”)
调试输出 (取到数据)
按钮3.禁止 ＝ 假
按钮3.标题 ＝ “接收数据”

.子程序 _按钮4_被单击, , , 云控制发数据
.局部变量 返回数据, 文本型

' 云控制数据对应码是用1 （第3个参数） 储存数据，数据对应码是用 2-30  发云控制数据 只能是阿拉伯数字，加# 其他无效，第一个参数（你key），第2个参数（你要发集令）
按钮4.禁止 ＝ 真
返回数据 ＝ 发数据 (“b3aed2ebebac907a2161e6ec794c67f6”, “#1234#567#89#14#258#”, “1”)

调试输出 (返回数据)
按钮4.禁止 ＝ 假


.子程序 _按钮5_被单击
.局部变量 取到数据, 文本型
.局部变量 得到云群控指令, 文本型
.局部变量 得到云分控指令, 文本型, , "10"
.局部变量 i, 整数型

' 第一个参数（你key），第2个参数云控制数据对应码是用1（第2个参数）
取到数据 ＝ 接收数据 (“b3aed2ebebac907a2161e6ec794c67f6”, “1”)

调试输出 (取到数据)
i ＝ 0
.如果 (取到数据 ≠ “”)

    得到云群控指令 ＝ 取中间文本 (取到数据, “#”, “#”, 0, 假)
    .如果 (得到云群控指令 ≠ “”)
        得到云分控指令 ＝ 分割文本 (取到数据, “#”, )  ' 分割文本得到指令
        .判断循环首 (i ＜ 9)
            i ＝ i ＋ 1

            调试输出 (得到云分控指令 [i])  ' 判断每个指令执行所需要代码
            .如果 (得到云分控指令 [i] ＝ “1234”)
                ' 执行你需要代码
                调试输出 (“系统挂机”)

            .否则

            .如果结束

            .如果 (得到云分控指令 [i] ＝ “567”)
                ' 执行你需要代码
                调试输出 (“系统关机”)
            .否则

            .如果结束


        .判断循环尾 ()

    .否则

    .如果结束


    ' 得到云分控指令 ＝ 取中间文本 (取到数据, “0”, “0”, 0, 假)
    调试输出 (得到云分控指令)

.否则

.如果结束


.子程序 _按钮6_被单击

调试输出 (私密生成 ())
调试输出 (取机器码 ())

.子程序 _按钮7_被单击
.局部变量 key, 文本型

key ＝ 私密生成 ()

调试输出 (私密解密 (key))
' 私密解密 发卡时候绑定 客服端机器码  和 解密后私密（125dhett24k3UhgA5grt）  一起绑定   1937a.cn/changecar.html   这个网址是自己发卡一个步骤  1：开卡  2：就是绑定客服端机器码+私密key
' ’网络验证时  使用key 是没有解密的  2823244A47754723475D622647285849724972BA701F37A
' 网络验证 (“d219cbd2e8ce070d26e07a348c6a511b”, “2325255345537C4949587426537E64BA701F37A”)