chaossgenarating.asv

数字图象加密程序（编写的数字图象加密程序）

clear all;
Ximage=double(imread('e:\work\Lena.jpg'));%待隐藏图像

[m,n]=size(Ximage);
key1=4;
key2=0.1;
%     for(i=1:m)
%         for(j=1:n)
%            key2=key1*key2*(1-key2);
%            Kimage1(i,j)=key2;
%         end
%      end
%  
 key3=0.2;
%     for(i=1:m)
%         for(j=1:n)
%            key3=key1*key3*(1-key3);
%            Kimage2(i,j)=key3;
%         end
%      end
 key4=0.3;
%     for(i=1:m)
%         for(j=1:n)
%            key4=key1*key4*(1-key4);
%            Kimage3(i,j)=key4;
%         end
%      end
      Kimage1=logisticmatrix(key1,key2,m,n);
      Kimage2=logisticmatrix(key1,key3,m,n);
      Kimage3=logisticmatrix(key1,key4,m,n);
      t=0.4;
      for(i=1:m)
        for(j=1:n)
           key5=(1-t)*(1-t)*Kimage3(i,j)+2*t*(1-t)*Kimage2(i,j)+t*t*Kimage3(i,j);
           Kimage4(i,j)=key5;
        end
     end
%      figure(1)
%      imshow(Kimage3,[]); figure(2)
%      imhist(Kimage3);
%     figure(3)
%      imhist(Kimage4);
%      figure(5)
%      imshow(Kimage4,[]);
   Kimage44=round(Kimage4*256);
%      for(i=1:m)
i=1;
        Kimage444(i,:)=sort(Kimage44(i,:));
        k=1;
        for(ii=1:m)
             for(jj=1:m)   
                if(Kimage44(i,ii)==Kimage444(i,jj))
                   bd(i,k)=jj;
                   k=k+1;
                end
            end
        end
%      end
%       for(i=1:m)
%         k=1;     
%         for(j=1:n)
%            key2=key1*key2*(1-key2);
%            alpha(i,j)=key2;
%            Ximage(i,j)=round(key2*256);
%         end
%         
%         end
%         
%         for(ii=1:m)
%             for(jj=1:m)   
%                 if(alpha(i,ii)==alpha1(i,jj))
%                    bd(i,k)=jj;
%                    k=k+1;
%                 end
%             end
%        end

%