以太坊去中心化抽奖例子（保证公正性和随机性）

缘诚

由于区块链的去中心化特性，可确保抽奖结果的公平公正

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
用户ID	整数型		0
i	整数型
中奖用户	整数型		0
hash	文本型

计次循环首 (100, i)
加入成员 (用户ID, i)
计次循环尾 ()
' 获取最新区块hash自己写
hash ＝ “a139ba905b95c1c8aa45ec9bfa9e783a67d0731e80601450aaacd38e9746f40e”  ' 这里以区块高度14761293为例
重定义数组 (中奖用户, 假, 2)  ' 获取两个中奖的用户ID
抽奖 (hash, 用户ID, 中奖用户)
调试输出 (“中奖ID”, 中奖用户)

子程序名	返回值类型	公开	备 注
抽奖			去中心化的抽奖例子,可保证公正性
参数名	类 型	参考	可空	数组	备 注
hex	文本型				十六进制数
用户ID	整数型
中奖用户	整数型

变量名	类 型	静态	数组	备 注
dec	文本型
index	整数型
i	整数型
res	整数型		0

dec ＝ 十六到十 (hex)
计次循环首 (取数组成员数 (中奖用户), i)
index ＝ 到整数 (大数运算 (dec, 取数组成员数 (用户ID), “mod”)) ＋ 1
中奖用户 [i] ＝ 用户ID [index]
删除成员 (用户ID, index, 1)
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
tmp	文本型
str	文本型
i	整数型
res	文本型

tmp ＝ “0123456789ABCDEF”
str ＝ 到大写 (hex)
计次循环首 (取文本长度 (hex), i)
res ＝ 大数运算 (res, 16, “mul”)
res ＝ 大数运算 (res, 寻找文本 (tmp, 取文本中间 (str, i, 1), , 假) － 1, “add”)
计次循环尾 ()
返回 (res)

子程序名	返回值类型	公开	备 注
大数运算	文本型
参数名	类 型	参考	可空	数组	备 注
数值1	文本型
数值2	整数型
类型	文本型

变量名	类 型	静态	数组	备 注
a	大数
b	大数

a.导入文本 (数值1)
b.导入数字 (数值2)
判断 (类型 ＝ “add”)
返回 (a.加 (b).导出文本 ())
判断 (类型 ＝ “sub”)
返回 (a.减 (b).导出文本 ())
判断 (类型 ＝ “mul”)
返回 (a.乘 (b).导出文本 ())
判断 (类型 ＝ “mod”)
返回 (a.求余 (b).导出文本 ())


返回 (“0”)

i支持库列表	支持库注释
spec	特殊功能支持库
eCalc	数值计算支持库

.版本 2<br /> .支持库 spec<br /> .支持库 eCalc<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 用户ID, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 中奖用户, 整数型, , "0"<br /> .局部变量 hash, 文本型<br /> <br /> .计次循环首 (100, i)<br />     加入成员 (用户ID, i)<br /> .计次循环尾 ()<br /> ' 获取最新区块hash自己写<br /> hash ＝ “a139ba905b95c1c8aa45ec9bfa9e783a67d0731e80601450aaacd38e9746f40e”  ' 这里以区块高度14761293为例<br /> <br /> 重定义数组 (中奖用户, 假, 2)  ' 获取两个中奖的用户ID<br /> 抽奖 (hash, 用户ID, 中奖用户)<br /> 调试输出 (“中奖ID”, 中奖用户)<br /> <br /> .子程序 抽奖, , , 去中心化的抽奖例子,可保证公正性<br /> .参数 hex, 文本型, , 十六进制数<br /> .参数 用户ID, 整数型, 数组<br /> .参数 中奖用户, 整数型, 数组<br /> .局部变量 dec, 文本型<br /> .局部变量 index, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 res, 整数型, , "0"<br /> <br /> dec ＝ 十六到十 (hex)<br /> .计次循环首 (取数组成员数 (中奖用户), i)<br />     index ＝ 到整数 (大数运算 (dec, 取数组成员数 (用户ID), “mod”)) ＋ 1<br />     中奖用户 <i> ＝ 用户ID [index]<br />     删除成员 (用户ID, index, 1)<br /> .计次循环尾 ()<br /> <br /> .子程序 十六到十, 文本型<br /> .参数 hex, 文本型<br /> .局部变量 tmp, 文本型<br /> .局部变量 str, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 res, 文本型<br /> <br /> tmp ＝ “0123456789ABCDEF”<br /> str ＝ 到大写 (hex)<br /> .计次循环首 (取文本长度 (hex), i)<br />     res ＝ 大数运算 (res, 16, “mul”)<br />     res ＝ 大数运算 (res, 寻找文本 (tmp, 取文本中间 (str, i, 1), , 假) － 1, “add”)<br /> .计次循环尾 ()<br /> 返回 (res)<br /> <br /> .子程序 大数运算, 文本型<br /> .参数 数值1, 文本型<br /> .参数 数值2, 整数型<br /> .参数 类型, 文本型<br /> .局部变量 a, 大数<br /> .局部变量 b, 大数<br /> <br /> a.导入文本 (数值1)<br /> b.导入数字 (数值2)<br /> .判断开始 (类型 ＝ “add”)<br />     返回 (a.加 (b).导出文本 ())<br /> .判断 (类型 ＝ “sub”)<br />     返回 (a.减 (b).导出文本 ())<br /> .判断 (类型 ＝ “mul”)<br />     返回 (a.乘 (b).导出文本 ())<br /> .判断 (类型 ＝ “mod”)<br />     返回 (a.求余 (b).导出文本 ())<br /> .默认<br /> <br /> .判断结束<br /> 返回 (“0”)

syc123java

互相学习，感谢楼主。

zxs0928

牛逼！！

wamst0101

支持开源~！感谢分享

273466731

有成品么 或者有交流群吗

洋洋丫

感谢分享

寡人i

已注销494531

支持一下

wuqingg

楼主啊，你太年轻了，老板他缺的不是技术。。。

qbb1822

互相学习，感谢楼主。