图像加密的源代码

close all;
% clear all;
prompt={‘The key‘‘The first block key‘‘The second block key‘‘The third block key‘‘The fourth block key‘};
title=‘Encrption Key Setting‘;

def={‘100‘‘100‘‘100‘‘100‘‘100‘};

answer=inputdlg（prompttitle1def）;
if isempty（answer） return; end;

%tic;

key=str2num（answer{1}）;
key1=str2num（answer{2}）;
key2=str2num（answer{3}）;
key3=str2num（answer{4}）;
key4=str2num（answer{5}）;

iptsetpref（‘ImshowBorder‘‘tight‘）;

I=loadimage（‘F:\研究生论文\图像加密\图片\‘）;

figure（‘name‘‘原图像‘）imshow（I）;

if isempty（I）
    return;
end

% 加密
if mode==1
    tic;
        J=encrption（Ikeykey1key2key3key4）;
        disp（[‘Original entropy: ‘ num2str（entropy（I（::1）））]）;
        disp（[‘Encrypted entropy: ‘ num2str（entropy（J（::1）））]）;
        h1=figure（‘Name‘‘Original histogram‘‘Pos‘[50 600 320 280]）;imhist（I（::1））;
        h2=fi