Zufällliges ByteArray erstellen

[mcGeorge]

Hallo NG, und schon wieder eine dumme Frage.

Wenn ich folgenden Code:
[highlight=vbnet]
Public Function GenRandomByteArr(iAnzahl As Integer) As Byte()
Dim oRand As New System.Random(CInt(Now.Ticks.ToString.Substring(0, 9)))
Dim aByte() As Byte

ReDim aByte(iAnzahl - 1)
oRand.NextBytes(aByte)
oRand = Nothing

Return aByte
End Function
[/highlight]

mehrfach hintereinander aufrufe:
[highlight=vbnet]
Dim aB1() as Byte = GenRandomByteArr( 32 )
Dim aB2() as Byte = GenRandomByteArr( 32 )
Dim aB3() as Byte = GenRandomByteArr( 32 )
Dim aB4() as Byte = GenRandomByteArr( 32 )
[/highlight]

steht in allen 4 Variablen das gleiche drin.

Das war es eigentlich nicht. was ich bezwecken wollte. Eigentlich sollte in allen 4 Variablen etwas anderes stehen.

Was mache ich hier falsch?

Danke für jeden Schubser in die richtige Richtung.

Georg

[gfoidl]

Hallo,

siehe [FAQ] Random.Next liefert eine Zeit lang die gleiche Zufallszahl - Warum? Wie geht es richtig?, ist zwar C# aber sollte dennoch helfen.

mfG Gü

[mcGeorge]

Danke für die sehr schnelle Antwort. Das hat mir schon geholfen.
Meine Lösung war: die Random-Klasse nur einmal am Anfang der Klasse zu erzeugen und danach nur noch zu "benutzen".
Schon sind alle Werte unterschiedlich.

Thanks, Georg