function?[cm1]=RSA（mn）
%RSA公鑰密碼體制求明文m的密文c并通過解密得明文m1驗(yàn)證
B=15;
[flagpq]=factors_resolve（nB）?;
if?flag==0
????error（‘n不能分解成兩個素?cái)?shù)的乘積‘）;
else
????phi_n=（p-1）*（q-1）;
????
????e=2;%求加密密鑰e
????while?e??????if?gcd（ephi_n）~=1??%求最小公子
??????????e=e+1;
??????else
???