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;??????%計(jì)算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）;??????????%密文是小寫(xiě)字母
elseif?miwen（j）>=65&&miwen（j）<=90
????minwen（j）=char（mod（d26）+65）;???????%密文是大寫(xiě)字母
else??minwen（j）=d;?????????%密文是數(shù)字
end
end
disp（minwen）
?

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----

?????文件????????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\說(shuō)明.txt

?????目錄??????????0??2009-05-16?19:44??RSA

-----------?---------??----------?-----??----

?????????????????1903????????????????????4