djack
1

Шифрование методом Цезаря/простого перемещения/двойного перемещения/простой замены

05.12.2014, 15:31. Показов 2289. Ответов 2
Метки нет (Все метки)

Всем привет, так случилось что мне задали за пару дней сделать программу шифрования и дешифрования инф. На Делфи время ни очень мало, + на Делфт не работал никогда. Может у кого то завалялась простая террора имеет по такой теме?

Шифрование методом цезаря/простого перемещения/двойного перемещения/просто замены

Будут очень благодарен

Добавлено через 16 минут
Очень много ошибок. Эх этот телефон ;(
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2014, 15:31
Ответы с готовыми решениями:

Шифрование/дешифрование файла методом простой замены
Плз очень нужна программа на Delphi (способ перестановки символов при ключе 416732) чтобы вводился...

Шифрование методом сдвига (Шрифт цезаря)
Доброго времени суток)). Ребят нужна срочная помощь, нужно написать программу для...

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

Шифрование текста методом замены букв
Помогите написать код: при нажатии на кнопку в окне memo должны меняться символы, например: из...

2
174 / 160 / 71
Регистрация: 22.02.2013
Сообщений: 1,769
Записей в блоге: 2
05.12.2014, 15:32 2
вот посмотри
0
504 / 457 / 178
Регистрация: 11.12.2013
Сообщений: 2,423
05.12.2014, 15:38 3
Лучший ответ Сообщение было отмечено как решение

Решение

вот функции шифрования и дешифрования методом цезаря
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
const
  n = 3;
 
function CaesarEncipher(toCode: string): string;
var i, T: integer;
begin
  for i := 1 to length(toCode) do begin
  T := (Ord(toCode[ i ]) + n);
  if T >= 256 then dec(T, 256);
  toCode[ i ] := Chr(T);
  end;
  CaesarEncipher := toCode;
end;
 
function CaesarDecipher(toDecode: string): string;
var i, T: integer;
begin
  for i := 1 to length(toDecode) do begin
  T := (Ord(toDecode[ i ]) - n);
  if T < 0 then Inc(T, 256);
  toDecode[ i ] := Chr(T);
  end;
  CaesarDecipher := toDecode;
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.12.2014, 15:38
Помогаю со студенческими работами здесь

Шифрование текста методом табличной замены
Способ шифрования текста состоит в табличной замене каждого символа другим символом. Выбрать ...

Шифрование строки методом циклической замены
Дана строка - предложение на украинском языке и число k (0 &lt; k &lt; 10). Зашифровать строку , выполнив...

Шифрование данных методом простой замены
Всем дорого времени суток, представилась задача зашифровать данные в android приложении(и...

Шифрование методом простой замены в Pascal ABC
Доброго времени суток! Имею такое задание: Дан тест, зашифрованный методом простой замены....


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

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

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