www.pudn.com > zishiyingjiami.rar > ABCDmain.asv, change:2012-05-30,size:939b


%主程序 
clear all; 
close all; 
clc; 
I=imread('lena128.bmp');[m,n]=size(I);figure(1),imhist(uint8(I)); 
A=I; 
I0(1:m/2,1:n/2)=I(1:m/2,1:n/2);            %左上角 
I1(1:m/2,1:n/2)=I(1:m/2,n/2+1:n);          %右上角 
I2(1:m/2,1:n/2)=I(m/2+1:m,n/2+1:n);        %右下角 
I3(1:m/2,1:n/2)=I(m/2+1:m,1:n/2);          %左下角 
I=AA(I);                        %第一种加密顺序:左上→右上→右下→左下→左上 
I=BB(I);                       %第二种加密顺序:左上→左下→右下→右上→左上 
I=CC(I);                            %第三种加密顺序:左上→右下→右上→左下→左上 
I=DD(I);                           %第四种加密顺序:左上→右上→左下→右下→左上 
% I=imnoise(I,'gaussian',0.1);% 
figure(2),imshow(uint8(I));%title('加密'); 
figure(3),imhist(uint8(I));%title('加密直方图'); 
%解密 
I=DDde(I);  
I=CCde(I); 
I=BBde(I);  
I=AAde(I);                        %第一种加密顺序:左上→右上→右下→左下→左上 
figure(4),imshow(uint8(I));%title('解密');