Зашифрованные слова в excel

Защита ячеек шифром Виженера

Парольная защита листов в Microsoft Excel давно стала притчей во языцех. В том плане, что ее, по-сути, нет. С регулярностью примерно раз в месяц я получаю вопросы по почте на тему «как мне защитить мои данные на листе Excel от просмотра/изменения?» и каждый раз не знаю что ответить. Можно, конечно, дать ссылочку на статью с подробным описанием всех способов защиты ячеек и листов в Excel, но такая защита остановит только начинающего. В сети можно найти кучу платных и бесплатных программ для взлома такой защиты тупым перебором за считанные минуты.

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

Принцип шифра Виженера

Одним из самых древних и простых в реализации является шифр Цезаря, который использовал его для тайной переписки. Суть его в том, что каждая буква исходного шифруемого сообщения сдвигается в алфавите на заданное количество символов. Так, например, если сдвиг равен 3, то буква А превратится в Г, буква Б — в Д и так далее:

Символы в конце алфавита (Э, Ю, Я), соответственно, будут превращаться его начало (А, Б, В).

Реализовать такой шифр просто, но стойкость его невелика — найти нужное число сдвига и дешифровать сообщение можно даже прямым перебором за 20-30 итераций, что займет даже у человека не больше часа, а у современного компьютера доли секунды. Поэтому еще в 15 веке был впервые придуман, а потом в 16 веке французским дипломатом Блезом Виженером официально представлен более совершенный метод на основе шифра Цезаря, получивший впоследствии название «шифр Виженера». Его принцип в том, что каждая буква в исходном шифруемом тексте сдвигается по алфавиту не на фиксированное, а переменное количество символов. Величина сдвига каждой буквы задается ключом (паролем) — секретным словом или фразой, которая используется для шифрования и расшифровки. 

Допустим, мы хотим зашифровать фразу «КЛАД ЗАРЫТ В САДУ» используя слово ЗИМА в качестве ключа. Запишем это слово подряд несколько раз под исходной фразой:

Для удобства шифрования используем так называемый «квадрат Виженера» — таблицу, где в каждой строке алфавит сдвигается на одну позицию вправо:

Если взять строку с первой буквой ключа (З) и столбец с первой буквой исходного текста (К), то на их пересечении увидим букву «Т» — это и будет первая буква нашего зашифрованного сообщения. Затем процедура повторяется для всех остальных пар букв ключа и исходного сообщения по очереди и в результате мы получаем зашифрованный вариант нашей исходной фразы:

Заметьте, что одна и та же буква (например А) в исходном сообщений превратилась в разные буквы на выходе (Н, Й и Б), т.к. сдвиг при шифровании для них был разный. Именно поэтому вскрыть шифр Виженера простыми способами невозможно — вплоть до 19 века он считался невзламываемым и успешно использовался военными, дипломатами и шпионами многих стран, частности — конфедератами во время Гражданской войны в США.

Реализация формулами по квадрату Виженера

Если использовать готовый квадрат Виженера как в примере выше, то реализовать шифрование можно одной формулой с помощью функций ИНДЕКС (INDEX) и ПОИСКПОЗ (MATCH), как это было описано в статье про двумерный поиск в таблице. Выглядеть это может примерно так:

Логика этой формулы следующая:

• Первая функция ПОИСКПОЗ (подсвечена зеленым) ищет первую букву ключа (З) в зеленом столбце (B9:B40) и выдает порядковый номер ячейки, где она ее нашла, т.е. номер строки в квадрате Виженера по которому идет шифрование.
• Вторая функция ПОИСКПОЗ (подсвечена розовым) аналогичным образом ищет первую букву исходного сообщения (К) в красной строке и выдает порядковый номер столбца.
• Функция ИНДЕКС выдает содержимое ячейки из квадрата (C9:AH40) с пересечения строки и столбца с найденными номерами.

Реализация формулами по кодам символов

Легко сообразить, что в реальной жизни в документах могут использоваться не только буквы русского языка, но и латиница, цифры, знаки препинания и т.д. Делать квадрат Виженера с участием всех этих символов — та еще эпопея, но есть другой, гораздо более простой способ.

Внутри компьютера и операционной системы каждый символ имеет свой числовой код от 0 до 255 (его еще называют ASCII-кодом). Microsoft Excel имеет в своем стандартном наборе две функции, которые умеют с ними работать:

