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
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
Comment