Будет ли программа корректно включена программа Вернама исключающее ИЛИ ?

---

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      Me.enkripsib.Text = "Enkripsi"
      Me.dekripsir.Text = "Dekripsi"
  End Sub

Private Function vernamr(ByVal orig As String, ByVal key As String)
       Dim ret As String = String.Empty
       For i = 0 To orig.Length - 1
           Dim p As Char
           If key.Length - 1 > i + 1 Then p = key(i)
           ret &= Convert.ToChar(Convert.ToInt32(orig(i)) Xor Convert.ToInt32(p))
       Next
       Return ret
   End Function

Что я уже пробовал:

Интересно, если эта программа включена Вернама исключающее ИЛИ? почему когда я создаю теории шифрования отличаются от результатов этой программы (к сожалению, БД 3nglish)

---