Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 04.10.2016
Сообщений: 1
1

Xor шифрование

04.10.2016, 10:59. Просмотров 2276. Ответов 3


Доброго времени суток! Нужно написать программу xor шифрования строки другой строкой. Строка, которая будет шифроваться, вводится с клавиатуры, далее вводится ключ. Допустим строка "Привет Мир" и ключ "басков" должно получиться "басковбаск".
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.10.2016, 10:59
Ответы с готовыми решениями:

xor в Паскаль
Привет. Объясните плз алгоритм этой операции (xor). Пример: x := 10 xor 1 Убеждаемся, что x =...

Функция XOR
Как выполнить функцию XOR для массива?

Используя операции not, and, or, xor
Используя операции not, and, or, xor записать сложные условия , истиные для следующей ситуации: ...

Найти числа, XOR которых равен N
Найти числа, XOR которых равен N

3
Модератор
8403 / 4155 / 2873
Регистрация: 17.08.2012
Сообщений: 13,249
04.10.2016, 19:47 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
procedure codec(var s: string; key: string);
var i, j: integer;
begin
  if length(key) > 0
    then begin
      j := 1;
      for i := 1 to length(s) do
        begin
          s[i] := char(byte(s[i]) xor byte(key[j]));
          inc(j);
          if j > length(key) then j := 1
        end
    end
    else writeln('Ошибка: нулевая длина ключа.')
end;
 
var str, keystr: string;
begin
  writeln('Введите строку:');
  readln(str);
  writeln('Введите ключ:');
  readln(keystr);
  writeln('Закодированная строка:');
  codec(str, keystr);
  writeln(str);
  writeln('Раскодированная строка:');
  codec(str, keystr);
  writeln(str);
  readln
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5698 / 3413 / 2430
Регистрация: 22.11.2013
Сообщений: 9,580
Записей в блоге: 1
04.10.2016, 22:48 3
Cyborg Drone,
это было про использование ключа, длина которого меньше, чем шифруемый текст. Тут действительно все как описано ТС.
0
Модератор
8403 / 4155 / 2873
Регистрация: 17.08.2012
Сообщений: 13,249
04.10.2016, 23:54 4
bormant, ну что тут скажешь, разночтения не в пользу ТС. Ну нигде не написано, что это ключ, преобразованный под длину шифруемой строки. Это мы полагаем, опираясь на наши знания о данном алгоритме шифрования, что это он и есть, а вот из контекста сообщения следует, что это результат работы программы для конкретного набора переменных.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.10.2016, 23:54

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Как работает функция XOR и что она делает?
Как работает функция XOR и что она делает?

Напечатать таблицу истинности бинарных логических операций (and, or, xor)
напечатать таблицу истинности бинарных логических операций and, or, xor. Мысли бегаю как делать, но...

Не работает swap элементов через xor в рекурсии. Почему? (Procedure QuickSort)
type Arr = array of integer; procedure QuickSort(var a: Arr; Lo,Hi: integer); ...

XOR
Есть вот такая простенькая программа. var i,j : integer; begin readln(i); readln(j); ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.