密钥生成随机数问题答案

【问题标题】：Key gen random number issue密钥生成随机数问题
【发布时间】：2014-07-20 20:16:27
【问题描述】：

我需要一个随机数生成器，格式如下：65X XXX XXXX；不包括 1 和 4。这是我完成第一个 VB.net 项目之前的最后一步。如果您能提供帮助，请回复。

下面是我的黑醋栗代码，除了不排除数字外，它的效果很好。如果您可以帮助编辑我的代码，我将不胜感激。谢谢！

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim rnd As New Random
Dim str1, str2, str3 As String
str1 = "65" & rnd.Next(0, 9)
str2 = rnd.Next(100, 999)
str3 = rnd.Next(1000, 9999)
ListBox1.Items.Add(str1 & " " & str2 & " " & str3)
End Sub

【问题讨论】：

标签： vb.net string random key-generator

【解决方案1】：

创建一个随机生成器，而不是在每次计时器点击时创建一个新生成器。随机生成器使用从系统时钟创建的值作为种子，因此如果您创建它们的时间太近，它们将生成相同的随机数系列。此外，以设定的时间间隔创建它们可能会在随机数中产生不需要的模式。

Private rnd As New Random

您可以使用从特定字符集创建随机字符串的函数：

Private Function RandomString(ByVal chars As String, ByVal len As Integer) As String
  Dim result As String = ""
  For i As Integer = 1 to len
    result += chars.Substring(rnd.Next(chars.Length), 1)
  Next
  Return result
End Function

（注意：使用+= 连接字符串只能用于短字符串。对于超过大约20 个字符的内容，您应该使用StringBuilder 或字符数组。）

现在你可以使用函数来创建字符串了：

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  Dim chars As String = "02356789"
  Dim str As String = "65" & _
    RandomString(chars, 1) & " " & _
    RandomString(chars, 3) & " " & _
    RandomString(chars, 4)
  ListBox1.Items.Add(str)
End Sub

【讨论】：

s = "65" & String.Format("{0:# ### ####}", CInt(RandomString(chars, 8))) 你也可以使用它。