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;?????????%密文是數(shù)字
end
end
disp（minwen）
?




function?RSA1=encod（minwen）
minwen=input（‘明文序列：‘）;
m=1;
for?i=300:1:2000
????k=0;
????for?j=2:1:（i-1）
????????if?rem（ij）==0
????????????k=1;
??