Page 38 - 4395

4
5 l=length(crypt)/3; % визначення кількості символів
6 % переформування криптограми у зручну матрицю
7 cr=reshape(crypt,3,l);

8 cry=cr';
9 for i=1:l,
10 x=base2dec(cry(i,:),10);

11 y(i)=involution(x,d,n);
12 end
13 disp(' ')
14 switch alternative

15 case 'Crypt'
16 disp('ДЕШИФРУВАННЯ ТАЄМНИМ КЛЮЧЕМ:')
17 case 'Signature'

18 disp('ДЕШИФРУВАННЯ ВІДКРИТИМ КЛЮЧЕМ.')
19 disp(' ПІДТВЕРДЖЕННЯ ПІДПИСУ:')
20 end

21 disp(char(y))

38