Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.05.2009, 23:43   #1
А. Долматов
Форумчанин
 
Аватар для А. Долматов
 
Регистрация: 15.02.2007
Сообщений: 183
По умолчанию Шифр Бекона

Здравствуйте! Добрый народ программисты, подскажите, где я могу найти информацию по этому злосчастному шифру? В интернете только и говориться о том что при помощи букв кодируется, а сам механизм не описан. Кто сталкивался с шифром разъясните что к чему.
Знать все невозможно, в силу того, что жить бы стало неинтересно.
А. Долматов вне форума Ответить с цитированием
Старый 26.05.2009, 00:09   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
По сути дела, это была стеганографическая бинарная система, поскольку с помощью шрифтов двух видов (названных A и B) в буквы произвольного текста скрытно вносилась дополнительная информация. Как видно из иллюстрации, каждой букве тайного послания (стеганограммы) ставится в соответствие пять букв обычного открытого текста.
Если интересно, то статья с иллюстрациями тут:
http://www.gumer.info/bibliotek_Buks...ce/Kivi/19.php
Вот еще неплохой реферат на эту тему:
http://in1.com.ua/article/26995/

Последний раз редактировалось mihali4; 26.05.2009 в 00:16.
mihali4 вне форума Ответить с цитированием
Старый 27.05.2009, 12:56   #3
А. Долматов
Форумчанин
 
Аватар для А. Долматов
 
Регистрация: 15.02.2007
Сообщений: 183
Радость

спасибо огромное. Теперь буду думать над программой.
Знать все невозможно, в силу того, что жить бы стало неинтересно.
А. Долматов вне форума Ответить с цитированием
Старый 22.04.2012, 04:45   #4
VAVANSTR
Новичок
Джуниор
 
Регистрация: 22.04.2012
Сообщений: 1
По умолчанию

Вот баловался))) (с уважением VAVANSTR)

Код:
program strug_production;
var s_out, s_in, str,itogstroka,tekbukva: string;
fa: text;
ik, len, n: integer;
begin
  assign(fa, 'c:\text.txt');
  reset (fa);
  
  itogstroka:='';
  {раскладываем строчку из файла}
  while not Eof(fa) do begin
    readln (fa, str);
    len:=length(str);
    n:=1;
    While n<len+1 do begin
        tekbukva:= Copy(str, n, 1);
        If (tekbukva='A')or(tekbukva='B')or(tekbukva='C')or(tekbukva='D')or(tekbukva='E')or(tekbukva='F')or(tekbukva='G')or(tekbukva='H')or(tekbukva='I')or
        (tekbukva='J')or(tekbukva='K')or(tekbukva='L')or(tekbukva='M')or(tekbukva='N')or(tekbukva='O')or(tekbukva='P')or(tekbukva='R')or(tekbukva='S')or
        (tekbukva='T')or(tekbukva='U')or(tekbukva='V')or(tekbukva='W')or(tekbukva='X')or(tekbukva='Y')or(tekbukva='Z')or(tekbukva='А')or(tekbukva='Б')or
        (tekbukva='В')or(tekbukva='Г')or(tekbukva='Д')or(tekbukva='Е')or(tekbukva='Ё')or(tekbukva='Ж')or(tekbukva='З')or(tekbukva='И')or(tekbukva='Й')or 
        (tekbukva='К')or(tekbukva='Л')or(tekbukva='М')or(tekbukva='Н')or(tekbukva='О')or(tekbukva='П')or(tekbukva='Р')or(tekbukva='С')or(tekbukva='Т')or(tekbukva='У')or
        (tekbukva='Ф')or(tekbukva='Х')or(tekbukva='Ц')or(tekbukva='Ч')or(tekbukva='Ш')or(tekbukva='Щ')or(tekbukva='Ъ')or(tekbukva='Ы')or(tekbukva='Ь')or(tekbukva='Э')or
        (tekbukva='Ю')or(tekbukva='Я') Then
         Begin
          itogstroka:=itogstroka+'B';         
         end
        Else itogstroka:=itogstroka+'A';
        n:=n+1;
    end;
    writeln(itogstroka);    
  end;
  
  {расшифровка}
  len:=length(itogstroka);
  n:=1;
  While n<len+1 do begin
      tekbukva:= Copy(itogstroka, n, 5);
      If (tekbukva='AAAAA')Then Write('a') Else 
      If (tekbukva='AAAAB')Then Write('b') Else
      If (tekbukva='AAABA')Then Write('c') Else
      If (tekbukva='AAABB')Then Write('d') Else
      If (tekbukva='AABAA')Then Write('e') Else
      If (tekbukva='AABAB')Then Write('f') Else
      If (tekbukva='AABBA')Then Write('g') Else
      If (tekbukva='AABBB')Then Write('h') Else
      If (tekbukva='ABAAA')Then Write('i') Else
      If (tekbukva='BBBAA')Then Write('j') Else
      If (tekbukva='ABAAB')Then Write('k') Else
      If (tekbukva='ABABA')Then Write('l') Else
      If (tekbukva='ABABB')Then Write('m') Else
      If (tekbukva='ABBAA')Then Write('n') Else
      If (tekbukva='ABBAB')Then Write('o') Else
      If (tekbukva='ABBBA')Then Write('p') Else
      If (tekbukva='ABBBB')Then Write('q') Else
      If (tekbukva='BAAAA')Then Write('r') Else
      If (tekbukva='BAAAB')Then Write('s') Else
      If (tekbukva='BAABA')Then Write('t') Else
      If (tekbukva='BAABB')Then Write('u') Else
      If (tekbukva='BBBAB')Then Write('v') Else
      If (tekbukva='BABAA')Then Write('w') Else
      If (tekbukva='BABAB')Then Write('x') Else
      If (tekbukva='BABBA')Then Write('y') Else
      If (tekbukva='BABBB')Then Write('z') Else
      Write('');
      n:=n+5;
  end;
  
  close(fa);
  {readln;}
end.

Последний раз редактировалось artemavd; 22.04.2012 в 10:58.
VAVANSTR вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
че за шифр? Анастасия123456789 Помощь студентам 4 11.05.2009 19:19
Разгадайте шифр П@fнутич:-) Свободное общение 56 12.04.2009 22:28
Шифр Гронсфельда zloygeniyrus Паскаль, Turbo Pascal, PascalABC.NET 0 06.04.2009 16:53
Шифр Гронсфельда zloygeniyrus Помощь студентам 0 06.04.2009 16:45
Шифр Razora Свободное общение 10 26.06.2007 15:52