Dim oZahl As New System.Random
        Dim Zahl As Integer
        Dim bZahl(255) As Byte
        For i As Integer = 0 To 255
            bZahl(i) = i
        Next
        For i As Integer = 0 To 255
            Zahl = oZahl.Next(0, 256)
            If Zahl = i Then Continue For
            Dim t As Byte = bZahl(i)
            bZahl(i) = bZahl(Zahl)
            bZahl(Zahl) = t
        Next