using System;

class Sample {
  static void Main()
  {
    var nonce = new byte[16];
    var rand = new Random();

    // NextBytesを使って配列をランダムな値で満たす(16バイトのnonce値を生成する)
    rand.NextBytes(nonce);

    // 生成したnonceを表示
    Console.WriteLine(BitConverter.ToString(nonce));
    // 生成したnonceをBASE64形式で表示
    Console.WriteLine(Convert.ToBase64String(nonce));
  }
}

Imports System

Class Sample
  Shared Sub Main()
    Dim nonce(15) As Byte
    Dim rand As New Random()

    ' NextBytesを使って配列をランダムな値で満たす(16バイトのnonce値を生成する)
    rand.NextBytes(nonce)

    ' 生成したnonceを表示
    Console.WriteLine(BitConverter.ToString(nonce))
    ' 生成したnonceをBASE64形式で表示
    Console.WriteLine(Convert.ToBase64String(nonce))
  End Sub
End Class

using System;

class Sample {
  static void Main()
  {
    var nonce = new byte[16];
    var rand = new Random();

    // NextBytesを使って配列の先頭8バイトのみをランダムな値で満たす
    rand.NextBytes(nonce.AsSpan(0, 8));

    // 生成したnonceを表示
    Console.WriteLine(BitConverter.ToString(nonce));
    // 生成したnonceをBASE64形式で表示
    Console.WriteLine(Convert.ToBase64String(nonce));
  }
}

Imports System

Class Sample
  Shared Sub Main()
    Dim nonce(15) As Byte
    Dim rand As New Random()

    ' NextBytesを使って配列の先頭8バイトのみをランダムな値で満たす
    rand.NextBytes(nonce.AsSpan(0, 8))

    ' 生成したnonceを表示
    Console.WriteLine(BitConverter.ToString(nonce))
    ' 生成したnonceをBASE64形式で表示
    Console.WriteLine(Convert.ToBase64String(nonce))
  End Sub
End Class

using System;

class Sample {
  static void Main()
  {
    var rand1 = new Random(0); // シード値(0)を与えてインスタンスを作成する
    var rand2 = new Random(1);
    var rand3 = new Random(1); // rand2と同じシード値のインスタンスを作成する

    const string format = "{0,-6} {1,-6} {2,-6}";

    Console.WriteLine(
      format,
      nameof(rand1),
      nameof(rand2),
      nameof(rand3)
    );

    // 各インスタンスから乱数を生成して表示する
    for (var i = 0; i < 15; i++) {
      Console.WriteLine(
        format,
        rand1.Next(0, 100),
        rand2.Next(0, 100),
        rand3.Next(0, 100)
      );
    }
  }
}

Imports System

Class Sample
  Shared Sub Main()
    Dim rand1 As New Random(0) ' シード値(0)を与えてインスタンスを作成する
    Dim rand2 As New Random(1)
    Dim rand3 As New Random(1) ' rand2と同じシード値のインスタンスを作成する

    Const format As String = "{0,-6} {1,-6} {2,-6}"

    Console.WriteLine(
      format,
      NameOf(rand1),
      NameOf(rand2),
      NameOf(rand3)
    )

    ' 各インスタンスから乱数を生成して表示する
    For i As Integer = 1 To 15
      Console.WriteLine(
        format,
        rand1.Next(0, 100),
        rand2.Next(0, 100),
        rand3.Next(0, 100)
      )
    Next
  End Sub
End Class

using System;
using System.Threading;

class Sample {
  static void Main()
  {
    // シード値を指定せずにインスタンスを連続して生成する
    // ・.NET Frameworkでは、デフォルトのシード値としてEnvironment.TickCountの値が用いられるため
    // 　連続して作成したインスタンスが同一のシード値を持つ場合がある
    // ・.NET Core/.NET 5では、Environment.TickCountではなく呼び出し毎に異なるシード値を用いるため、
    // 　連続して作成した場合でもインスタンスが同一のシード値を持つことはない
    // 　(RandomNumberGenerator相当から取得されるシード値を元にグローバルなRandomが作成され、
    // 　そこから得られる乱数がシード値として用いられる)
    var rand1 = new Random();
    var rand2 = new Random();

    Thread.Sleep(100); // 100ミリ秒待機

    // シード値を指定せずにインスタンスを生成
    var rand3 = new Random();

    const string format = "{0,-6} {1,-6} {2,-6}";

    Console.WriteLine(
      format,
      nameof(rand1),
      nameof(rand2),
      nameof(rand3)
    );

    // 各インスタンスから乱数を生成して表示する
    for (var i = 0; i < 15; i++) {
      Console.WriteLine(
        format,
        rand1.Next(0, 100),
        rand2.Next(0, 100),
        rand3.Next(0, 100)
      );
    }
  }
}

