clear;clc;
x=imread（‘加密后的lena.bmp‘‘bmp‘）;
[a?b?c]=size（x）;
N=a*b;
m（1）=input（‘請輸入密鑰：???‘）;
disp（‘解密中‘）;
for?i=1:N-1
????m（i+1）=4*m（i）-4*m（i）^2;
end
m=mod（1000*m256）;
m=uint8（m）;
n=1;
for?i=1:a
????for?j=1:b
????????e（ij）=bitxor（m（n）x（ij））;
????????n=n+1;
????end
end
imwrite（e‘解密后的lena.bmp‘‘bmp‘）;
disp（‘解密成功‘）;
winopen（‘解密后的lena.bmp‘）;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????388??2006-06-07?14:53??image?encryption\decrypt1.m

?????文件????????382??2006-06-07?14:58??image?encryption\encrypt1.m

?????文件??????66616??2005-11-09?20:04??image?encryption\lena.bmp

?????目錄??????????0??2009-04-07?15:36??image?encryption

-----------?---------??----------?-----??----

????????????????67386????????????????????4