Идея такая: вводим слово, а программа сдвигает каждую букву вперед по алфавиту.
"А" меняется на "Б", "Б" на "В" и т.д.
Но беда - не сообразил, как сделать. Натолкните на верную мысль, пожалуйста
 Криптография, Причем, примитивная :) |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Дюдя |
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Репутация:  0   |
Решил написать примитивный шифровальщик
Идея такая: вводим слово, а программа сдвигает каждую букву вперед по алфавиту. "А" меняется на "Б", "Б" на "В" и т.д. Но беда - не сообразил, как сделать. Натолкните на верную мысль, пожалуйста |
   |
 
|
Сообщений в этой теме
Дюдя Криптография 5.07.2006 20:23
Bokul if a='z' then
a:='a'
else
a:=s… 5.07.2006 20:27 volvo Хорошо. "Я" на что меняться будет? Опять… 5.07.2006 20:33 Дюдя Да, опять на А :)
Зато полноценный криптограф полу… 5.07.2006 20:42 volvo Дюдя, сюда тоже загляни:
Шифрование текста 5.07.2006 20:44 Bokul
Можно привести полностю в нечитаемий вид изменив … 5.07.2006 20:50 Дюдя Получился шифровальщик для самых маленьких :)
pro… 5.07.2006 21:40 volvo Дюдя, проверь на строке, в которой есть 'A… 5.07.2006 22:05 Bokul
s[i] := alpha[(pos(s[i], alpha) mod Length(alpha)… 5.07.2006 22:05
pavel_the_best function code(a: string; f: integer): string;
var
… 2.11.2017 13:45  |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 23.11.2025 6:15 |
Связь с администрацией: bu_gen в домене octagram.name