.版本 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, , )