1X3延时算法，vdfFun

小小C

这个算法本质就是需要你强制延时，不计算出正确的值接口就会返回失败，所以我叫他延时算法~~
下面图片是调用实例~~
因为易语言写的效率太低了，CPU消耗极高，所以我用GO实现了~~

  

子程序名	返回值类型	公开	备 注
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)

夏亿

  感谢分享

LHL1222

感谢分享

花小旭

支持支持支持支持支持

沐白22

        感谢分享，很给力！~

jysoft2022

谢谢分享