Понедельник, 12.01.2026, 06:06
Приветствую Вас Гость | RSS
Меню сайта
Категории раздела
Примеры шифрования [8]
Шифрование методом Льюиса, Шифрование методом Атбаш, Шифрование методом Цезаря, Квадрат Полибия, Шифр Вижинера, Шифр Гронсфельда, Шифрование с помощью решетки, Шифр Хилла (с длиной блока = 2),
Наш опрос
Как хорошо вы знаете Паскаль
Всего ответов: 332
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Главная » Статьи » Шифрование текстов на паскале » Примеры шифрования

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

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.

Категория: Примеры шифрования | Добавил: Student (29.07.2009)
Просмотров: 7393 | Комментарии: 1 | Рейтинг: 5.0/2 |
Всего комментариев: 1
1 вика  
0
Трёхсторонняя рабочая группа совместного Центра УВД в сегодня работала в восточной части города. Основные усилия членов мониторинговых групп были сосредоточены в центре, обобщении и анализе данных по вопросу внезапной пропажи Элис

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа
Поиск
Друзья сайта
  • Курсовая работа
  • www.des.h19.ru - портал для вас и Вашего ПК



    Rambler's Top100 WOlist.ru - каталог качественных сайтов Рунета