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