资源描述：
《信息隐藏实验报告》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、信息隐藏实验报告实验题目【一】实现空域图像水印方法中的LSB算法：原始图像选取大小为512*512的elain图像或者goldhill图像，选择一个LSB水印算法以及适当的水印序列；利用选定的水印嵌入算法将水印信息嵌入到原始图像中。在嵌入水印之后的图像中提取水印，是否可以判定图像中含有水印，同时计算含水印图像的峰值信噪比。将含有水印的图像缩小为256*256之后，再放大为512*512，这时再提取水印，是否可以判定图像中含有水印。实验结果缩略图：实验程序%LSB算法:clear;A=imread('elain.bmp');B=A;message='www`
2、shomework';m=length(message);n=size(A);k=1;fori=1:n(1)forj=1:n(2)ifk<=m%如果消息输入完成则为0h=bitget(double(message(k)),8:-1:1);elseh=[0,0,0,0,0,0,0,0];endc=bitget(A(i,j),8:-1:1);ifmod(j,8)==0p=8;elsep=mod(j,8);endv=0;forq=1:7v=xor(v,c(q));endv=xor(v,h(p));B(i,j)=bitset(A(i,j),1,v);ifmod(j
3、,8)==0k=k+1;endendend%提取信息out=char;tmp=0;t=1;fori=1:n(1)forj=1:n(2)c=bitget(B(i,j),8:-1:1);v=0;forq=1:8v=xor(v,c(q));endifmod(j,8)==0p=1;elsep=9-mod(j,8);endtmp=bitset(tmp,p,v);ifmod(j,8)==0out(t)=char(tmp);t=t+1;tmp=0;endendend%显示图像figure;subplot(1,2,1);image(A);axis('square');ti
4、tle('原始图像');subplot(1,2,2);imshow(B);axis('square');title('加入水印后图像');out实验题目【二】实现基于扩频的图像水印算法：原始图像选取大小为512*512的elain图像或者goldhill图像，水印图像选取为以XXX印或者XX之印(XXX为自己的名字)为图案的、适当大小的二值黑白图像，再选取一个基于扩频的图像水印算法；利用选定的水印嵌入算法将水印信息嵌入到原始图像中。计算含水印图像的的均方差和误码率。利用水印提取算法从含有水印的图像中提取水印信息，并用相关性判断图像中是否含有水印。将含有水印
5、的图像进行窗口中值滤波，这时再提取水印信息，并用相关性判断图像中是否含有水印。实验结果缩略图：实验程序%基于dwt的数字水印程序clear;%装入原图像file_name='elain.bmp';cover_object=double(imread(file_name));I=cover_object;%装入水印图像file_name='www.bmp';message=double(imread(file_name));%二维离散小波变换[CA,CH,CV,CD]=dwt2(I,'db1');C=[CHCVCD];[length,width]=size(
6、CA);[M,N]=size(C);T1=100;a=0.2;%加入水印forj=1:1:Nfori=1:1:Mif(C(i,j)>T1)mark(i,j)=message(i,j);WaterC(i,j)=double(C(i,j))+a*abs(double(C(i,j)))*mark(i,j);elsemark(i,j)=0;WaterC(i,j)=double(C(i,j));end;end;end;%重构图像WaterCH=WaterC(1:length,1:width);WaterCV=WaterC(1:length,width+1:2*wid
7、th);WaterCD=WaterC(1:length,2*width+1:3*width);IW=double(idwt2(CA,WaterCH,WaterCV,WaterCD,'db1'));%显示原始图像figure;subplot(1,4,1);image(I);axis('square');title('原始图像');%显示水印图像subplot(1,4,2);image(message);axis('square');title('水印图像');%显示嵌入水印后的图像subplot(1,4,3);imshow(IW/250);axis('squ
8、are');title('加入水印后的图像');%水印检测newm
