Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.81/16: Рейтинг темы: голосов - 16, средняя оценка - 4.81
19 / 19 / 6
Регистрация: 12.04.2011
Сообщений: 35
1

Шифровка и дешифровка

12.04.2011, 22:40. Показов 3276. Ответов 4
Метки нет (Все метки)

Составить программы шифровки и дешифровки текстов с помощью ключевой фразы
Сначала составим программу шифровки текстов. Машина должна запросить ключевую фразу и секретный текст. Затем должна, просматривая секретный текст, ЭВМ должна сообщать код каждой буквы (то есть номер этой буквы в ключевой фразе).
Приведена программа шифровки. Программу дешифровки составьте самостоятельно

Помогите пожалуйста....заранее благодарен!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.04.2011, 22:40
Ответы с готовыми решениями:

Шифровка/дешифровка
Написать программу шифровки/дешифровки методом биграмм! НА сайте не нашёл >> создал тему!

Шифровка\Дешифровка текста. Курсак горит(( SOS
Курсовая работа. 1-й курс. Паскаль. Задание: Нужно сделать 2 проги в одной для...

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

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

4
335 / 124 / 114
Регистрация: 09.04.2011
Сообщений: 244
12.04.2011, 23:04 2
Цитата Сообщение от DanilAREFY Посмотреть сообщение
Приведена программа шифровки.
Ага...Где ?
1
19 / 19 / 6
Регистрация: 12.04.2011
Сообщений: 35
12.04.2011, 23:06  [ТС] 3
Program Primer; {Программа названа Primer}
Uses Crt; {Подключение к модулю Turbo экранной библиотеки}
Var I,J,N: Integer; {Объявление var переменных Integer-числовых}
kl, vvod, vivod,buk: String; {и переменных String - тип символ}

Begin {начало выполнение алгоритма программы}
ClrScr; {техническая процедура ClrScr - чистка экрана}
Kl:='умеюлиянаходитьспомощьюэлектронно-вычислительноймашинызначенияфункций,атакжеобъемымногогранник ов?!zaqxswcdevfrbgtnhymjuk'; {Задана такая ключевая фраза}
Writeln('*** П Р О Г Р А М М А ***');
Writeln('*** ШИФРОВКИ ТЕКСТОВ ***');
{Writeln('?Введите ключ шифровки?');
Read(kl);} {Можете в переменную kl ввести свою ключевую фразу}
TextColor(12+16);
Writeln('Введите секретный текст');
textColor(15);
writeln;Readln(vvod);
writeln;
TextColor(11);
For I:=1 to length(vvod) do {от 1 до последнего символа фразы Vvod}
Begin
Buk:=Copy(Vvod,I,1); {Copy вырезает из переменной Vvod один символ с позиции I}
N:=Pos(buk,kl); {Pos указывает позицию и первое вхождение символа buk в kl}
Write (N,' '); {печатаем N – код символа в переменной buk}
End;
Writeln;
writeln;
textColor(13);
Writeln ('Ш И Ф Р О В К А ЗАКОНЧЕНА, далее дешифровка');
End.
0
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
12.04.2011, 23:43 4
Это не шифрование а не знаю даже и как назвать то...

Добавлено через 1 минуту
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Uses
 Crt;
Var
 i,N: byte;
 kl, vvod,vivod: String;
 a:array[1..255] of byte;
Begin
ClrScr;
Kl:='умеюлиянаходитьспомощьюэлектронно-вычислительноймашинызначенияфункций,атакжеобъемымногогранников?!zaqxswcdevfrbgtn hymjuk';
Writeln('Введите секретный текст');
Readln(vvod);
For i:=1 to length(vvod) do
Begin
 n:=Pos(Vvod[i],kl);
 a[i]:=n;
 Write(n,' ');
End;
Writeln;
vivod:='';
for i:=1 to length(vvod) do
 vivod:=vivod+kl[a[i]];
writeln(vivod);
End.
1
19 / 19 / 6
Регистрация: 12.04.2011
Сообщений: 35
12.04.2011, 23:50  [ТС] 5
Спасибо огромное!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.04.2011, 23:50

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

Шифровка и дешифровка текста
Помогите, пожалуйста, кто может. Буду очень благодарен. Написать программу шифровки и дешифровки...

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

Шифровка и дешифровка текста
Напишите подпрограммы Encode (зашифровать) и Decode (расшифровать), которые получают два параметра...

Найти ошибку (шифровка/дешифровка)
Задание написать шифровку/дешифровку некоторой строки методом сдвига (шифр Цезаря) Спустя 2 часа...


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

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

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