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

шифрование)

18.05.2010, 08:20. Просмотров 2201. Ответов 5
Метки нет (Все метки)


Программа должна реализовывать шифрования и расшифровки текстовых фалов.
Имя файла содержимое которого нужно зашифровать / расшифровать должен указать пользователь, а также сохраняется результат в файле имя которого задает пользователь.
Предусмотреть вывод обоих файлов на экран.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.05.2010, 08:20
Ответы с готовыми решениями:

Шифрование
Может кто помочь с этими Тремя заданиями? Буду очень благодарен ))...

Шифрование
Шифрование методом Льюиса Эта программа оставит символы, не присутствующие в строке Alpha_Hor...

Шифрование текста
Придумать и описать словесно шифрование текста. Составить программу для ввода текста, как данного...

Xor шифрование
Доброго времени суток! Нужно написать программу xor шифрования строки другой строкой. Строка,...

5
43 / 43 / 16
Регистрация: 16.05.2009
Сообщений: 372
18.05.2010, 08:56 2
-Andriy-, а по какому алгоритму шифровать-то?
1
0 / 0 / 0
Регистрация: 28.04.2010
Сообщений: 26
18.05.2010, 09:03  [ТС] 3
любому!)
0
43 / 43 / 16
Регистрация: 16.05.2009
Сообщений: 372
18.05.2010, 09:14 4
Сейчас времени писать самому нет, поэтому посмотри:
здесь и здесь
Похожие задачи...
1
0 / 0 / 0
Регистрация: 28.04.2010
Сообщений: 26
18.05.2010, 09:22  [ТС] 5
мне файли надо шифровать!)
0
43 / 43 / 16
Регистрация: 16.05.2009
Сообщений: 372
18.05.2010, 09:38 6
Для этого просто введи в пример выше вместо:
Pascal
1
2
3
4
5
6
7
var
  s: string;
begin
  s := CaesarEncipher('just a Caesar');
  writeln(s);
  writeln('s = ', CaesarDecipher(s));
end.
этот код:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  f,f1: file of TEXT;
  s, s1, name: string;
begin
  Write('Vvedite imja shifruemogo faila: ');
  ReadLn(name);
  Assign(f, name);
  Reset(f);
  Write('Vvedite imja faila, kuda budem zapisyvat'' rezul''tat: ');
  ReadLn(name);
  Assign(f1, name);
  Rewrite(f1);
  while not EOF(f) do
  begin
  ReadLn(f,s);
  s1 := CaesarEncipher(s);
  Writeln(f1,s1);
  end;
end.
Для расшифровки поменяй название процедуры!!!
Ну а файлы на экран выведи сам, используя в помощь те операторы, что я написал...
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.05.2010, 09:38

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

шифрование, дешифрование
Помогите плиз решить вторую задачку по ТИК. Спасибо огромное!

Шифрование текста
Привет Извините за название темы, сам не заметил, что написал. Задача На вход программе...

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

Шифрование: постолбцовая транспозиция
Помогите, пожалуйста.


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

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

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