• Функция КОДСИМВ (CODE) — выдает числовой код символа, указанного в качестве аргумента. Например КОДСИМВ(«Ж») выдаст 198.
• Функция СИМВОЛ (CHAR) — выдает символ, соответствующий указанному в аргументе коду, т.е. наоборот СИМВОЛ(198) даст нам букву Ж. 

Для применения шифра Виженера запишем наш исходный текст и ключ друг под другом как раньше и выведем коды каждой буквы с помощью функции КОДСИМВ:

Теперь сложим коды символов ключа и исходного текста, добавив функцию ОСТАТ (MOD), чтобы при превышении максимально допустимого количества символов (256) остаться в пределах 0-255:

Теперь осталось использовать функцию СИМВОЛ, чтобы вывести символы по полученным кодам и сформировать зашифрованное сообщение:

Само-собой, можно было бы обойтись и без дополнительных строк, уложив все функции в одну формулу для компактности:

Расшифровка производится совершенно аналогично, только знак «плюс» в формуле меняется на «минус»:

Для шпионских игр шифрование такими спецсимволами, конечно, не очень удобно — так и представляю себе глаза радистки Кэт при попытке передать третий и пятый символы нашей шифровки Но нам их, отстреливаясь из именного ТТ во время погони, на бумажке не писать, так что для наших целей — сойдет.

Макросы для шифрования-дешифрования

Ну, а теперь самое интересное. Чтобы применить шифр Виженера в реальной жизни лучше будет воспользоваться простым макросом, который проводит все описанные в предыдущем пункте операции с каждой ячейкой текущего листа автоматически. Откройте редактор Visual Basic с помощью сочетания клавиш Alt+F11 или кнопкой Visual Basic на вкладке Разработчик (Developer). Вставьте новый модуль с помощью команды меню Insert — Module и скопируйте туда текст наших макросов:

 
'Шифрование текущего листа
Sub Encrypt()
    Dim Pass$, Key$
    Pass = InputBox("Введите ключ для шифрования:")
    Key = WorksheetFunction.Rept(Pass, 100)
    
    For Each cell In ActiveSheet.UsedRange
        Out = ""
        Txt = cell.Formula
        For i = 1 To Len(Txt)
            Out = Out & Chr((Asc(Mid(Txt, i, 1)) + Asc(Mid(Key, i, 1))) Mod 256)
        Next i
        cell.Value = Out
    Next cell
End Sub

'Дешифрация текущего листа
Sub Decrypt()
    Dim Pass$, Key$
    Pass = InputBox("Введите ключ для расшифровки:")
    Key = WorksheetFunction.Rept(Pass, 100)
    
    For Each cell In ActiveSheet.UsedRange
        Out = ""
        Txt = cell.Value
        For i = 1 To Len(Txt)
            Out = Out & Chr((Asc(Mid(Txt, i, 1)) - Asc(Mid(Key, i, 1)) + 256) Mod 256)
        Next i
        cell.Formula = Out
    Next cell
End Sub
 

Первый макрос запрашивает у пользователя ключ и шифрует все ячейки текущего листа. Второй макрос производит обратную операцию дешифрования. Запустить получившиеся макросы можно с помощью сочетания клавиш Alt+F8 или кнопки Макросы (Macros) на вкладке Разработчик (Developer). Выглядеть все это может примерно так:

Важные нюансы

• ВНИМАНИЕ! Если вы внимательно прочитали статью, то должны четко понимать — не существует легкого способа узнать или подобрать ключ! Есть несколько методик взлома шифра Виженера, но все они весьма сложны для неспециалиста и не дают 100% гарантии. Если вы забудете ключ — потеряете данные навсегда с большой вероятностью. Если что — я вас предупредил.
• При шифровании не нарушаются формулы, ссылки и форматирование — после дешифрации все отлично работает.
• Если при дешифрации вы неправильно введете ключ, то получите бессмысленную «кашу» из спецсимволов вместо своего текста (т.к. сдвиг кодов будет неправильным). Тогда придется откатиться на шаг назад повторным шифрованием с тем же паролем и потом снова попробовать расшифровать документ еще раз (на этот раз используя правильный ключ).

Ссылки по теме

• 4 способа защиты данных в Microsoft Excel
• Суперскрытый лист в книге Excel
• Выборочное отображение листов книги пользователям по паролю

Лабораторная
работа № 5

Методы
защиты информации. Шифр Цезаря.

Цель
работы:
Освоить технологию шифрования и
дешифрования

информации
в среде Excel с использованием шифра
Цезаря.

5.1.
Теоретическая
часть

Шифр
Цезаря является частным случаем шифра
простой замены (одно алфавитной
подстановки). Свое название этот шифр
получил по имени римского

