RSA加密算法的Matlab程序

此文件为RSA算法的加解密，使用Matlab语言

function RSA2=decod（miwen）
miwen=input（‘输入密文：‘）;
 Q=input（‘Q=（p-1）（q-1）=‘）;
 e=input（‘e=‘）;
 n=input（‘n=‘）;
 k=0;
 while mod（k*Q+1e）~=0
     k=k+1;
 end
 d1=（k*Q+1）/e;      %计算e的模逆
 disp（d1）
 l1=length（miwen）;
b=dec2bin（d1）;
l2=length（b）;
for j=1:1:l1
    c=0;
   d=1;
for i=1:1:l2
     c=2*c;
     d=mod（d*dn）;
  if b（i）==‘1‘
     c=c+1;
     d=mod（d*miwen（j）n）;
  end
end          
if miwen（j）>=97&&miwen（j）<=122
minwen（j）=char（mod（d26）+97）;          %密文是小写字母
elseif miwen（j）>=65&&miwen（j）<=90
    minwen（j）=char（mod（d26）+65）;       %密文是大写字母
else  minwen（j）=d;         %密文是数字
end
end
disp（minwen）
 

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        667  2009-05-10 09:50  RSA\decod.m

     文件       1197  2009-05-06 10:07  RSA\encod.m

     文件         39  2009-05-16 19:45  RSA\说明.txt

     目录          0  2009-05-16 19:44  RSA

----------- ---------  ---------- -----  ----

                 1903                    4