0 / 0 / 2
Регистрация: 04.03.2015
Сообщений: 28
1

Составить программу, реализующую механизм шифрования текста шифром Вижинера

30.03.2015, 13:24. Показов 1175. Ответов 2
Метки нет (Все метки)

Доброго времени суток! Передо мной стоит несколько задач:
1) Составить программу, реализующую механизм шифрования текста шифром Вижинера;
2) -//- шифром Атбаш.

Мне необходимо, чтобы в программах присутствовала динамика. Т.е. чтобы я мог задавать и текст для шифровки, и сам ключ шифровки. Подглядев код программы в одной из закреплённых тем форума, я немного модифицировал код для шифра Вижинера на:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
const
  TViginer: string = 'AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz';
 
function ViginerEncipher(toCode, K: string): string;
var
  i: integer;
  currK: byte;
  s: string;
begin
  s := '';
  for i := 1 to length(toCode) do begin
    currK := pred(pos(K[ (pred(i) mod length(K)) + 1 ], TViginer));
    s := s +
      TViginer[ ((pred(pos(toCode[ i ], TViginer)) + currK) mod length(TViginer)) + 1 ];
  end;
  ViginerEncipher := s;
end;
 
function ViginerDecipher(toDecode, K: string): string;
var
  i, T: integer;
  currK: byte;
  s: string;
begin
  s := '';
  for i := 1 to length(toDecode) do begin
    currK := pred(pos(K[ (pred(i) mod length(K)) + 1 ], TViginer));
    T := pred(pos(toDecode[ i ], TViginer)) - currK;
    if T < 0 then inc(T, length(TViginer));
    s := s + TViginer[T + 1];
  end;
  ViginerDecipher := s;
end;
 
var
  s: string;
  u: string;
 
begin
  writeln('Введите текст, который необходимо зашифровать: ');
  readln(s);
  writeln('Введите ключ шифра: ');
  readln(u);
  s := ViginerEncipher(s, u);
  writeln(s);
  writeln('s = ', ViginerDecipher(s, u));
end.
Вопросы:
1) Вижинер: Как нужно модифицировать программу, чтобы можно было дешифровать текст имея ключ?

2) Атбаш: Почему при приведенный ниже код в результате шифровки выдаёт какую-то ересь (прикреп. файл)? Или так и должно быть?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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.
Заранее спасибо!
Миниатюры
Составить программу, реализующую механизм шифрования текста шифром Вижинера  
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.03.2015, 13:24
Ответы с готовыми решениями:

Составить программу, реализующую функции шифрования и расшифровывания текста по алгоритму шифрования RSA
1. Составить модуль программы вычисления простых чисел и вычислить сто простых чисел. 2. Выбрать...

Организовать процессы шифрования текста шифром Виженера и дешифровки
Организовать процессы шифрования текста шифром Виженера и дешифровки. Шифрование сводится...

Программа для шифрования английского текста шифром ROT13
Доброго времени суток, формучане! Очень нужна ваша помощь, не могу понять, как написать программу...

Создать приложение шифрования и дешифрования текста шифром Цезаря
Сделать приложение шифрования и дешифрования текста. Пользователь вводит фразу, выводится в...

2
0 / 0 / 2
Регистрация: 04.03.2015
Сообщений: 28
30.03.2015, 20:17  [ТС] 2
ап.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32230 / 20869 / 8085
Регистрация: 22.10.2011
Сообщений: 36,105
Записей в блоге: 7
30.03.2015, 21:15 3
Цитата Сообщение от andthenhesilenc Посмотреть сообщение
код в результате шифровки выдаёт какую-то ересь
Так и должно быть. Главное, чтобы при расшифровке получался исходный текст.
Цитата Сообщение от andthenhesilenc Посмотреть сообщение
чтобы можно было дешифровать текст имея ключ
В чем проблема? Сейчас текст, состоящий из символов, присутствующих в алфавите, прекрасно дешифруется:
Введите текст, который необходимо зашифровать:
supercalifragilisticexpialidocious
Введите ключ шифра:
mary
FVHDEDSKVGJZTJDHFUABRYHHNMACBDANHT
s = supercalifragilisticexpialidocious
Что не так?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.03.2015, 21:15
Помогаю со студенческими работами здесь

Организовать процессы шифрования текста шифром Виженера и дешифровки
Я знаю что эта тема обсуждалась, но мне нужно сделать немного подругому &quot;Шифрование сводится к...

Разработать программу, реализующую абстрактный тип данных, через механизм классов
Определить класс треугольник, а также продемонстрировать использование класса. Члены класса:...

Написать программу, реализующую алгоритм шифрования и дешифрования сообщения RSA
Помогите написать программу, реализующую алгоритм шифрования и дешифрования сообщения RSA. Входные...

Найти ключ, длина которого известна и расшифровать криптограмму, которая зашифрована шифром Вижинера (алфавит - русский
Найти ключ, длина которого известна и расшифровать криптограмму, которая зашифрована шифром...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru