зашифровать текст методом цезаря. алфавит-английские строчные буквы, сдвиг +3, и еще нужно ключ вводить с клавы. 
вот что у меня получилось , но странно работает, точней шифрует нормально только первую букву. Подскажите что не так 

M THandle

Модератор: используйте подсветку кода!

Ссылки:
http://articles.org.ru/cn/showdetail.php?cid=6915
http://forum.vingrad.ru/index.php?showtopi...t&p=1063305
смотрели?

да , в первой ссылке хорошая прога , но она делает только сдвиг на некоторое число , а мне надо чтоб еще на кодовое слово сдвигалось , а как туда замостить это я не знаю. а делфи знает такую функцию cesar , или в ней он просто задает как что-то новое?
по многим сайтам смотрел и везде шифр состоял из того что нужно передвинуть на какое-то число , а вот как так ,  чтобы еще и на слово , у меня не получается   

Это сообщение отредактировал(а) kupall - 2.6.2010, 10:15

Друг, опиши во всех подробностях словами, чего хочешь от шифра?

Допустим у нас есть буква "а" исходного текста.

Сдвиг + 3 это:

3 = третья буква алфавита. То есть "В"

Операция шифрования (1 (первая буква алфавита) + 3 третья буква алфавита = 4)

Следовательно шифротекст для буквы а это четвертая буква то есть  "г".

В свое время писал шифровальщики. На VB. Все работало. Может, если объяснишь и на паскале сдюжу.

Пожалуйста, объясняй в примерах. 

Это сообщение отредактировал(а) PsiMagistr - 2.6.2010, 15:46

дело в том , что сам по себе есть сдвиг +3 и плюс нам надо замостить кодовое слово , к примеру, yes. 
и кодировка будет выглядеть типа того 
a b c d e f g h i j k l m n o p q r s t u v w x y z 
w x z y e s a b с d f g h i j k l m n o p q r t u v

НЕ совсем понял. Первая Срока алфавит. А вторая?
Сча кину тебе в личку скайп свяжись я там.

Добавлено через 6 минут и 48 секунд
ВСе кажется понял примерно, что ты хочешь. Поместить кодовое слово вовнутрь кодовой строки? psimagistr мой скайп.

да , первая строка алфавит . а под каждым символом стоит  закодированный символ , и как видишь , ключ расположен со сдвигом +3 , эти буквы y e s потом не повторяються , то есть закрепляються за d e f . Это получаеться как бы шифр виженера и цезаря вместе
пока скайп найду и установлю

Погоди минутку пишу кое что...

Смотри,

Вот тебе предварительная функция, возвращающая алфавитную строчку, в зависимости от кодового слова и сдвига.

Подключи модуль: StrUtils (расширенные строковые функции)

Добавь на форму два компонента класса TEdit (Имя задай T и T2) и кнопку

В первый Edit будешь писать длину сдвига
Во второй кодовое слово на английском. Ключ.

Теперь функция:



В обработчике кнопки запиши:



Теперь если введешь код yes а сдвиг 3 получишь:

 x y z y e s a b с d e f g h i j k l m n o p q r t u v w  - строку шифроалфавита. Потом можно и шифровать.








 

Это сообщение отредактировал(а) PsiMagistr - 2.6.2010, 18:26

получилось , выдал сообщение как бы новый шифроалфавит , но в нем 29 букв и буквы y e s повторяються , получается две буквы кодируются одинаково 
э но так нельзя .  и получается что мы  зашифровываем только то что напишем в коде проге , а не в потом в ручную.  

Так. Все теперь понял. Тебе надо убрать повторяющиеся значения? Так?


Это сообщение отредактировал(а) PsiMagistr - 2.6.2010, 18:50

да , именно)

Сможешь завтра вернуться? Я попробую переписать кое что.

Кинь скайп, так быстрее будет.

Это сообщение отредактировал(а) PsiMagistr - 2.6.2010, 19:08

а что если выводить ответ не сообщением , а в новый edit  и новый алфавит вводит не в коде, а тоже в новый Edit.  я так попробовал , но он пишет , что не понимает что такое Edit3 . это наверно новый модуль так действует?

Сообщение здесь только для примера.

Это сообщение отредактировал(а) PsiMagistr - 2.6.2010, 19:10