clear?all;?
clc;
start_time=cputime;
%%%%%%%%%%%%?讀取水印圖像?%%%%%%%%?
I=imread（‘mark4.bmp‘）;
I=rgb2gray（I）;
I=double（I）/255;?
I=ceil（I）;
%%%%%%%%%%顯示水印圖像%%%%%%%%%%%%%
figure（1）;
subplot（231）;
imshow（I）title（‘水印圖像‘）
dimI=size（I）;
rm=dimI（1）;cm=dimI（2）;
%%%%%%%%%讀取載體圖像%%%%%%%%%%%%%
a0=imread（‘lena.bmp‘）;
psnr_cover=double（a0）;
%%%%%%%%%顯示載體圖像%%%%%%%%%%%%%
subplot（232）;
imshow（a0[]）;
title（‘載體圖像‘）;
%%%%%%%%%%%%%%%5??以下生成水印信息?%%
cda0=blkproc（a0[88]‘dct2‘）;
mark=I;
alpha=10;
k1=randn（18）;
k2=randn（18）;
[rc]=size（a0）;
%%%%%%%%%%%%%%%%%%%%%?嵌入?%%%%%%%%%%
cda1=cda0;???%?cda1?=?256_256
for?i=1:rm??%?i=1:32
????for?j=1:cm??%?j=1:32
????????x=（i-1）*8;y=（j-1）*8;
????????if?mark（ij）==1
????????k=k1;
????????else
????????k=k2;?
????????end
????cda1（x+1y+8

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----

?????文件??????61952??2010-05-17?13:14??涂matlab運(yùn)行結(jié)果\新建?Microsoft?Word?文檔?（2）.doc

?????文件???????6744??2010-05-17?14:14??涂matlab運(yùn)行結(jié)果\tu\watermark.m

?????文件?????263222??2010-05-24?11:34??涂matlab運(yùn)行結(jié)果\tu\withmark.bmp

?????文件?????263222??2010-05-17?14:10??涂matlab運(yùn)行結(jié)果\tu\whitenoise.bmp

?????文件???????5174??2010-05-24?11:34??涂matlab運(yùn)行結(jié)果\tu\getmark.bmp

?????文件?????263222??2010-05-17?14:12??涂matlab運(yùn)行結(jié)果\tu\gaussian.bmp

?????文件???????6732??2010-05-12?20:32??涂matlab運(yùn)行結(jié)果\tu\watermark.asv

?????文件?????263222??2010-05-06?09:45??涂matlab運(yùn)行結(jié)果\tu\withmark1.bmp

?????文件??????12344??2010-05-06?10:05??涂matlab運(yùn)行結(jié)果\tu\mark1.bmp

?????文件??????12344??2010-05-08?19:48??涂matlab運(yùn)行結(jié)果\tu\mark2.bmp

?????文件????????454??2010-05-09?15:08??涂matlab運(yùn)行結(jié)果\tu\nc.m

?????文件????????549??2010-05-09?15:09??涂matlab運(yùn)行結(jié)果\tu\psnr.m

?????文件???????5176??2010-05-09?09:52??涂matlab運(yùn)行結(jié)果\tu\mark0.bmp

?????文件???????5881??2010-05-11?10:14??涂matlab運(yùn)行結(jié)果\tu\Untitled2.m

?????文件??????12342??2010-05-10?17:19??涂matlab運(yùn)行結(jié)果\tu\mark3.bmp

?????文件?????263222??2006-05-26?20:33??涂matlab運(yùn)行結(jié)果\tu\lena.bmp

?????文件??????30616??2010-05-24?11:33??涂matlab運(yùn)行結(jié)果\tu\temp.jpg

?????文件???????6047??2010-05-11?10:06??涂matlab運(yùn)行結(jié)果\tu\Untitled2.asv

?????文件???????5050??2010-05-13?19:38??涂matlab運(yùn)行結(jié)果\tu\dct.m

?????文件??????12342??2010-05-11?10:34??涂matlab運(yùn)行結(jié)果\tu\mark.bmp

?????文件???????5850??2010-05-11?16:31??涂matlab運(yùn)行結(jié)果\tu\dct.asv

????..A.SH.?????49664??2010-05-26?11:24??涂matlab運(yùn)行結(jié)果\tu\Thumbs.db

?????文件???????2110??2009-05-31?19:40??涂matlab運(yùn)行結(jié)果\tu\xiao\test.bmp

?????文件????????860??2009-06-04?19:28??涂matlab運(yùn)行結(jié)果\tu\xiao\watermark.m

?????文件???????1740??2009-06-04?19:32??涂matlab運(yùn)行結(jié)果\tu\xiao\check.m

?????文件????????681??2009-06-04?15:55??涂matlab運(yùn)行結(jié)果\tu\xiao\extraction.m

?????文件????1049654??2009-05-31?20:20??涂matlab運(yùn)行結(jié)果\tu\xiao\lenna.bmp

?????文件?????140622??2010-05-31?11:06??涂matlab運(yùn)行結(jié)果\tu\xiao\temp.jpg

?????文件???????2858??2010-05-26?09:38??涂matlab運(yùn)行結(jié)果\tu\xiao\gai.m

?????文件????1049654??2010-05-26?09:59??涂matlab運(yùn)行結(jié)果\tu\xiao\gaussian.bmp

............此處省略30個(gè)文件信息