Новые пользователи
Активные пользователи
[ Новые сообщения · Участники· Правила форума · Поиск · RSS ]
Страница 1 из 11
Архив - только для чтения
Форум » Программирование на Delphi » Готовые решения » Шифр Атбаш (Atbash crypt) (Пример шифрования подстановкой)
Шифр Атбаш (Atbash crypt)
PWorkДата: Понедельник, 29.01.2018, 19:54 | Сообщение # 1
Группа: Администраторы
Сообщений: 15
Статус: Offline
Шифр Атбаш известен с глубокой древности. Суть его состояла в том, что каждая i - буква подменялась буквой с номером n -i +1, где n - число букв в алфавите:


Код
procedure Atbash(var s:string);
var
  I:Integer;
begin
  for I:=1 to Length(S) do
  S[I]:=Chr(255-Ord(S[I])+1);
end;


Для того, чтобы расшифровать строку, нужно ещё раз вызвать процедуру шифрования:


Код
var
  S:string;
begin
  S:='Ололо';
  Atbash(S); // зашифровали строку
  Atbash(S); // расшифровали строку

Изобретение шифра приписывают ессеям - иудейскими повстанцами-сектантами,  разработавшими также множество других шифров. Поскольку шифр крайне легко взламывается, на практике он не имеет никакого применения.
Форум » Программирование на Delphi » Готовые решения » Шифр Атбаш (Atbash crypt) (Пример шифрования подстановкой)
Страница 1 из 11
Поиск:
X

Внимание!

Ваш браузер уязвим для рекламы. Установите AdBlock Plus! https://adblockPlus.org

uCoz