%一種基于關系和量化的強魯棒性盲水印算法
%水印置亂，嵌入，提取，反置亂
clc;clear?all;
I=imread（‘lena.bmp‘）;%512*512
subplot（231）
imshow（I）;
title（‘原始圖像‘）
[A?B]=size（I）;
J=imread（‘sity-four.bmp‘）;%64*64
subplot（232）
imshow（J）;
title（‘水印圖像‘）
[M?N]=size（J）;
step=18;%量化步長

%%%%%%%%%水印產生并置亂%%%%%%%%%%%%%%%%%%%%%%

order=randperm（M）;
%?save?dct_dwt.mat?order;%%%保留這個作為水印提取密匙1
t=J（order:）;
subplot（233）
imshow（t）;
title（‘置亂后水印圖像‘）
t=reshape（t1M*N）;

%%%%%%%%%%%水印嵌入%%%%%%%%%%%%%%%%%%%%%%%%%

XX=blkproc（I[8?8]‘dct2（x）‘）;%DCT
%取出DCT?DC系數
count=0;
for?i=1:8:A
????for?j=1:8:B
????????count=count+1;
????????d（count）=XX（ij）;%d表示一個8*8圖像塊經DCT變換后的直流系數

????end
end
%取2層小波變換的低頻系數
index=0;
for?i=1:8:A
????for?j=1:8:B
????????index=index+1;
????????xx=I（i:i+7j:j+7）;
????????[cs]=wavedec2（xx

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2013-04-05?22:20??一種基于關系和量化的強魯棒性盲水印算法\
?????文件????????3201??2013-04-01?11:02??一種基于關系和量化的強魯棒性盲水印算法\dct_dwt.m
?????文件????????5074??2013-04-01?14:57??一種基于關系和量化的強魯棒性盲水印算法\dct_dwt_attack.m
?????文件?????????325??2013-03-25?14:34??一種基于關系和量化的強魯棒性盲水印算法\fun_ner.m
?????文件?????????389??2013-03-22?09:14??一種基于關系和量化的強魯棒性盲水印算法\fun_psnr.m
?????文件??????263224??2008-11-30?22:30??一種基于關系和量化的強魯棒性盲水印算法\lena.bmp
?????文件?????????574??2013-03-31?21:17??一種基于關系和量化的強魯棒性盲水印算法\sity-four.bmp
?????文件??????644068??2013-03-31?19:25??一種基于關系和量化的強魯棒性盲水印算法\一種基于關系和量化的強魯棒性盲水印算法.caj
?????文件??????????92??2013-04-01?15:06??一種基于關系和量化的強魯棒性盲水印算法\新建?文本文檔.txt