从图片中嵌入和提取信息matlAB代码

嵌入代码：Picture=imread('yang.bmp');%读入载体图像Double_Picture=Picture;Double_Picture=double(Double_Picture);%将图像转换为二进制wen.txt_id=fopen('wen.txt','r');%读取秘密信息文件[msg,len]=fread(wen.txt_id,'ubit1');[m,n]=size(Double_Picture);p=1;%p为秘密信息的位计数器forf2=1:nforf1=1:mDouble_Picture(f1,f2)=Double_Picture(f1,f2)-mod(Double_Picture(f1,f2),2)+msg(p,1);%将秘密信息按位隐藏入连续的像素中ifplenp=p+1;endendifp==lenbreak;endendDouble_Picture=uint8(Double_Picture);imwrite(Double_Picture,'zuihou.bmp');%生成秘密信息subplot(121);imshow(Picture);title('未嵌入信息的图片');subplot(122);imshow(Double_Picture);title('嵌入信息的图片');提取代码：Picture=imread('zuihou.bmp');%读入隐秘信息的图像Picture=double(Picture);[m,n]=size(Picture);frr=fopen('zuihou.txt','a');len=8;%设定隐秘信息长度p=1;forf2=1:nforf1=1:mifbitand(Picture(f1,f2),1)==1%顺序提取图像相应像素LSB的秘密信息fwrite(frr,1,'bit1');result(p,1)=1;elsefwrite(frr,0,'bit1');result(p,1)=0;endifplen%判断秘密信息是否读完p=p+1;endendifp==lenbreak;endendfclose(frr);