1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
''' <summary>
''' Generiert ein zufälliges Bytearray.
''' Im falle einer Falscheingabe gibt die Funktion NOTHING zurück.
''' </summary>
''' <param name="length">Die Länge des Bytearray. Darf nicht kleiner 0 sein!</param>
''' <param name="StartRange">Der niedrigste Wert eines Byte.
''' Darf nicht kleiner 0 oder größer als EndRange sein!</param>
''' <param name="EndRange">Der größte wert eines Byte.
''' Darf nicht kleiner StartRange oder größer 255 sein!</param>
Public Function GenerateByteArray(ByVal length As Integer, Optional ByVal StartRange As Integer = 0, Optional ByVal EndRange As Integer = 255) As Byte()
If length <= 0 Or StartRange < 0 Or EndRange > 255 Then Return Nothing
If Not StartRange <= EndRange Then Return Nothing
length -= 1
EndRange += 1
Dim rnd As New System.Random
Dim ByAr(length) As Byte
For i As Integer = 0 To length
ByAr(i) = rnd.Next(StartRange, EndRange)
Next
Return ByAr
End Function
''' <summary>
''' Füllt ein vorhandenes Bytearray mit Zufallszahlen.
''' Im falle einer Falscheingabe gibt die Funktion das Array zurück.
''' </summary>
''' <param name="ar">Das zu füllende Bytearray. Länge darf nicht kleiner 0 sein!</param>
''' <param name="StartRange">Der niedrigste Wert eines Byte.
''' Darf nicht kleiner 0 oder größer als EndRange sein!</param>
''' <param name="EndRange">Der größte wert eines Byte.
''' Darf nicht kleiner StartRange oder größer 255 sein!</param>
Public Overloads Function GenerateByteArray(ByRef ar() As Byte, Optional ByVal StartRange As Integer = 0, Optional ByVal EndRange As Integer = 255) As Byte()
If ar.Length <= 0 Or StartRange < 0 Or EndRange > 255 Then Return ar
If Not StartRange <= EndRange Then Return ar
EndRange += 1
Dim rnd As New System.Random
For i As Integer = 0 To ar.Length - 1
ar(i) = rnd.Next(StartRange, EndRange)
Next
Return ar
End Function
|