Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 19.11.2017, 12:12   #1
pepe1niy
 
Регистрация: 19.11.2017
Сообщений: 5
По умолчанию Помогите с шифровкой

Надо проект сделать и программу на писать по Шифру Гронсфельда
Вот как он работает : По своему содержанию этот шифр включает в себя шифр Цезаря и шифр Виженера, однако в шифре Гронсфельда используется числовой ключ. Зашифруем слово “THALAMUS”, используя в качестве ключа число 4123. Вписываем цифры числового ключа по порядку под каждой буквой слова. Цифра под буквой будет указывать на количество позиций, на которые нужно сдвинуть буквы. К примеру вместо Т получится Х и т.д.
T H A L A M U S
4 1 2 3 4 1 2 3
T U V W X Y Z
0 1 2 3 4
В итоге: THALAMUS = XICOENWV

Последний раз редактировалось pepe1niy; 19.11.2017 в 12:14.
pepe1niy вне форума
Старый 21.11.2017, 23:46   #2
Alexan-Dwer
Форумчанин
 
Аватар для Alexan-Dwer
 
Регистрация: 20.04.2009
Сообщений: 136
По умолчанию

Описание дано.

Примерный алгоритм решения:
1. Запрос текста.
2. Запрос ключа.
3. Через цикл от 1 до длина_текста находим код символа текста текущего индекса, прибавляем к нему код символа ключа с индексом = счетчик цикла mod длина_ключа с вычетом 48 (так как: #48 = '0') и далее, переводим результат в символ, который добавляем к результирующей строке. Я правда, не знаю, как там у Вас с допустимым алфавитом, то есть, что можно вводить в качестве текста, только буквы, или еще цифры, а так же, как программа должна реагировать на ввод других символов, и что будет, если Z зашифровать через 1, если A, то тогда при получении кода больше чем 90, нужно из него вычитать 25 (т. к. 90 - 25 = 65, а #65 = 'A'); если у Вас смешанный алфавит, то тут придется делать условие, чтобы подобрать вычитаемое. Но тут уже уточняйте у того, кто дал задание...
4. Вывод результата.

Последний раз редактировалось Alexan-Dwer; 22.11.2017 в 16:53.
Alexan-Dwer вне форума
Старый 05.12.2017, 16:36   #3
pepe1niy
 
Регистрация: 19.11.2017
Сообщений: 5
По умолчанию

Мне именно код нужен, я просто вообще не вдупляю
pepe1niy вне форума
Старый 05.12.2017, 17:11   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Вы не перепутали "помогите" и "сделайте за меня"?

Назовите нормально тему, покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевод нужен срочно помогите ) в течение 2 часов от Паскаля на Турбо СИ нужно помогите Жанибек Помощь студентам 14 01.04.2015 17:23
Запара с шифровкой=( Wu-Kid Общие вопросы Delphi 8 22.05.2013 10:52
Помогите создать програму для роботы с файлами, пожалуйста помогите нужно очень срочно Сергей Человек Фриланс 3 06.07.2009 19:30
Помогите Помогите Пожалуйста Решить Одну Задачку в Паскале!!! VisTBacK Помощь студентам 6 19.09.2008 13:44