vb.net - 抽奖算法

Question

我正在 vb.net 中做一个网吧抽奖老虎机游戏。我想根据老虎机游戏中支付线的支出和奖金显示对象。我尝试使用 MT 算法，但它基本上是基于随机数的。最终输出不应该是随机的。

输入

1. 点例如。 18 或 50(2 个条目)9 或 25(1 个条目)
2. 奖品(来自数据库)例如。 200 美分
3. 总行数9 或 25
4. 1 条线 = 点/线 (18/9) = 2 点
5. 卷轴 = 5
6. 行数 = 3
7. 支付表\支出 = 10 个数组前任。 obj1(0) = 0, obj1(1) = 20,obj1(2) = 100,obj1(3) = 300,obj1(4) = 2000,
8. 线阵例子:L1 (2,1)(2,2),(2,3),(2,4),(2,5) = 2 分 = 15 美分L2 (1,1 )(1,2),(1,3),(1,4),(1,5) = 2 分 = 300 美分L3 (3,1)(3,2),(3,3),(3,4),(3,5) = 2 分 = 30 美分L4 (1,1)(2,2),(3,3),(2,4),(1,5) = 2 分 = 200 美分L5 (3,1)(2,2),(1,3),(2,4),(3,5) = 2 分 = 0 美分L6 (2,1)(3,2),(3,3),(3,4),(2,5) = 2 分 = 20 美分L7 (2,1)(1,2),(1,3),(1,4),(2,5) = 2 分 = 6 美分L8 (1,1)(2,2),(2,3),(2,4),(1,5) = 2 分 = 0 美分L9 (3,1)(2,2),(2,3),(2,4),(3,5) = 2 分 = 10 美分

输出

3 X 5 矩阵

Answer 1

使用任何随机数生成器，您都必须 seed its input .对于 Windows 平台上的随机数，最好使用 CryptGenRandom()。请记住，单独使用 time() 是一个非常糟糕的种子，因为攻击者通常知道时间。

  <DllImport("coredll.dll")> _
  Public Shared Function CryptGenRandom( _
     ByVal hProv As IntPtr, ByVal dwLen As Integer, _
     ByVal pbBuffer() As Byte) As Boolean
  End Function