frft 离散分数傅里叶

这是离散分数傅里叶，传输2D的图像加密解密，还有密钥的加密解密

[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