императора
Гая Юлия Цезаря, который использовал
этот шифр при переписке.

При
шифровании исходного текста каждая
буква заменяется другой буквой того же
алфавита по следующему правилу. Заменяющая
буква определяется путем смещения по
алфавиту к концу от исходной буквы на
k
букв.
При достижении конца алфавита выполняется
циклический переход к его началу.

Например:
пусть A
–
используемый алфавит:

A={a1,
a2,…,am,…,aN},

где
a1,
a2,…,am,…,aN
–
символы
алфавита;
N ширина
алфавита.

Пусть
k
–
число позиций сдвига символов алфавита
при шифровании,

0<k<N.
При шифровании каждый символ алфавита
с номером m
из
кодируемого текста заменяется на символ
этого же алфавита с номером m+k.
Если m+k>N,
номер символа в алфавите A
определяется
как m+k—N.

Для
дешифрования текстовой информации
номер позиции символа восстанавливаемого
текста определяется как m—k.
Если m—k<0,
то вычисление этого

номера
производится как m—k+N.

Достоинством
этой системы является простота шифрования
и

дешифрования.
К недостаткам системы Цезаря следует
отнести:

—
подстановки, выполняемые в соответствии
с системой Цезаря, не маскируют частот
появления различных букв исходного и
отрытого текста;

—
сохраняется алфавитный порядок в
последовательности заменяющих букв;

при
изменении значения k
изменяются
только начальные позиции такой
последовательности;

—
число возможных ключей k
мало;

—
шифр Цезаря легко вскрывается на основе
анализа частот появления букв в

шифре.

5.2.
Порядок выполнения лабораторной работы

1.
Войти в среду Excel. Создать новый документ,
перейти на второй лист этого

документа.
Начиная с ячейки A1
до A40
набрать алфавит, как показано на рисунке
5.1”а”. Выделить весь диапазон алфавита
и назначить ему имя “ABC”.

2.
На первом листе документа в ячейке B1
набрать текст, который необходимо

зашифровать,
например: Гай
Юлий Цезарь:”Пришел,
увидел,
победил!”
При

наборе
текста необходимо использовать только
те символы, которые входят в

алфавит.

3.
В ячейке B3 записать формулу «=ПРОПИСН(B1)»,
функция ПРОПИСН переводит буквенные
символы в строке в прописные буквы.

4.
В ячейке D3 записать формулу «=ДЛСТР(B3)»,
функция ДЛСТР позволяет

определить
длину строки, что необходимо пользователю,
для кодировки исходной строки.

5.
В ячейку D4 записать значение k,
например, 5.

6.
В столбце А, начиная с ячейки А6,
пронумеровать ячейки числами
последовательного ряда от 1 до N, где N –
число символов в тексте, включая пробелы.
N рассчитано в ячейке D3.

7.
В ячейку B6, записать формулу
“=ПСТР(B$3;A6;1)”, которая разделяет
кодируемый текст на отдельные символы.
Скопировать эту формулу в ячейки В7-

В48.

8.
В ячейку C6 записать формулу
“=ПОИСКПОЗ(B6;ABC;0)”. Функция ПОИСКПОЗ
производит поиск индекса (номера позиции)
символа в массиве ABC, который был определен
на листе 2. Скопировать содержимое ячейки
C6 в ячейки

C7-C48.

9.
Получив номер символа в алфавите ABC,
произвести сдвиг нумерации алфавита
для кодируемой последовательности
символов. В ячейку D6 записать

формулу:

“=ЕСЛИ(ПОИСКПОЗ(B6;ABC;0)+$D$4>40;ПОИСКПОЗ(B6;ABC;0)+$D$4-

40;ПОИСКПОЗ(B6;ABC;0)+$D$4)”.
(5.1)

Эта
формула производит сдвиг номеров
символов алфавита на величину k
и

определяет
номер заменяющего символа из алфавита
ABC. Содержимое D6

скопировать
в область D7-D48.

10.
Выбрать символы из алфавита ABC в
соответствии с новыми номерами. В

ячейку
E6 записать формулу “=ИНДЕКС(ABC;D6)”.
Скопировать содержимое

ячейки
E6 в область E7-E48.

11.
Для получения строки закодированного
текста необходимо в ячейку F6 записать
“=E6”, в ячейку F7 соответственно –
“=F6&E7”. Далее скопировать содержимое
ячейки F7, в область F8-F48. В ячейке F48
прочитать зашифрованный

текст.

12.
Для проверки шифрования произвести
дешифрование полученного текста и

