Моды и ASCII в VB Caesar Shift

Посмотрите на этот код:

For i = 1 To Len(input)                                     'find the length of the input
    Mid(input, i, 1) = Chr(Asc(Mid(input, i, 1)) + n)       'chr returns the character associated with the specified character code
    '
Next

Строковые индексы отсчитываются от 0. Ваш первый индекс равен 0, а не 1! Кроме того, вы присваиваете результат вызова функции. Вместо этого вам нужно создать новую строку.

Вы не сказали, но то, как вы использовали методы «Заменить» и «Содержит», указывает на .Net, и если это так, я бы сделал это так:

Public Function encrypt(ByVal key As Integer, ByVal input As String) As String 'Don't forget the return type on the function
    key = key Mod 26
    Return New String(input.Replace(" ", "").ToUpper().Select(Function(c) Chr(((Asc(c) + key - Asc("A"c)) Mod 26) + Asc("A"c))).ToArray())
End Function

Просто так, и это почти однострочник. Теперь я вижу, как это работает, назвав это так:

Encrypt("C"c, "the quick brown fox jumps over the lazy dog")
Encrypt("D"c, "the quick brown fox jumps over the lazy dog")

Результаты, достижения:

BPMYCQKSJZWEVNWFRCUXMLWDMZBPMTIHGLWOA
CQNZDRLTKAXFWOXGSDVYNMXENACQNUJIHMXPB

Найдите результаты, сопоставленные со словом «ленивый», и вы увидите, что «а» правильно переносится на «z» и «y», и что результаты ключа «D» на одну букву меньше результатов «C». .