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

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

13.12.2011, 09:28. Просмотров 615. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Шифрование/дешифрование, объединить две программы (Pascal):

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

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

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

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

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

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

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
Привет! Вот еще темы с ответами:

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

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

нужно составить две программы
1. Составить программу для вычисления высоты треугольника, проведенной из...

Написать две программы по массивам
1. Заменить элементы массива с нечетными номерами на квадраты этих элементов. ...


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

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

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