сравнить
его с исходным. На третьем листе выполнить
дешифрование аналогично пунктам 2-11
лабораторной работы. При этом необходимо
учесть следующие особенности:

в
п. 2 набрать зашифрованный текст;

в
п. 9 в ячейку D6 записать формулу:

=ЕСЛИ(ПОИСКПОЗ(B6;ABC;0)-$D$4<0;ПОИСКПОЗ(B6;ABC;0)-

$D$4+40;ПОИСКПОЗ(B6;ABC;0)-$D$4).
(5.2)

Получение
исходного текста в ячейке F48 третьей
страницы свидетельствует

о
корректном выполнении лабораторной
работы.

5.3.
Контрольные
вопросы:

1.
В чем заключается принцип защиты
информации с использованием шифра
Цезаря?

2.
Объяснить формулы (5.1) и (5.2).

3.
Можно ли использовать программы настоящей
лабораторной работы для

шифрования
другой информации? Если да, то, каким
образом?

4.
В чем достоинства и недостатки шифра
Цезаря?

5.
Какие еще методы защиты информации Вам
известны?

а)	б)
в)	г)

Рис.
5.1. — Фрагменты документов Excel по
лабораторной работе № 5:

а)
алфавит символов шифра Цезаря; б)
начальная часть документа

шифрования;
в) и г) начальная и конечная часть
документа дешифрования__

Соседние файлы в папке Excel

• #

  16.03.20163.82 Mб317Phones.xls

• #
• #

  16.03.20163.82 Mб75Копия Phones.xls

• #
• #
• #

Предположим, у вас есть список слов, и вам нужно зашифровать все буквы в этих словах для некоторых целей, как показано на скриншоте ниже. Пожалуйста, попробуйте методы, описанные в этой статье.

Скремблируйте буквы в словах с помощью определяемой пользователем функции
Легко перепутать буквы в словах с помощью Kutools for Excel

---

Скремблируйте буквы в словах с помощью определяемой пользователем функции

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

1. нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно,

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули, затем скопируйте и вставьте приведенный ниже код VBA в Code окно. Смотрите скриншот:

Код VBA: зашифровывать буквы в словах

Function Scramble(oldname)
    On Error Resume Next
    n = Len(oldname)
    newname = ""
    Do
        i = Int(Rnd() * n) + 1
        c = Mid(oldname, i, 1)
        If c <> "*" Then
            newname = newname & c
            oldname = Replace(oldname, c, "*", , 1)
        End If
    Loop Until Len(newname) = n
    Scramble = LCase(newname)
End Function

3. Затем нажмите другой + Q ключи, чтобы закрыть Microsoft Visual Basic для приложений окно.

4. Выберите пустую ячейку для поиска перевернутых букв, затем введите формулу. = схватка (A2) в строку формул и нажмите Enter ключ. Продолжайте выделять ячейку результата и перетащите ее маркер заполнения вниз, чтобы получить все результаты. Смотрите скриншот:

Внимание: A2 — это ячейка, содержащая слово, необходимое для шифрования букв. Пожалуйста, измените его по своему усмотрению.

---

Легко перепутать буквы в словах с помощью Kutools for Excel

Здесь рекомендую полезную надстройку — Kutools for Excel, С этими Обратный порядок текста Утилита, вы можете легко зашифровать буквы указанных ячеек всего за несколько кликов.

1. Выделите ячейки, внутри которых нужно перемешать буквы, затем нажмите Кутулс > Текст > Обратный порядок текста. Смотрите скриншот:

2. в Обратный текст диалоговом окне укажите разделитель, на основе которого вы будете шифровать буквы в Разделитель раздел, а затем щелкните OK кнопку.

Теперь выбранные слова немедленно зашифровываются, как показано на скриншоте ниже.

  Если вы хотите получить бесплатную пробную версию (30-день) этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.

---

Статьи по теме:

• Как условно форматировать ячейки на основе первой буквы / символа в Excel?
• Как сделать все буквы в ячейке или столбце в Excel заглавными?
• Как фильтровать значения по первой букве или последнему символу в Excel?

---

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

• Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
• Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
• Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
• Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
• Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
• Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
• Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
• Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
• Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

---

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Комментарии (5)

Оценок пока нет. Оцените первым!

27.11.2012 Калькуляторы, шаблоны, форматы, Практикум

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

Поскольку, наша разработка не будет использоваться в военных целях, мы можем использовать относительно простой алгоритм шифрования — шифр Виженера. Для наших целей этого будет вполне достаточно. Напомню, что наша основная цель – это изучение возможностей программы Excel, в том числе на подобных комплексных примерах.

Шифр Виженера достаточно прост для понимания и основывается на шифре Цезаря. Напомню, что в шифре Цезаря зашифрованное сообщение получается путем сдвига алфавита на какое-то заданное число. Например, если это число 5, то буква А становиться  буквой Д, буква Б становиться буквой Е и т.д. Это один из самых простых алгоритмов шифрования.

Шифр Виженера состоит в последовательном применении нескольких шифров Цезаря, с различными сдвигами, определяемыми ключевым словом. Так если, ключевое слово «ЗАРЯ», то последовательность сдвигов будет следующая «9; 1; 18; 33» т.е. соответствующая порядковым номерам букв ключевого слова в алфавите. Эта последовательность сдвигов применяется к исходному тексту: первый символ смещается на 9 знаков, второй символ исходного текста – на 1 знак, третий – на 18, четвертый – на 33, пятый – снова на 9 и т.д. по кругу. Это уже более сложный алгоритм шифрования, вполне нам подходящий.

После краткого экскурса в криптографию приступим к созданию нашей шифровальной системы в Excel.

По сути дела, нам надо будет укрупненно решить следующие задачи:

Во-первых, обеспечить необходимую длину пароля независимо от исходного текста. В нашем случае пусть это будет 8 и 16 символов.

Во-вторых, получить последовательность символов с учетом сдвигов по ключевому слову соответствующую русским буквам алфавита;

В-третьих, перевести русские буквы алфавита в символы соответствующие латинским буквам, цифрам и специальным знакам;

Применительно к первой задаче, необходимо иметь ввиду главное отличие нашего примера от полноценных шифровальных систем: мы будем шифровать пароль только в одну сторону. Это сильно упрощает задачу. По сути дела, мы можем «обрезать» исходный текст в соответствии с нашей длиной пароля. Однако, в случае, если исходный текст короче максимальной длины нашего пароля (короче 16 символов), то нам все же будет необходимо «дорастить» его до требуемого количества знаков.

При разработке примера мы будем прибегать к средствам программирования, а постараемся решить задачу лишь стандартными встроенными функциями Excel.

Основой нашей разработки, как вы уже догадались, будут являться текстовые функции Excel.

Изначально у нас будет иметься два поля для ввода исходного текста, и ключевого слова.

Для удобства, присвоим имена «пароль» и «ключ» ячейкам, в которые будем вводить соответствующие данные.

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

Для этого мы будем использовать функцию ПСТР, возвращающую заданное число знаков из текстовой строки, начиная с указанной позиции и имеющую следующий синтаксис:

=ПСТР(текст; начальная_позиция; количество_знаков)

Где:

текст – исходный текст. В нашем случае это будет текст из ячеек с именами «пароль» и «ключ»;

начальная_позиция – порядковый номер символа в текстовой строке, начиная с которого будет возвращаться заданное количество знаков. В нашем случае – это будет ссылка на ячейку, содержащую порядковый номер символа, один из 16 номеров.

количество_знаков – соответственно то количество знаков, которое нам надо получить. В нашем случае, поскольку мы будем «растаскивать» слово по буквам, то это будет 1.

Справа от ячеек, в которые будем вводить данные, у нас будет располагаться два диапазона по 16 ячеек расположенных в двух строках для «растаскивания» исходного пароля и ключа на одиночные символы (буквы). В нашем примере, это будет диапазон G6:V6 для растаскивания исходного пароля и G7:V7 для растаскивания ключа. Над этими диапазонами, в ячейках  G5:V5 разместим порядковые номера символов от 1 до 16.

С учетом этого, формула для «растаскивания» будет выглядеть следующим образом:

Для исходного пароля =ПСТР(пароль;G5;1)

Для ключа =ПСТР(ключ;G5;1)

Это для выделения первых символов из исходного пароля и ключа (в примере G5=1).

Скопировав эти формулы построчно в каждую из 16 ячеек, мы в каждой ячейке получим по одному символу, из которых состоит исходный пароль и ключ.

Однако, мы наверняка столкнемся с такой ситуацией, когда исходный пароль или ключ состоит менее чем из 16 знаков. В нашем примере исходный пароль «глобус» имеет 6 знаков, а ключевое слово «заря» — 4 знака.

В этом случае, нам на помощь приходит функция ПОВТОР, повторяющая текст заданное число раз и имеющая следующий синтаксис:

=ПОВТОР(текст; число_повторений)

Где:

тест – текст, который необходимо повторить. В нашем случае это текст из ячеек с именами «пароль» и «ключ».

число_повторений – число повторений текста. В нашем случае мы должны рассчитать необходимое число повторений таким образом, чтобы гарантировано заполнить все 16 символов.

Можно было бы установить число повторений равным 16, что гарантировало бы результат, однако, мы поступим более изящно. Для определения необходимого количества повторов, мы используем функцию ДЛСТР, которая возвращает количество знаков в текстовой строке, и имеющая интуитивно понятный синтаксис:

=ДЛСТР(текст)

Применительно к исходному паролю функция ДЛСТР должна вернуть значение 6, а применительно ключу – значение 4.

Далее совсем просто. Делим 16 на значение возвращаемое функцией ДЛСТР и получаем необходимое число повторов.

16/ДЛСТР(пароль)=2,66666(6)

16/ДЛСТР(ключ)=4

Чтобы избежать дробных значений, используем функцию округления до ближайшего большего значения:

=ОКРУГЛВВЕРХ(число; число_разрядов).

Таким образом, объединив перечисленные выше функции, мы получаем формулу для растаскивания по символам и дублирования, т.е. заполнения каждой из 16 ячеек наших диапазонов для исходного пароля и ключа:

Для пароля  =ПСТР(ПОВТОР(пароль;ОКРУГЛВВЕРХ(16/ДЛСТР(пароль);0));G5;1)

Для ключа: =ПСТР(ПОВТОР(ключ;ОКРУГЛВВЕРХ(16/ДЛСТР(ключ);0));G5;1)

На рисунке представлены результаты применения описанных выше формул.

 Давайте теперь предусмотрим случай, если наш пароль будет состоять из двух слов с пробелом. Пробел плохо воспринимается функциями Excel, и мы заменим его на символ нижнего подчеркивания.

В этом нам поможет текстовая функция ПОДСТАВИТЬ, которая позволяет произвести замену старого текста на новый в текстовой строке, и имеющая синтаксис:

=ПОДСТАВИТЬ(текст; стар_текст; нов_текст; [(номер вхождения)])

Где:

текст – текстовая строка, в которой будет осуществляться замена. В нашем случае, это ячейки с именами «Пароль» и «Ключ»;

стар_текст – старый текст, который подлежит замене. В нашем случае это пробел (в формуле указывается в кавычках   » «);

нов_текст – новый текст, которым будет заменен старый текст. В нашем случае это символ нижнего подчеркивания «_»;

[(номер вхождения)] – номер первого символа в текстовой строке, начиная с которого будет осуществляться замена старого текста новым. Можно не ставить ничего, тогда заменены будут все появления старого текста.

Функция замены пробела будет выглядеть следующим образом:

=ПОДСТАВИТЬ(пароль;» «;»_») для пароля и =ПОДСТАВИТЬ(ключ;» «;»_») для ключа.

С учетом этого, после того, как мы подставим эту формулу в нашу общую комбинацию, итоговая формула примет вид:

=ПСТР(ПОВТОР(ПОДСТАВИТЬ(пароль;» «;»_»);ОКРУГЛВВЕРХ(16/ДЛСТР(пароль);0));G5;1) для пароля и,

=ПСТР(ПОВТОР(ПОДСТАВИТЬ(ключ;» «;»_»);ОКРУГЛВВЕРХ(16/ДЛСТР(ключ);0));G5;1) для ключа.

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

Для этого мы можем воспользоваться функцией СТРОЧН, которая делает все буквы в текстовой строке строчными и имеет интуитивно понятный синтаксис:

=СТРОЧН(текст), где:

текст – текстовая строка, в которой необходимо провести замену заглавных букв строчными.

После подстановки, наша комбинация функций примет вид:

=ПСТР(ПОВТОР(ПОДСТАВИТЬ(СТРОЧН(пароль);» «;»_»);ОКРУГЛВВЕРХ(16/ДЛСТР(пароль);0));G5;1) для пароля и,

=ПСТР(ПОВТОР(ПОДСТАВИТЬ(СТРОЧН(ключ);» «;»_»);ОКРУГЛВВЕРХ(16/ДЛСТР(ключ);0));G5;1) для ключа.

Теперь переходим к решению второй задачи – переводу символов пароля и ключа в числовые значения, необходимые нам для последующей обработки.

Для перевода строчных букв русского алфавита в числовые значения, мы могли бы воспользоваться функцией КОДСИМВ(текст), возвращающую числовой код символа по таблице знаков ANSI.

Поскольку строчные буквы русского алфавита имеют код с 224 по 255 (32 буквы без «ё»), то получить порядковые номера букв лежащих в более привычном диапазоне от 1 до 33 (32), мы можем, отняв от кода символа число 223.

Формула будет иметь вид:

=КОДСИМВ(текст)-223;

Для пароля =КОДСИМВ(ПСТР(ПОВТОР(ПОДСТАВИТЬ(СТРОЧН(пароль);» «;»_»);ОКРУГЛВВЕРХ(16/ДЛСТР(пароль);0));G5;1))-223

Для ключа =КОДСИМВ(ПСТР(ПОВТОР(ПОДСТАВИТЬ(СТРОЧН(ключ);» «;»_»);ОКРУГЛВВЕРХ(16/ДЛСТР(ключ);0));G5;1))-223

Если не использовать в пароле и ключе пробелов и буквы «ё», коды символов которых не входят в наш основной диапазон, то этого вполне достаточно. Однако мы рассмотрим более расширенный вариант.

Для этого будем использовать функцию ПОИСКПОЗ, которая возвращает относительную позицию элемента в массиве, и имеющая синтксис:

=ПОИСКПОЗ(искомое_значение; просматриваемый_массив; [тип_сопоставления]),

Где:

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

просматриваемый_массив – массив со всеми значениями элементов, в котором будет осуществляться поиск. В нашем случае, мы создадим массив состоящий из всех букв русского алфавита и знака подчеркивания в диапазоне ячеек А1:А34. Присвоим данному диапазону имя «кирилица»;

тип_сопоставления – принимает значения 1-меньше, 0-точное совпадение, -1-больше. В нашем случае мы будем искать точное сопоставление.

С учетом того, что символы русского алфавита соответствующие паролю и ключу у нас находятся в диапазонах G6:V6 и G7:V7 соответственно, то формула для перевода букв в числа будет выглядеть следующим образом:

Для первого символа пароля =ПОИСКПОЗ(G6;кирилица;0) и =ПОИСКПОЗ(G7;кирилица;0) для ключа.

Результат можно посмотреть на рисунке.

Как видим, мы получили два ряда чисел, находящихся один под другим. Теперь, чтобы наш алгоритм шифрования начал работать, нам необходимо сложить эти числа попарно.

После того как мы получили ряд чисел, переходим к решению третьей задачи – переводу числовых значений в символы латинского алфавита, цифры и спецсимволы.

Для перевода будем использовать функцию ИНДЕКС которая  возвращает значение элемента таблицы или массива, заданного номером строки и номером столбца.

=ИНДЕКС(массив; номер_строки; [номер столбца])

И созданную нами  одномерную таблицу символов из одного столбца и количеством строк по числу используемых нами символов. Таблица символов будет состоять из строчных и заглавных латинских букв, чисел от 1 до 9 и спецсимволов.

Таблица должна иметь 68 строк и 67 символов, со 2 строки по 68. Связано это с тем, что наша исходная таблица с буквами русского алфавита имеет 34 символа, после перевода пароля и ключа в порядковые номера строк этой таблицы и их попарного сложения, мы можем получить числовой ряд с номерами минимум 2 (1+1) и максимум 68 (34+34).

Создаем таблицу символов в диапазоне В1:В68, присваиваем ей имя «латиница», и заполняем символами латинских заглавных и строчных букв, цифр и спецсимволов. Можно заполнять подряд, можно вперемешку. В нашем примере таблица собрана таким образом: заглавная и строчная латинская буква подряд по алфавиту и через каждые девять символов идет цифра (АаВbСс1DdEeFf2…) и в конце спецсимволы. Сделано это для распределения вероятности попадания заглавных строчных букв и цифр.

Таблицу символов можно периодически менять. Это по сути дела еще один этап шифрования.

С учетом того, что числовой ряд, который мы будем кодировать находиться у нас в диапазоне G12:V12, формула для перевода чисел в символы будет иметь вид:

=ИНДЕКС(латиница;G12;1) для первого числа.

Скопировав ее во все 16 ячеек нашего диапазона, мы получим последовательность ничего не значащих символов, чего собственно говоря, мы и добивались.

Теперь остается их только соединить вместе и поместить в одну ячейку.

Сделать это можно при помощи функции СЦЕПИТЬ.

=СЦЕПИТЬ(G14;H14;I14;J14;K14;L14;M14;N14;O14;P14;Q14;R14;S14;T14;U14;V14).

Поскольку мы решили сделать в нашем примере возможность выбора между 8 и 16 символами, то добавляем соответствующий элемент управления – «Переключатель».

