1X3延时算法，vdfFun - 精易论坛

子程序名	返回值类型	公开	备注
vdfFun	文本型		返回POST提交数据
参数名	类型	参考	可空	数组	备注
data	文本型				接口响应内容

变量名	类型	静态	数组	备注
Json	zyJsonDocument
bigx	大数
bigmod	大数
t	整数型
i	整数型
startTime	长整数型
minTime	长整数型
maxTime	长整数型
nowTime	长整数型
spendTime	整数型
count	整数型
puzzle	文本型
obj	zyJsonDocument
time	长整数型
res	文本型

Json.解析 (data)
t ＝ Json.取整数 (“result.args.t”)
minTime ＝ Json.取长整数 (“result.minTime”)
maxTime ＝ Json.取长整数 (“result.maxTime”)
startTime ＝到长整数 (时间_取现行时间戳 ())
puzzle ＝ Json.取文本 (“result.args.puzzle”)

如果真 (puzzle ＝ “”)

Json.销毁 ()

返回 (“”)
bigx.导入文本 (十六进制到十进制 (Json.取文本 (“result.args.x”)))
bigmod.导入文本 (十六进制到十进制 (Json.取文本 (“result.args.mod”)))
nowTime ＝到长整数 (时间_取现行时间戳 ())

判断循环首 (i ＜ t 或 nowTime － startTime ＜ minTime)

bigx ＝ bigx.乘 (bigx).求余 (bigmod)

spendTime ＝ i

count ＝ count ＋ 1

nowTime ＝到长整数 (时间_取现行时间戳 ())

如果真 (nowTime － startTime ＞ maxTime)

跳出循环 ()

i ＝ i ＋ 1

判断循环尾 ()
time ＝到长整数 (时间_取现行时间戳 ()) － startTime
obj.创建 ()
obj.置文本 (“source”, “mailUnireg”)
obj.置文本 (“sid”, Json.取文本 (“result.sid”))
obj.置整数 (“runTimes”, count)
obj.置整数 (“spendTime”, time)
obj.置文本 (“puzzle”, puzzle)
obj.置文本 (“args.x”, 进制_十到十六Ex (bigx.导出文本 (), 真))
obj.置整数 (“args.t”, count)
obj.置整数 (“args.spendTime”, time)
res ＝ obj.到文本 ()
obj.销毁 ()
Json.销毁 ()
返回 (res)

子程序名	返回值类型	公开	备注
十六进制到十进制	文本型
参数名	类型	参考	可空	数组	备注
十六进制文本	文本型

变量名	类型	静态	数组	备注
循环次数	整数型
代码	整数型
临时1	大数
临时2	大数
结果	大数
乘方	大数
进制	大数
文本	文本型

进制.导入数字 (16)
文本＝到小写 (到半角 (十六进制文本))

计次循环首 (取文本长度 (文本), 循环次数)

代码＝取代码 (取文本中间 (到大写 (文本), 取文本长度 (文本) －循环次数＋ 1, 1), )

临时1.导入数字 (代码－ 55)

临时2.导入数字 (代码－ 48)

乘方.导入数字 (1)

计次循环首 (循环次数－ 1, )

乘方＝乘方.乘 (进制)

计次循环尾 ()

结果＝选择 (代码 ≥ 65 且代码 ≤ 70, 结果.加 (临时1.乘 (乘方)), 结果.加 (临时2.乘 (乘方)))

计次循环尾 ()
返回 (结果.导出文本 ())

子程序名	返回值类型	公开	备注
进制_十到十六Ex	文本型		不支持负数
参数名	类型	参考	可空	数组	备注
十进制文本	文本型				支持任意长度十进制数字
小写	逻辑型				如果为真则返回小写的十六进制

变量名	类型	静态	数组	备注
table	文本型		0	十六进制表
bi	大数			big_int
mod_num	大数			取余后的数字
operand	大数			操作数
tmp	整数型			用来做临时运算
result	文本型			返回

如果 (小写)

table ＝ { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “a”, “b”, “c”, “d”, “e”, “f” }

table ＝ { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F” }
bi.导入文本 (十进制文本)
operand.导入数字 (16)

循环判断首 ()

如果 (bi.小于 (operand))

mod_num.导入数字 (bi.导出整数 ())

bi.导入数字 (0)

mod_num ＝ bi.求余 (operand)

bi ＝ bi.除 (operand, 0)

tmp ＝ mod_num.导出整数 () ＋ 1

如果真 (tmp ＞ 16 或 tmp ＜ 1) ' 防止越界

返回 (“”)

result ＝ table [tmp] ＋ result

循环判断尾 (bi.导出文本 () ≠ “0”)
返回 (result)

i支持库列表	支持库注释
eCalc	数值计算支持库

.版本 2<br />
.支持库 eCalc<br />
<br />
<br />
<br />
<br />
.子程序 vdfFun, 文本型, , 返回POST提交数据<br />
.参数 data, 文本型, , 接口响应内容<br />
.局部变量 Json, zyJsonDocument<br />
.局部变量 bigx, 大数<br />
.局部变量 bigmod, 大数<br />
.局部变量 t, 整数型<br />
.局部变量 i, 整数型<br />
.局部变量 startTime, 长整数型<br />
.局部变量 minTime, 长整数型<br />
.局部变量 maxTime, 长整数型<br />
.局部变量 nowTime, 长整数型<br />
.局部变量 spendTime, 整数型<br />
.局部变量 count, 整数型<br />
.局部变量 puzzle, 文本型<br />
.局部变量 obj, zyJsonDocument<br />
.局部变量 time, 长整数型<br />
.局部变量 res, 文本型<br />
<br />
Json.解析 (data)<br />
t ＝ Json.取整数 (“result.args.t”)<br />
minTime ＝ Json.取长整数 (“result.minTime”)<br />
maxTime ＝ Json.取长整数 (“result.maxTime”)<br />
startTime ＝ 到长整数 (时间_取现行时间戳 ())<br />
puzzle ＝ Json.取文本 (“result.args.puzzle”)<br />
.如果真 (puzzle ＝ “”)<br />
    Json.销毁 ()<br />
    返回 (“”)<br />
