rsa.m

RSA公钥密码体制的matlab实现

function [c,m1]=RSA(m,n)
%RSA公钥密码体制,求明文m的密文c,并通过解密得明文m1验证
B=5;
[flag,p,q]=factors_resolve(n,B) ;
if flag==0
    error('n不能分解成两个素数的乘积');
else
    phi_n=(p-1)*(q-1);
    
    e=2;%求加密密钥e
    while e<phi_n-1
      if gcd(e,phi_n)~=1  %求最小公子
          e=e+1;
      else
          break;
      end
    end
    
    d=1;%求解密密钥d
    while(1)
        if mod(d*e,phi_n)~=1%求余
            d=d+1;
        else
            break;
        end
    end
    
   c=big_mod(m,e,n);%加密变换
   m1=big_mod(c,d,n);%解密变换
   
end