Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
RIONOMARU
0 / 0 / 0
Регистрация: 08.12.2011
Сообщений: 24
#1

Шифрование/дешифрование, объединить две программы

13.12.2011, 09:28. Просмотров 620. Ответов 1
Метки нет (Все метки)

нужно обьединеть две программы чтобы они работали вместе вот код: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
24
25
program Kriptograf;
 function Shifr ( Kod, K : string ): string;
 var i,t,d : integer;
 begin for i:=1 to length (Kod) do begin
 d:=ord (Kod[i]);
 t:= (ord(Kod[i]) + (ord (K [(pred(i) mod length(K)) + 1]) - ord('0')));
 if t>=256 then dec (T,256);
 Kod[i]:=Chr(t);
 end;
 Shifr := Kod;
 end;
 
 var
 a,k,s:string;
 
 Begin
 
 writeln('vvedite slovo');
 readln(a);
 writeln('vvedite kluch');
 readln(k);
 s:= Shifr(a,k);
 writeln('s= ', Shifr (a, k));
 readln;
 End.
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
program Kriptograf;
 
 function DeShifr (DeKod,K:string):string;
 var i,t:integer;
 begin
 for i:=1 to length(DeKod) do begin
 t:=(Ord(DeKod[i])-(ord(K[(pred(i) mod length(K))+1])-ord('0')));
 
 if t<0 then Inc(t,256);
 DeKod[i]:=Chr(t);
 end;
 DeShifr:=DeKod;
 end;
 
 var
 a,k,s:string;
 
 Begin
 writeln('vvedite zashifrovannui text');
 readln(a);
 writeln('vvedite kluch');
 readln(k);
 s:= DeShifr(a ,k );
 
 writeln('s= ', DeShifr (a,k));
 readln;
 End.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2011, 09:28
Ответы с готовыми решениями:

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

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

Шифрование и дешифрование информации
Ребят, помогите плз срочно с задачами, буду очень благодарен... 1) Напишите программы шифрования...

Шифрование/дешифрование текста циклическим шифром со сдвигом на 5 позиций
Доброго времени суток! Обращаюсь к вам с такой вот задачей,надеюсь на вашу помощь.Заранее Спасибо!...

Шифрование/дешифрование текста циклическим шифром со сдвигом на 10 позиций
Напишите программы шифрования и дешифрования текста циклическим шифром со сдвигом на 10 позиций....

1
SuPeR XaKer
13.12.2011, 14:43     Шифрование/дешифрование, объединить две программы
  #2
 Комментарий модератора 
RIONOMARU, код тегами выделяйте.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.12.2011, 14:43
Привет! Вот еще темы с ответами:

Две программы на for/while
Не могу решить две задачи: 1)В деревне Интернетовка все дома расположены вдоль одной улицы по...

сформировать две программы
сформировать две программы с помощью которых: 1) сформировать текстовый файл из строк ,...

Две программы с массивами
Помогите пожалусто с этими задачами 1. Написать программу, которая в матрице чисел A(N,M)...


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

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

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