clear
RGB=imread('5.png');
s=size(RGB);
r=rand(s(1),s(2),s(3))./200;
RGBD=im2double(RGB);
RGBS=RGBD./r;
RGBE=RGBS.*r;
imshow(RGB);
title('原图','fontsize',26);
figure;
subplot(1,2,1);imshow(RGBS);title('加密图像','fontsize',23);
subplot(1,2,2);imshow(RGBE);title('解密图像','fontsize',23);
本程序摘自《MATLAB仿真及其在光学课程中的应用》一书第六章