Private rng As New System.Security.Cryptography.RNGCryptoServiceProvider
 
    Public Function Zufallszahl() As Integer
        Return wurf() + wurf()
    End Function
 
    Dim bytes(1023) As Byte
    Dim bi As Integer = 1024
 
    Public Function wurf() As Integer
        Dim b As Byte
        If bi = bytes.Length Then
            rng.GetBytes(bytes)
            bi = 0
        End If
        b = bytes(bi)
        bi += 1
        Return (b Mod 6) + 1
    End Function

2 %Ergebnis: 2,8208 erwartet: 2,77777777777778 Abweichung: 1,54880000000001
3 %Ergebnis: 5,6695 erwartet: 5,55555555555556 Abweichung: 2,05100000000001
4 %Ergebnis: 8,4257 erwartet: 8,33333333333333 Abweichung: 1,1084
5 %Ergebnis: 11,3051 erwartet: 11,1111111111111 Abweichung: 1,7459
6 %Ergebnis: 13,9886 erwartet: 13,8888888888889 Abweichung: 0,717919999999997
7 %Ergebnis: 16,6595 erwartet: 16,6666666666667 Abweichung: 0,0429999999999993
8 %Ergebnis: 13,8871 erwartet: 13,8888888888889 Abweichung: 0,0128800000000012
9 %Ergebnis: 11,0135 erwartet: 11,1111111111111 Abweichung: 0,878499999999992
10 %Ergebnis: 8,2003 erwartet: 8,33333333333333 Abweichung: 1,5964
11 %Ergebnis: 5,3614 erwartet: 5,55555555555556 Abweichung: 3,4948
12 %Ergebnis: 2,6685 erwartet: 2,77777777777778 Abweichung: 3,934

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist