Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Сортировки https://www.cyberforum.ru/ pascal/ thread33243.html Сортировка массива различными способами { Описание всех алгоритмов можно найти в книге: Кнут Д., Искусство программирования для ЭВМ, Т. 3.: Сортировка и поиск. М.: Мир, 1978. ...	Квадрат Полибия Pascal Шифровальная таблица для латиницы представляет собой прямоугольник с шестью столбцами и пятью строками, которые нумеруются цифрами. В каждую клетку такого квадрата записывается одна буква. В...
Заполнить массив А(n,m) целыми случайными числами Pascal Помогите решить,очень надо.Заполнить массив А(n,m) целыми случайными числами таким образом чтобы и в каждой строке и в каждом столбце каждый следующий элемент был не меньше предыдущего...	Pascal Дана матрица. Упорядочить элементы строк матрицы по возрастанию 1) Дана матрица. Упорядочить элементы строк матрицы по возрастанию, а сами строки по неубыванию произведения четных элементов строк. Использовать сортировку бинарными вставками, реализовав метод в... https://www.cyberforum.ru/ pascal/ thread33215.html
Pascal Необходимо разработать рекурсивный алгоритм. https://www.cyberforum.ru/ pascal/ thread33201.html Разработать рекурсивный алгоритм и программу решения задачи, в которой вычислить : f(n)=(1+n!)/n!. Исходные данные вводятся с клавиатуры. Программа должна быть реализована с использованием...	Pascal Запись По ходу роботы возник такой момент .. в роботе в запись нужно добавить 7 полей с которых 4 типа string и 3 типа integer , Это все я обьявил в type .. потом хочу создать масив записей ... но здесь...
Паскаль.Процедуры.Матрицы. Pascal написать процедуру для ввода и выода элементов двухмерных массивов как целого(integer),так и вещественного(real) Буду благодарен за любую подсказку...лаба горит,без зачета могу остаться...	Pascal Поиск и сортировка Помогите, пожалуйста с задачкой! Необходимо упорядочить массив R(I) по невозрастанию, используя следующий подход: для i=2,3,...,1 каждый элемент r(i) вставлять в нужное место среди упорядоченных... https://www.cyberforum.ru/ pascal/ thread33178.html
Pascal Динамический список, не пойму... https://www.cyberforum.ru/ pascal/ thread33176.html Здравствуйте, есть задание: Сформировать динамический список, элементами которого являются целые числа (в условии дано - это элементы массива). Выполнить задание, не...	Pascal Работа с текстом. Написать программу которая бы считала кол-во слов в блокноте .txt За рание огромное спасибо!!! https://www.cyberforum.ru/ pascal/ thread33173.html

mik-a-el

Администратор

79871 / 48434 / 244

Регистрация: 10.04.2006

Сообщений: 13,126

08.05.2009, 12:32 [ТС]

Шифрование

08.05.2009, 12:32. Просмотров 81877. Ответов 7

Метки (Все метки)

Ответ

Шифрование методом Атбаш

Некоторые фрагменты библейских текстов зашифрованы с помощью шифра, который назывался Атбаш. Правило зашифрования состояло в замене i-й буквы алфавита буквой с номером n - i + 1, где n - число букв в алфавите.

Происхождение слова Атбаш объясняется принципом замены букв. Это слово составлено из букв Алеф, Тав, Бет, Шин, то есть первой и последней, второй и предпоследней букв древнесемитского алфавита.

Функция, шифрующая строку методом Атбаш, имеет вид:

Pascal

function Atbash(toCode: string): string;
var i: integer;
begin
  for i := 1 to length(toCode) do
    toCode[ i ] := Chr(256 - Ord(toCode[ i ]));
  Atbash := toCode;
end;
 
{ Использование: }
var
  s: string;
 
begin
  s := Atbash('Just a test'); { зашифровать }
  writeln(s);
  writeln('s = ', Atbash(s)); { расшифровать }
end.

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

Вернуться к обсуждению:
Шифрование

Следующий ответ

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

08.05.2009, 12:32

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

Шифрование текста
Придумать и описать словесно шифрование текста. Составить программу для ввода текста, как данного...

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

шифрование, дешифрование
Помогите плиз решить вторую задачку по ТИК. Спасибо огромное!

Шифрование перестановкой с ключом
Доброго времени суток. Вопрос следующий. Дано задание зашифровать текстовый файл методом...

Наверх