I have a simple function that handles overflows with modulus operator
Private Function RandomizeBlock(seed As Integer, ByVal block() As Byte) As Byte()
Dim Generator As System.Random = New System.Random(seed)
Dim newblock(255) As Byte
Dim i As Integer = 0
For i = 0 To block.Length - 1
newblock(i) = (block(i) + Generator.Next(0, 256)) Mod 256
rndValue = Generator.Next(0, 256)
reverse_1 = ((256 - rndValue) + block(i)) Mod 256
reverse_2 = ((256 + rndValue) - block(i)) Mod 256
If you know the random value, then reconstructing the original value is very simple.
You just have to keep in mind that working modulo
p, you don't have actual numbers but remainder classes. The first
p natural numbers are usually used as the representatives of these classes. Luckily, subtraction and addition are perfectly compatible with remainder classes.
Mod implementation of VB converts any positive number to the representative of its remainder class. However, it can not do it on negative numbers. You have to do it on your own.
Long story short, this is the code:
Dim reverse As Integer = block(i) - rndValue; If reverse < 0 Then reverse = reverse + 256 'Convert to representative of remainder class