vb.net Create() 创建生成无符号带数字和字母随机数据的加密随机数

您可以使用VB.NET中的RandomNumberGenerator类来生成加密随机数。以下是一个示例代码，可以生成16字节的随机数，其中包含数字和字母：

Imports System.Security.Cryptography
Imports System.Text

Public Shared Function CreateRandomString(ByVal length As Integer) As String
    Dim randomBytes(length - 1) As Byte
    Using rng As RandomNumberGenerator = RandomNumberGenerator.Create()
        rng.GetBytes(randomBytes)
    End Using
    Dim base64String As String = Convert.ToBase64String(randomBytes)
    Return base64String.TrimEnd("="c).Replace("+"c, "-"c).Replace("/"c, "_"c)
End Function

该函数将生成一个长度为 `length` 的随机字节数组，并将其进行 Base64 编码，然后将一些字符替换为 URL 安全字符。您可以使用此函数来生成加密随机数。

相关问题

vb.net Create() 创建生成无符号带数字和字母随机数据的加密随机数和每行备注

以下是一个示例代码，可以生成指定数量、长度为16字节的无符号带数字和字母随机数据，并在每行添加备注：

Imports System.Security.Cryptography
Imports System.Text

Public Shared Function CreateRandomStrings(ByVal count As Integer, ByVal length As Integer, ByVal remark As String) As List(Of String)
    Dim randomStrings As New List(Of String)
    For i As Integer = 1 To count
        Dim randomBytes(length - 1) As Byte
        Using rng As RandomNumberGenerator = RandomNumberGenerator.Create()
            rng.GetBytes(randomBytes)
        End Using
        Dim base64String As String = Convert.ToBase64String(randomBytes)
        Dim randomString As String = base64String.TrimEnd("="c).Replace("+"c, "-"c).Replace("/"c, "_"c)
        randomStrings.Add(randomString & " " & remark)
    Next
    Return randomStrings
End Function

该函数将生成指定数量的随机字符串，每个字符串的长度为 `length`，并在每行添加指定的备注 `remark`。每个随机字符串将由长度为16字节的随机字节数组生成，并进行 Base64 编码，然后将一些字符替换为 URL 安全字符。最后，将每个随机字符串和备注添加到列表中并返回。

vb.net Create() 创建字母数字随机数据的加密随机数

非常感谢您的提问！以下是使用 VB.NET 编写的 Create() 方法示例，用于创建一个包含字母数字的随机加密字符串：

Public Shared Function Create(ByVal length As Integer) As String
    Const validChars As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
    Dim rng As New RNGCryptoServiceProvider()
    Dim randomBytes(length - 1) As Byte
    rng.GetBytes(randomBytes)
    Dim result As New StringBuilder(length)
    For Each b As Byte In randomBytes
        result.Append(validChars(b Mod validChars.Length))
    Next
    Return result.ToString()
End Function

该方法与前面 .NET Framework 中的 C# 实现方法非常相似，不同之处在于 VB.NET 中的循环语法有所不同。与 C# 中不同的是，VB.NET 中需要在循环的每个声明之前声明变量类型。

这个方法将使用 VB.NET 内置的 RNGCryptoServiceProvider 类，该类可以生成高质量的随机数。方法中的参数 length 指定所需的加密随机数的长度。在方法中，我们首先定义了包含所有合法字符的字符串 validChars，然后使用 RNGCryptoServiceProvider 类生成指定长度的随机字节序列 randomBytes。接着，我们使用循环遍历每一个随机字节，将其转化为一个合法字符，并将所有字符拼接成一个字符串返回。