Page 37 - 4395

11 switch alternative
12 case 'Crypt'
13 disp('ВИХІДНИЙ ТЕКСТ ЛИСТА')
14 disp(' АНГЛІЙСЬКОГО ДРУГА: ')

15 case 'Signature'
16 disp('ВИХІДНИЙ ТЕКСТ ВІДКРИТОГО ЛИСТА:')
17 otherwise

18 disp('Помилка вибору завдання!')
19 keyboard
20 end
21 disp(plain)

22 L=length(plain); % визначення довжини рядку
23 db_plain=double(plain); % перетворення рядок - код
24 crypt='';

25 for i=1:L,
26 % піднесення до степеню за модулем
27 y=involution(db_plain(i),e,n);

28 str_y=int2str(y); % перетворення цілого в рядок
29 while length(str_y) < 3
30 % додавання нулів попереду

31 str_y=strcat('0',str_y);
32 end
33 % накопичення рядка криптограми
34 crypt=strcat(crypt,str_y);

35 end
36 disp(' ')
37 switch alternative

38 case 'Crypt'
39 disp('ОТРИМАНА КРИПТОГРАМА ЛИСТА:')
40 case 'Signature'
41 disp('ШИФРОГРАМА ДЛЯ ПУБЛІКАЦІЇ:')

42 end
43 disp(crypt)

В.7 Текст програми SCRIPT-файлу DECRYPT

1 %M-file decrypt

2
3 % Виконується дешифрування криптограми

37