Важная информация
Показано с 1 по 5 из 5

Тема: Написать программу для шифра простой замены

  1. #1 Написать программу для шифра простой замены 
    Новичок
    Регистрация
    20.08.2018
    Сообщений
    1
    Сказал(а) спасибо
    0
    Поблагодарили 1 раз в 1 сообщении
    Здравствуйте, уважаемые программисты! Очень прошу помочь вас написать программу для шифровки и дешифрации шифра простой неравнозначной замены. Суть шифра:
    Пример шифра простой неравнозначной замены:

    Рассматривается прямоугольник размером 4 х 7, в который записан систематически перемешанный английский алфавит (расширенный символами "." и знаком раздела "/"), построенный на основе ключевого слова INCITATUS:

    I N С Т А U S
    0 1 86 3 5 94 6
    В D Е F G Н J
    80 83 2 89 91 95 98
    К L М O Р Q R
    81 84 87 4 92 96 7
    V W X Y Z . /
    82 85 88 90 93 97 99


    Нумерация букв алфавита произведена по столбцам (сверху вниз), при этом восемь самых частых букв (A,E,I,N,0,R,S,T) занумерованы числами от 0 до 7, а осталь*ные – двузначными числами от 80 до 99. Такую таблицу легко запомнить.

    При зашифровании открытый текст записывается со знаком пробела между словами. Точка, встретившаяся в тексте, считается отдельным словом. После этого производится замена шифрвеличин на шифробозначения согласно таблице, при этом цифровые данные не изменяются.
    Спасибо за то, что обратили внимание на тему. Заранее выражаю огромную благодарность тем, кто поможет с программой.
    Ответить с цитированием  
     

  2. Пользователь сказал cпасибо:

    Free Admin (21.08.2018)

  3. #2  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,878
    Сказал(а) спасибо
    1,829
    Поблагодарили 957 раз(а) в 816 сообщениях
    Записей в блоге
    1
    Плохое условие. Будь чёткий понятный алгоритм - помог бы.
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  4. #3  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    283
    Сказал(а) спасибо
    160
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    Pascal Code:
    1. const aSimbol: array [1..4, 1..7] of char = ((), (), (),());
    2. const aKey: array [1..4, 1..7] of byte = ( (), (), (), ());
    3. var i, j , n, i1, j1: byte;
    4.        s, S1: string;
    5.        ibool: boolean;
    6. begin
    7.   S1:='';
    8.   writeln('Введите строку');
    9.   readln(s);
    10.   for n:= 1 to s[0] do
    11.      begin
    12.          ibool:=false;
    13.          for i:=1 to 4 do
    14.             for j:= 1 to 7 do
    15.                if  s[n]=aSimbol[i,j] then
    16.                   begin
    17.                       ibool:=true;
    18.                       i1:=i;
    19.                       j1:=j;
    20.                   end;
    21.           if  ibool=true then
    22.              S1:=s1+chr(aKey[i1,j1])
    23.           else
    24.              begin
    25.                s1:=' В строке для шифрования обнаружен не допустимый символ';
    26.                break;
    27.              end;
    28.      end;
    29.      writeln(S1);
    30. end.



    массивы заполнишь сам
    Последний раз редактировалось >Quiet Snow<; 23.08.2018 в 23:01.
    Ответить с цитированием  
     

  5. 2 пользователя(ей) сказали cпасибо:

    >Quiet Snow< (23.08.2018), Free Admin (23.08.2018)

  6. #4  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,878
    Сказал(а) спасибо
    1,829
    Поблагодарили 957 раз(а) в 816 сообщениях
    Записей в блоге
    1
    Цитата Сообщение от nik_1 Посмотреть сообщение
    breake;
    Цитата Сообщение от nik_1 Посмотреть сообщение
    resdln(s);
    Руками перепечатывал?
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  7. Пользователь сказал cпасибо:

    nik_1 (27.08.2018)

  8. #5  
    Профи Аватар для nik_1
    Регистрация
    03.08.2014
    Сообщений
    283
    Сказал(а) спасибо
    160
    Поблагодарили 145 раз(а) в 109 сообщениях
    Записей в блоге
    1
    да. проверь. поправь.
    Ответить с цитированием  
     

  9. Пользователь сказал cпасибо:

    >Quiet Snow< (24.08.2018)

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Ответов: 5
    Последнее сообщение: 29.11.2014, 19:56
  2. Нужно написать программу на vba!
    от Нелли Коробова в разделе Фриланс
    Ответов: 1
    Последнее сообщение: 22.11.2014, 21:09
  3. помогите написать программу
    от Стамус в разделе QBasic
    Ответов: 5
    Последнее сообщение: 18.10.2012, 20:35
  4. Ответов: 3
    Последнее сообщение: 09.01.2011, 01:25
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •