Page 35 - 4395
P. 35

6     %               key -  цілий степень
                        7     %               n - цілий модуль
                        8     % Вихід:   у -  цілий результат
                        9

                        10    % перетворення KEY у двійковий рядок
                        11    BinStr_key=dec2bin(key);
                        12    k=length(BinStr_key);  % довжина BinStr_key

                        13    % Застосування алгоритму LR_bin_exp
                        14    y=1;
                        15    for j = 1 : k,
                        16          y=mod(y*y,n);

                        17          if BinStr_key(j)=='1'
                        18                y=mod(y*x,n);
                        19          end

                        20    end

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


                        1     %M-file main_RSA
                        2

                        3     % Головний файл системи RSA
                        4
                        5     clear all
                        6     clc

                        7
                        8     % Зробіть вибір між завданнями:
                        9     % - для шифрування-дешифрування привласнити

                        10    %         alternative='Crypt';
                        11    % - для цифрового підпису привласнити
                        12    %         alternative='Signature';
                        13    alternative='Crypt';

                        14    keys
                        15    encrypt
                        16    decrypt


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


                        1     %M-file keys
                        2


                                                              35
   30   31   32   33   34   35   36   37   38   39   40