[a?b]=size（e1）;
N=a*b;?%the?total?quantity?of?all?pixels
%mm=input（‘input?key:???‘）;?
%disp（‘decrypting...‘）;
m（1）=mm;
for?i=1:N-1?
????m（i+1）=4*m（i）-4*m（i）^2;?%generate?chaos?sequences
end?
m=mod（100000*m99999）;?%mod
m=floor（m）;?%obtain?integer?part
n=1;
for?i=1:a?
????for?j=1:b?
????????e11（ij）=bitxor（m（n）e1（ij））;?%Decrypting
????????e22（ij）=bitxor（m（n）e2（ij））;?%Decrypting
????????n=n+1;?
????end?
end
e11=e11./9999;%restore?key?space
e22=e22./9999;%restore?key?space
e11=e11+e（4097+4096）;%inverse?of?data?unitary?transfer?the?data?to?original?range
e22=e22+e（4097+4097）;
ee=e11+e22.*sqrt（-1）;%combine?the?real?part?and?image?part
ff=frft_conv（ee-mm）;%inverse?FRFT?tranformation
imshow（real（ff）[]）;%顯示解密圖像
disp（‘decrypted?image‘）;?

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????777??2009-11-23?15:42??program\decode.m

?????文件???????1252??2009-11-23?15:38??program\encode.m

?????文件????????692??2009-05-20?04:00??program\frft_conv.m

?????文件????????460??2009-11-23?15:44??program\keyreceive.m

?????文件????????301??2009-11-23?15:45??program\keysend.m

?????文件??????66614??2004-03-23?21:24??program\lena.bmp

?????目錄??????????0??2009-11-23?15:45??program

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

????????????????70096????????????????????7