clear;
clc;
close?all;
x=imread（‘加密后的lena.bmp‘‘bmp‘）;
[a?b?c]=size（x）;
N=a*b;
m（1）=0.3;%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

figureimshow（e）;
title（‘解密圖像‘）;
imwrite（e‘解密后的lena.bmp‘‘bmp‘）;

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

?????文件????????399??2010-11-20?22:06??image?encryption\decrypt1.m

?????文件????????459??2010-11-20?22:04??image?encryption\encrypt1.m

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

?????文件??????66614??2010-11-20?22:05??image?encryption\加密后的lena.bmp

?????文件??????66614??2010-11-20?22:06??image?encryption\解密后的lena.bmp

?????目錄??????????0??2010-11-20?21:53??image?encryption

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

???????????????200702????????????????????6