Форум программистов, компьютерный форум, киберфорум
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
Администратор
79867 / 48430 / 244
Регистрация: 10.04.2006
Сообщений: 13,126
08.05.2009, 12:33  [ТС] 0

Шифрование

08.05.2009, 12:33. Просмотров 81868. Ответов 7
Метки (Все метки)

Ответ


Шифрование методом Цезаря

Шифр Цезаря реализует кодирование фразы путем «сдвига» всех букв фразы на определенное число n (в оригинальном шифре Цезаря число n равнялось 3). Если буква кодируемой фразы имеет в алфавите позицию j, то она в "шифровке" будет заменяться буквой, находящейся в алфавите на позиции j + n.

Для кодирования и декодирования текста данным методом используются функции:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
const
  n = 3;
 
function CaesarEncipher(toCode: string): string;
var i, T: integer;
begin
  for i := 1 to length(toCode) do begin
    T := (Ord(toCode[ i ]) + n);
    if T >= 256 then dec(T, 256);
    toCode[ i ] := Chr(T);
  end;
  CaesarEncipher := toCode;
end;
 
function CaesarDecipher(toDecode: string): string;
var i, T: integer;
begin
  for i := 1 to length(toDecode) do begin
    T := (Ord(toDecode[ i ]) - n);
    if T < 0 then Inc(T, 256);
    toDecode[ i ] := Chr(T);
  end;
  CaesarDecipher := toDecode;
end;
 
{ применение: }
var
  s: string;
 
begin
  s := CaesarEncipher('just a Caesar');
  writeln(s);
  writeln('s = ', CaesarDecipher(s));
end.


Вернуться к обсуждению:
Шифрование
20
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.05.2009, 12:33
Готовые ответы и решения:

шифрование)
Программа должна реализовывать шифрования и расшифровки текстовых фалов. Имя файла содержимое...

Шифрование
Может кто помочь с этими Тремя заданиями? Буду очень благодарен ))...

Xor шифрование
Доброго времени суток! Нужно написать программу xor шифрования строки другой строкой. Строка,...

Шифрование текста
Привет Извините за название темы, сам не заметил, что написал. Задача На вход программе...

7
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.