数字水印源码下载!供大家学习使用.

欢迎大家发表意见!


http://blog.bc-cn.net/user18/105123/archives/2007/3332.shtml

以下是部分源码,祝大家学习快乐!

% 由高斯正态分布序列 g1 产生 36×4 的水印信
%号 w0，w0 由(0,1)组成。
clear
randn('state',1106);
g1=randn(36,4);
for i=1:36
for j=1:4
if g1(i,j)>=0
w0(i,j)=1;
else w0(i,j)=0;
end;
end;
end;
figure;
imshow(w0);title('水印');

% 对水印信号 w0 进行(7,4)汉明编码,得到一
%36×7 的分组码 x0。
x0=w0;
for i=1:36
s=8*x0(i,1)+4*x0(i,2)+2*x0(i,3)+x0(i,4);
switch s
case 0
x0(i,5)=0;x0(i,6)=0;x0(i,7)=0;
case 1
x0(i,5)=0;x0(i,6)=1;x0(i,7)=1;
case 2
x0(i,5)=1;x0(i,6)=1;x0(i,7)=0;
case 3
x0(i,5)=1;x0(i,6)=0;x0(i,7)=1;
case 4
x0(i,5)=1;x0(i,6)=1;x0(i,7)=1;
case 5
x0(i,5)=1;x0(i,6)=0;x0(i,7)=0;
case 6
x0(i,5)=0;x0(i,6)=0;x0(i,7)=1;
case 7
x0(i,5)=0;x0(i,6)=1;x0(i,7)=0;
case 8
x0(i,5)=1;x0(i,6)=0;x0(i,7)=1;
case 9
x0(i,5)=1;x0(i,6)=1;x0(i,7)=0;
case 10
x0(i,5)=0;x0(i,6)=1;x0(i,7)=1;
case 11
x0(i,5)=0;x0(i,6)=0;x0(i,7)=0;
case 12
x0(i,5)=0;x0(i,6)=1;x0(i,7)=0;
case 13
x0(i,5)=0;x0(i,6)=0;x0(i,7)=1;
case 14
x0(i,5)=1;x0(i,6)=0;x0(i,7)=0;
case 15
x0(i,5)=1;x0(i,6)=1;x0(i,7)=1;
end;
end;
% 对 x0 进行行向位扩展，得到一个由(-1,1)组成
%的扩展序列 y。cr 为扩展因子。
cr=256;
for i=1:252
if x0(i)==1
y(i,1:cr)=1;
else y(i,1:cr)=-1;
end;
end;
y(253:256,:)=0;
% 以下产生伪随机序列 p。为此先设定密钥(1114)
%并产生高斯正态分布序列g2，再由g2产生由(-1,1)
%组成的伪随机序列 p。
randn('state',1114);
g2=randn(256,256);
for i=1:256
for j=1:256
if g2(i,j)>0
p(i,j)=1;
else p(i,j)=-1;
end;
end;
.......
......
完整源码在上面的我的blog中可以下载.

以后我还会不定期的发表数字水印源码,希望大家支持!

这次的源码是我剽窃他人的思想,只供大家学习.

我会努力写出自己的源码.


我的BLOG:
http://blog.bc-cn.net/user18/105123/index.shtml
数字水印论坛
http://wyy022.uu1001.com/

[此贴子已经被作者于2007-1-24 16:33:35编辑过]