Крипто-форум crprogram.16mb.com

Програмування на Object Pascal, Lazarus, криптографія, криптоаналіз, шифри, вихідні коди, вирішення задач, приклади програм

Часовий пояс: UTC десь + 2 години




Розпочати нову тему Відповісти  [ 5 повідомлень ] 
Автор Повідомлення
 Заголовок повідомлення: Шифр Атбаш
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 23
Атбаш - шифр винайдений у Стародавньому Ізраїлі.
Це шифр простої підстановки, який полягає у оберненні порядку літер у алфавіті.

Для українського алфавіту:
а - я
б - ю

і т.д.

Назва походить з назв літер єврейського алфавіту:
Код:
אתבש
=>
«Алеф»-«Тав»
«Бет»-«Шин»


Повернутися наверх
  
 
 Заголовок повідомлення: Re: шифр Атбаш
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 23
Приклад, для українського алфавіту:

відкритий текст:
Цитата:
шифр атбаш абсолютно не стійкий шифр.

шифр текст
Цитата:
ґтжї яиюяґ яюікнбилк лц іиспотп ґтжї.


Повернутися наверх
  
 
 Заголовок повідомлення: Re: шифр Атбаш
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 502
Для інтерфейсу навчальних шифрів, напишемо процедури
шифрування
Код:
procedure CipherZ;
var
i,L:integer;
begin
L:=33;
for i:=1 to ntxt do
begin
if Ptxt[i]=33 then
Ctxt[i]:=33
else
begin
Ctxt[i]:=(32-Ptxt[i]);
form1.memo3.Lines.add(inttostr(i)+') '+inttostr(Ptxt[i])+'['+Caracter(Ptxt[i])+'] => '+inttostr(Ctxt[i])+'['+Caracter(Ctxt[i])+']');
end;
end;

процедура розшифрування такаж як і для шифрування:
Код:
procedure CipherR;
var
i:integer;
begin
for i:=1 to ntxt do
begin
if Ctxt[i]=33 then
Ptxt[i]:=33
else
Ptxt[i]:=(32-Ctxt[i]);
end;
end;

Тобто якщо шифром атбаш зашифрувати відкритий текст двічі - отримаємо відкритий текст:

Цитата:
F(F(Pi) = Ci) = Pi


Повернутися наверх
  
 
 Заголовок повідомлення: Re: шифр Атбаш
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 502
Програма має вигляд:
Зображення


Повернутися наверх
  
 
 Заголовок повідомлення: Re: Шифр Атбаш
СообщениеДодано: 09 гру 2014, 20:48 
Не в мережі

Повідомлень: 282
Для українського алфавіту, приклад
Код:
      
 А    <=>    Я
 Б    <=>    Ю
 В    <=>    Ь
 Г    <=>    Щ
 Ґ    <=>    Ш
 Д    <=>    Ч
 Е    <=>    Ц
 Є    <=>    Х
 Ж    <=>    Ф
 З    <=>    У
 И    <=>    Т
 І    <=>    С
 Ї    <=>    Р
 Й    <=>    П
 К    <=>    О
 Л    <=>    Н
 М    <=>    М
 Н    <=>    Л
 О    <=>    К
 П    <=>    Й
 Р    <=>    Ї
 С    <=>    І
 Т    <=>    И
 У    <=>    З
 Ф    <=>    Ж
 Х    <=>    Є
 Ц    <=>    Е
 Ч    <=>    Д
 Ш    <=>    Ґ
 Щ    <=>    Г
 Ь    <=>    В
 Ю    <=>    Б
 Я    <=>    А


Повернутися наверх
  
 
Показати повідомлення за:  Сортувати по:  
Розпочати нову тему Відповісти  [ 5 повідомлень ] 

Часовий пояс: UTC десь + 2 години



cron
Роwеrеd bу рhрВB® аnd Hostinger web hosting