Unix时间戳身份验证例程

.版本 2
.支持库 script

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

.子程序 _按钮1_被单击
.局部变量 时间戳_脚本, 文本型
.局部变量 input, 整数型
.局部变量 secret, 文本型, , , ' 本源码来自三叶资源网(www.sanye.cx)
.局部变量 安全码, 文本型

时间戳_脚本 ＝ “function Unixtime(){var mim = new Date().getTime()/1000;return mim;}”  ' 10位时间戳
脚本组件1.执行 (时间戳_脚本)
input ＝ 到整数 (脚本组件1.运行 (“Unixtime”, )) ＼ 30  ' 取时间戳，30秒一个周期
secret ＝ API取摘要 (到字节集 (编辑框1.内容 ＋ API取摘要 (到字节集 (编辑框2.内容), 7)), 4)  ' 密匙为账号+经过sha512加密的密码
安全码 ＝ Base64_hmac_sha1 (到文本 (secret) ＋ API取摘要 (到字节集 (input), 7), 到文本 (input))
安全码 ＝ 到大写 (取文本左边 (安全码, 6))
' 只要时间同步都可以验证
.如果真 (编辑框1.内容 ＝ “验证例程”)
    .如果真 (编辑框2.内容 ＝ “123456789”)
        .如果真 (编辑框3.内容 ＝ 安全码)
            信息框 (“登陆成功”, 0, , )
            返回 ()
        .如果真结束

    .如果真结束

.如果真结束

信息框 (“登录失败”, 0, , )

@zhudequan