.如果真结束<br />
bigx.导入文本 (十六进制到十进制 (Json.取文本 (“result.args.x”)))<br />
bigmod.导入文本 (十六进制到十进制 (Json.取文本 (“result.args.mod”)))<br />
nowTime ＝ 到长整数 (时间_取现行时间戳 ())<br />
.判断循环首 (i ＜ t 或 nowTime － startTime ＜ minTime)<br />
    bigx ＝ bigx.乘 (bigx).求余 (bigmod)<br />
    spendTime ＝ i<br />
    count ＝ count ＋ 1<br />
    nowTime ＝ 到长整数 (时间_取现行时间戳 ())<br />
    .如果真 (nowTime － startTime ＞ maxTime)<br />
        跳出循环 ()<br />
    .如果真结束<br />
    i ＝ i ＋ 1<br />
.判断循环尾 ()<br />
time ＝ 到长整数 (时间_取现行时间戳 ()) － startTime<br />
obj.创建 ()<br />
obj.置文本 (“source”, “mailUnireg”)<br />
obj.置文本 (“sid”, Json.取文本 (“result.sid”))<br />
obj.置整数 (“runTimes”, count)<br />
obj.置整数 (“spendTime”, time)<br />
obj.置文本 (“puzzle”, puzzle)<br />
obj.置文本 (“args.x”, 进制_十到十六Ex (bigx.导出文本 (), 真))<br />
obj.置整数 (“args.t”, count)<br />
obj.置整数 (“args.spendTime”, time)<br />
res ＝ obj.到文本 ()<br />
obj.销毁 ()<br />
Json.销毁 ()<br />
返回 (res)<br />
<br />
<br />
.子程序 十六进制到十进制, 文本型<br />
.参数 十六进制文本, 文本型<br />
.局部变量 循环次数, 整数型<br />
.局部变量 代码, 整数型<br />
.局部变量 临时1, 大数<br />
.局部变量 临时2, 大数<br />
.局部变量 结果, 大数<br />
.局部变量 乘方, 大数<br />
.局部变量 进制, 大数<br />
.局部变量 文本, 文本型<br />
<br />
进制.导入数字 (16)<br />
文本 ＝ 到小写 (到半角 (十六进制文本))<br />
.计次循环首 (取文本长度 (文本), 循环次数)<br />
    代码 ＝ 取代码 (取文本中间 (到大写 (文本), 取文本长度 (文本) － 循环次数 ＋ 1, 1), )<br />
    临时1.导入数字 (代码 － 55)<br />
    临时2.导入数字 (代码 － 48)<br />
    乘方.导入数字 (1)<br />
    .计次循环首 (循环次数 － 1, )<br />
        乘方 ＝ 乘方.乘 (进制)<br />
    .计次循环尾 ()<br />
    结果 ＝ 选择 (代码 ≥ 65 且 代码 ≤ 70, 结果.加 (临时1.乘 (乘方)), 结果.加 (临时2.乘 (乘方)))<br />
.计次循环尾 ()<br />
返回 (结果.导出文本 ())<br />
<br />
.子程序 进制_十到十六Ex, 文本型, , 不支持负数<br />
.参数 十进制文本, 文本型, , 支持任意长度十进制数字<br />
.参数 小写, 逻辑型, 可空, 如果为真则返回小写的十六进制<br />
.局部变量 table, 文本型, , "0", 十六进制表<br />
.局部变量 bi, 大数, , , big_int<br />
.局部变量 mod_num, 大数, , , 取余后的数字<br />
.局部变量 operand, 大数, , , 操作数<br />
.局部变量 tmp, 整数型, , , 用来做临时运算<br />
.局部变量 result, 文本型, , , 返回<br />
<br />
.如果 (小写)<br />
    table ＝ { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “a”, “b”, “c”, “d”, “e”, “f” }<br />
.否则<br />
    table ＝ { “0”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “A”, “B”, “C”, “D”, “E”, “F” }<br />
.如果结束<br />
bi.导入文本 (十进制文本)<br />
operand.导入数字 (16)<br />
.循环判断首 ()<br />
    .如果 (bi.小于 (operand))<br />
        mod_num.导入数字 (bi.导出整数 ())<br />
        bi.导入数字 (0)<br />
    .否则<br />
        mod_num ＝ bi.求余 (operand)<br />
        bi ＝ bi.除 (operand, 0)<br />
    .如果结束<br />
    tmp ＝ mod_num.导出整数 () ＋ 1<br />
    .如果真 (tmp ＞ 16 或 tmp ＜ 1)  ' 防止越界<br />
        返回 (“”)<br />
    .如果真结束<br />
    result ＝ table [tmp] ＋ result<br />
.循环判断尾 (bi.导出文本 () ≠ “0”)<br />
返回 (result)