Исправте программу

[alexander13]

Сообщение от BDA

alexander13, если Вам поможет.

Шикарно. Спасибо, так гораздо лучше.

Upd. После некоторого шаманства программа заработала. Кодирование/декодирование у меня работает (по крайней мере, для ручного ввода). В связи с этим, прошу предоставить набор входных данных, при которых программа дает сбой.

[alexander13]

Итак, ответ.
Программа действительно выдавала неправильные шифры. Тест проводился на фразе "Madnessistheemergencyexit" с ключевым словом "Joker". Спец. символы появлялись на пересечениях J с буквами s и r. Код шифрованного символа вычисляется [примерно] в этой строке:

m := (((shifr(text1[i])) + (shifr(keyword1[q]))) mod 31);

Соответственно, меняем 31 на 26, запускаем программу и она работает.
По крайней мере, с моими тестовыми строками. Это НЕ значит, что по остальному тексту ошибок нет. Я не просматривал весь текст. Наверняка такой же косяк и в обработке файлов. Но мысль понятно, надеюсь.
Ах, да. Это так, потому что фраза вводится латинскими буквами, а мощность латинского алфавита 26, а не 31... вооот..

Upd. Т. к. код полностью не смотрел, то на других наборах данных вполне могут быть косяки. Если найдете - говорите.

Upd. 2 Да, как показал беглый просмотр, еще минимум в трех местах надо сделать аналогичную замену. В том числе, для дешифровки.