Использование случайного смещения для шифрования - VB

Формулировка задачи:

Добрый вечер, друзья. Набросал код.

Private Sub Command1_Click()
    Dim s As String, ss As String
    s = "Шифр"
    ss = RndXOR(s, 3)
    sss = RndXOR(ss, 3)
    MsgBox s & vbCrLf & ss & vbCrLf & sss
End Sub
 
Function RndXOR(ByVal s As String, ByVal pass As Integer) As String
    Dim b() As Byte, i As Integer
    b = s
    For i = 0 To UBound(b) Step 2
              b(i) = Int(Rnd(pass) * 32) Xor b(i)
    Next i
    RndXOR = b
End Function

Вот теория

Спойлер

Используется шифрование сообщения за счет замены символа сообщения на другой. Этот символ формируется на основе символа из сообщения по некоторому правилу. cod(ssi) = cod(si) +p1, где si – текущий исходный элемент, ssi - текущий зашифрованный элемент, p1 – число. в этом примере используется случайное число. То есть текущий символ исходного сообщения изменяется формально так же в соответствии с выражением Второй особенностью работы является то, что вместо арифметического сложения берется логическая операция XOR, которая инвертирует биты символа в соответствии со значением пароля. m(i) = Int(Rnd(pass) * 32) Xor m(i), где m(i) – код символа сообщения, pass – пароль. Датчик случайных чисел берет значения от 0 до 1, поэтому полученное значение умножаем на 32 (число букв в алфавите). Функция Int делает полученное число целым. Алгоритм получается компактным, а шифр более стойким. Криптоанализ, основанный на частоте появления символа в тексте, здесь не работает. Один и тот же символ исходного сообщения будет заменяться различными символами. Например, символ «а» исходного сообщения при повторении в тексте шифровки будет заменен на другой символ. Для проверки работы этого способа шифрования берут исходное сообщение из одинаковых знаков и получают шифровку из разных. Функция XOR является симметричной. Двойное отрицание является утверждением.

Для дешифрования используется такой же алгоритм, как и при шифровании

А теперь собственно вопрос: Почему это не работает? И должно ли? Почему должно происходить дешифрование? Спасибо.

Решение задачи: «Использование случайного смещения для шифрования»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
    Dim s As String, ss As String
    s = "Зашифрованое сообщение. АААААББББ"
    ss = RndXOR(s, 3)
    sss = RndXOR(ss, 3)
    MsgBox s & vbCrLf & ss & vbCrLf & sss
End Sub
 
Function RndXOR(ByVal s As String, ByVal pass As Integer) As String
    Dim b() As Byte, i As Integer
    Rnd -1
    b = s
    For i = 0 To UBound(b) Step 2
              b(i) = Int(Rnd(pass) * 32) Xor b(i)
    Next i
    RndXOR = b
End Function
                        