Imports System
Imports System.Threading

Class Sample
  Shared Sub Main()
    ' シード値を指定せずにインスタンスを連続して生成する
    ' ・.NET Frameworkでは、デフォルトのシード値としてEnvironment.TickCountの値が用いられるため
    ' 　連続して作成したインスタンスが同一のシード値を持つ場合がある
    ' ・.NET Core/.NET 5では、Environment.TickCountではなく呼び出し毎に異なるシード値を用いるため、
    ' 　連続して作成した場合でもインスタンスが同一のシード値を持つことはない
    ' 　(RandomNumberGenerator相当から取得されるシード値を元にグローバルなRandomが作成され、
    ' 　そこから得られる乱数がシード値として用いられる)
    Dim rand1 As New Random()
    Dim rand2 As New Random()

    Thread.Sleep(100) ' 100ミリ秒待機

    ' シード値を指定せずにインスタンスを生成
    Dim rand3 As New Random()

    Const format As String = "{0,-6} {1,-6} {2,-6}"

    Console.WriteLine(
      format,
      NameOf(rand1),
      NameOf(rand2),
      NameOf(rand3)
    )

    ' 各インスタンスから乱数を生成して表示する
    For i As Integer = 1 To 15
      Console.WriteLine(
        format,
        rand1.Next(0, 100),
        rand2.Next(0, 100),
        rand3.Next(0, 100)
      )
    Next
  End Sub
End Class

using System;
using System.Security.Cryptography;

class Sample {
  static void Main()
  {
    // 1〜6までの整数乱数を20個生成して表示する
    for (var i = 0; i < 20; i++) {
      Console.Write("{0}, ", RandomNumberGenerator.GetInt32(1, 6 + 1));
    }
    Console.WriteLine();
  }
}

Imports System
Imports System.Security.Cryptography

Class Sample
  Shared Sub Main()
    ' 1〜6までの整数乱数を20個生成して表示する
    For i As Integer = 1 To 20
      Console.Write("{0}, ", RandomNumberGenerator.GetInt32(1, 6 + 1))
    Next
    Console.WriteLine()
  End Sub
End Class

using System;
using System.Security.Cryptography;

class Sample {
  static void Main()
  {
    using (var rng = RandomNumberGenerator.Create()) {
      // 1〜6までの整数乱数を20個生成して表示する
      for (var i = 0; i < 20; i++) {
        // RandomNumberGeneratorから4バイト分の乱数を取得する
        var uint32rand = (Span<byte>)stackalloc byte[4];

        rng.GetBytes(uint32rand);

        // 乱数バイト列を1から6までの整数に変換
        // (バイト列乱数をUInt32型に変換してから、double[0.0, 1.0)→int[1, 6]に変換する)
        var val = 1 + (int)(6.0 * (BitConverter.ToUInt32(uint32rand) / ((double)uint.MaxValue + 1.0)));

        Console.Write($"{val}, ");
      }

      Console.WriteLine();
    }
  }
}

Imports System
Imports System.Security.Cryptography

Class Sample
  Shared Sub Main()
    Using rng As RandomNumberGenerator = RandomNumberGenerator.Create()
      ' 1〜6までの整数乱数を20個生成して表示する
      Dim uint32rand(3) As Byte

      For i As Integer = 1 To 20
        rng.GetBytes(uint32rand)

        ' 乱数バイト列を1から6までの整数に変換
        '/ (バイト列乱数をUInt32型に変換してから、double[0.0, 1.0)→int[1, 6]に変換する)
        Dim val As Integer = 1 + CInt(Math.Truncate(6.0 * BitConverter.ToUInt32(uint32rand, 0) / (UInteger.MaxValue + 1.0)))

        Console.Write($"{val}, ")
      Next

      Console.WriteLine()
    End Using

  End Sub
End Class

using System;
using System.Security.Cryptography;

class Sample {
  static void Main()
  {
    using (var rng = new RNGCryptoServiceProvider()) {
      var nonce = new byte[16];

      rng.GetBytes(nonce);

      Console.WriteLine(BitConverter.ToString(nonce));
    }
  }
}

Imports System
Imports System.Security.Cryptography

Class Sample
  Shared Sub Main()
    Using rng As New RNGCryptoServiceProvider()
      Dim nonce(15) As Byte

      rng.GetBytes(nonce)

      Console.WriteLine(BitConverter.ToString(nonce))
    End Using
  End Sub
End Class