Зашифровать зашифровать фамилию, имя, отчество, группу студента

[Юленька***]

Задание:
Зашифровать фамилию, имя, отчество, группу студента
Пример: Иванов Сергей Петрович, ст.гр.08-СТ
K = № варианта + 7 (5 + 7 = 12)
Для проверки выполнить работу в обратном порядке.
Порядок выполнения:
1 Открыть программу Excel. Перейти на второй лист этого документа АЛФА-ВИТ. Начиная с ячейки A1 до A39 набрать алфавит, как указано на рисунке 30, затем выделить весь диапазон алфавита и назначить имя «AБC».
2 Перейти на первый лист документа ШИФРОВАНИЕ и в ячейке B1 набрать текст, который необходимо зашифровать.
Пример.
Иванов Сергей Петрович, ст.гр.08-НН
Примечание - при наборе текста необходимо использовать только те символы, которые входят в алфавит!
3 В ячейке B3 записать формулу: =ПРОПИСН(B1), функция ПРОПИСН переводит символы в строке в прописные буквы (рисунок 31).


Рисунок 31
4 В ячейке D3 записать формулу: =ДЛСТР(B3), функция ДЛСТР рассчитывает длину строки, что необходимо пользователю, для кодировки исходной строки (рисунок 32)




Рисунок 30


Рисунок 32

5 В ячейке D4 указать значение k, например 12.
6 В столбце А, начиная со строки 6 пронумеровать строки (количество строк которых необходимо пронумеровать указано в ячейке D3 - 35).
7 Далее, начиная с ячейки B6, записать формулу: =ПСТР(B$3;A6;1) что раз-деляет текст необходимый для кодировки на отдельные символы, как показано на рисунке 33.
8 В ячейку C6 записать формулу: =ПОИСКПОЗ(B6;AБC;0). Функция ПО-ИСКПОЗ производит поиск индекса (позиции) символа из столбца B в массиве AБC, который был определен на листе АЛФАВИТ.
9 Получив позицию символа в алфавите AБC, указанном на листе АЛФА-ВИТ, произвести сдвиг алфавита для кодированной последовательности символов, для этого в ячейку D6 записать формулу:
=ЕСЛИ(ПОИСКПОЗ(B6;AБC;0)+$D$4>39;ПО ИСКПОЗ(B6;AБC;0)+$D$4-39;ПОИСКПОЗ(B6;AБC;0)+$D$4), которая позволяет производить циклический сдвиг алфавита, на переменную k, находящуюся по адресу D4 (рисунок 34).

Рисунок 33

Рисунок 34

10 После получения кода закодированного символа найти его в алфавите. В ячейку E6 записать формулу: =ИНДЕКС(ABC;D6). Функция индекс возвращает символ из массива ABC по указному индексу.
11 Строка 6 копируется столько раз, сколько указано в ячейке D3 минус еди-ница, после чего кодируются все символы строки, указанной в ячейке B1.
12 Для получения строки закодированного текста в ячейке G6 набрать форму-лу: =E6, затем в ячейке на строку ниже =G6&E7, еще на строку ниже =G7&E8 и т.д. В последней строке получится закодированная строка (её выделить) (рисунок 35).

Рисунок 35

ДЕШИФРОВАНИЕ:
1 На листе ПРОВЕРКА в ячейку В1 ввести то, что получилось в ячейке G40:

2 В ячейку В3 ввести формулу: ПРОПИСН(В1)
3 Заполнить столбец А: от 1 до 35 (количество символов в Ф.И.О. и группе студента).
4 В ячейку В6 ввести формулу: ПСТР(В$3;A6;1). Затем скопировать ее до ячейки В40.
5 В ячейку С6 ввести формулу: ПОИСКПОЗ(В6;АБС;0). Скопировать далее.
6 В ячейку D6 ввести формулу:
=ЕСЛИ(ПОИСКПОЗ(B6;АБС;0)-$D$4<=0;ПОИСКПОЗ(B6;АБС;0)-$D$4+39;ПОИСКПОЗ(B6;АБС;0)-$D$4)
7 В ячейку Е6 ввести формулу: =ИНДЕКС(АБС;D6).
8 В ячейку F6 ввести формулу: E6. В ячейку F7 ввести формулу: F6&E7 и скопировать.
В результате получим фразу, которую шифровали (рисунок 36).

Рисунок 36

[EducatedFool]

Ввиду резко возросшей активности студентов-бездельников
темы, не содержащие своих наработок, будут закрываться.

В этом разделе форума помогают разобраться в Вашем решении, а не штампуют лабы одну за другой.

Нет желания делать работу самостоятельно - обращайтесь в раздел Фриланс (там Вам всегда помогут, но не бесплатно)
Нет желания платить - выкладывайте свои наработки, и говорите, что конкретно у Вас не получается. В этом случае вы наверняка получите помочь, и ждать её придётся совсем недолго.

Впрочем, есть ещё раздел Помощь студентам - если хочется халявы, а денег жалко, - можете обратиться туда (есть небольшой шанс, что там кто-нибудь решит ваши задачки)

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