Добавить Переключатель на лист можно через вкладку Разработчик→ группа Элементы управления→ команда Вставить→ Элементы управления формы → Переключатель.

Настраиваем переключатель следующим образом:

Правой кнопкой мыши кликаем на переключателе и в появившемся контекстном меню выбираем пункт Формат объекта. В появившемся диалоговом окне Формат элемента управления на вкладке Элемент управления  в поле Связь с ячейкой устанавливаем связь с ячейкой D12.

Теперь, поскольку у нас всего два переключателя, то когда установлен первый, в ячейке D12 будет значение 1, когда будет установлен второй – значение 2.

Этого достаточно, чтобы использовать логическую функцию ЕСЛИ и в одном случае сцепить 8 символов, а в другом сцепить 16 символов.

С учетом наличия переключателей, наша формула будет иметь вид:

=ЕСЛИ(D12=1;СЦЕПИТЬ(G14;H14;I14;J14;K14;L14;M14;N14);СЦЕПИТЬ(G14;H14;I14;J14;K14;L14;M14;N14;O14;P14;Q14;R14;S14;T14;U14;V14))

Наш чудо-шифратор пароля готов.

Как обычно выполняем некоторые организационные мероприятия для защиты листа и придания ему надлежащего вида. С этой целью, мы устанавливаем защиту ячеек на всем листе, кроме ячеек D12 (там где меняется параметр после установки переключателя). Чтобы ничего не нарушить случайным образом скрываем столбец D. Скрываем все вспомогательные данные на листе, устанавливая формат данных «;;;» и защищаем лист.

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

Скачать

Пароль, шифрование

На чтение 2 мин. Просмотров 14 Опубликовано 23.05.2021

Предположим, у вас есть список слов, и вам нужно зашифровать все буквы в этих словах для некоторых целей, как показано на скриншоте ниже. Попробуйте методы, описанные в этой статье.

Скремблируйте буквы в словах с помощью определяемой пользователем функции
Легко шифруйте буквы в словах с помощью Kutools for Excel

---

Содержание

1. Скремблирование букв в словах с помощью пользовательской функции
2. Легко зашифровывать буквы в словах с помощью Kutools for Excel
3. Статьи по теме:

Скремблирование букв в словах с помощью пользовательской функции

Потрясающе! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!

Сэкономьте 50% своего времени и уменьшите тысячи щелчков мышью каждый день!

---

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

1. Одновременно нажмите клавиши Alt + F11 , чтобы открыть окно Microsoft Visual Basic для приложений ,

2. В окне Microsoft Visual Basic для приложений нажмите Вставить > Модуль , затем скопируйте и вставьте приведенный ниже код VBA в окно Код . См. Снимок экрана:

Код VBA: зашифровывать буквы в словах

3. Затем нажмите клавиши Alt + Q , чтобы закрыть окно Microsoft Visual Basic для приложений .

4. Выберите пустую ячейку для поиска перевернутых букв, затем введите формулу = схватка (A2) в строку формул и нажмите клавишу Enter . Продолжайте выделять ячейку результата и перетащите ее маркер заполнения вниз, чтобы получить все результаты. См. Снимок экрана:

Примечание : ячейка A2 содержит слово, необходимое для шифрования букв. Измените его по своему усмотрению.

---

Легко зашифровывать буквы в словах с помощью Kutools for Excel

Здесь я рекомендую полезную надстройку – Kutools for Excel . С помощью утилиты Обратный порядок текста вы можете легко зашифровать буквы указанных ячеек всего несколькими щелчками мыши.

Перед применением Kutools for Excel , сначала загрузите и установите его .

1. Выделите ячейки, внутри которых вам нужно перемешать буквы, затем нажмите Kutools > Текст > Обратный порядок текста . См. Снимок экрана:

2. В диалоговом окне Обратный текст укажите разделитель, на основе которого вы будете шифровать буквы, в разделе Separator , а затем нажмите ОК кнопка .

Теперь выбранные слова зашифровываются сразу, как показано на скриншоте ниже. .

Если вы хотите получить бесплатную пробную версию (30 -day) этой утилиты, щелкните, чтобы загрузить его , а затем перейдите к применению операции в соответствии с указанными выше шагами.

---

Статьи по теме :

• Как условно форматировать ячейки на основе первой буквы/символа в Excel?
• Как сделать все буквы в ячейке или столбце в Excel заглавными?
• Как отфильтровать значения по первой букве или последнему символу в Excel?

---