Sub Main
    Dim bytes(511) As Byte
    Using rng As New System.Security.Cryptography.RNGCryptoServiceProvider()
        rng.GetNonZeroBytes(bytes)
    End Using
'bytes.Dump

Dim nums = bytes.Zip(bytes.Skip(1),Function(b1,b2) {b1,b2})
nums.Dump


End Sub