%Least?Significant?Bit?Substitution
%???????????Watermark?embeding

clear?all;
%?read?in?the?cover?object
file_name=‘lena.bmp‘;
[cover_objectmap]=imread（file_name）;

%?讀入信息圖像
file_name=‘key.bmp‘;
[messagemap1]=imread（file_name）;
message1=message;

%?convert?to?double?for?normalization?then?back?again
message=double（message）;
message=fix（message./2）;
message=uint8（message）;

%?determine?size?of?cover?object
Mc=size（cover_object1）;	%Height
Nc=size（cover_object2）;	%Width

%?determine?size?of?message?object
Mm=size（message1）;	????????%Height
Nm=size（message2）;	????????%Width

%?title?the?message?object?out?to?cover?object?size?to?generate?watermark
for?ii?=?1:Mc
????for?jj?=?1:Nc
????????watermark（iijj）=message（mod（iiMm）+1mod（jjNm）+1）;
????end
end

%?now?we?set?the?lsb?of?cover_object（iijj）?to?the?value?of?watermark（iijj）
watermarked_image=cover_object;
for?ii?=?1:Mc
????for?jj?=?1:Nc
????????watermarked_image（iijj）=bitset（watermarked_image（iijj）1watermark（iijj））;
????end
end

%?write?the?watermarked?image?out?to?a?file
imwrite（watermarked_image‘lsb_watermarked.bmp‘‘bmp‘）;
%計算PSNR
psnrv=psnr（cover_objectwatermarked_imageMcNc）

%?display?watermarked?image
figure（1）
imshow（watermarked_image[]）
title（‘加入水印后的圖像‘）
figure（2）
imshow（cover_object[]）
title（‘原始圖像‘）
for?ii?=?1:Mc
????for?jj?=?1:Nc
????????watermark1（iijj）=message1（mod（iiMm）+1mod（jjNm）+1）;
????end
end
figure（3）
imshow（watermark1[]）
title（‘水印‘）
figure（4）
imshow（message1[]）
title（‘the?message‘）

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件?????678400??2010-06-16?22:46??水印作業(yè)\071006103陳倩倩.doc

?????文件??????14670??2010-06-15?15:09??水印作業(yè)\key.bmp

?????文件?????263224??2000-09-30?11:27??水印作業(yè)\lena.bmp

?????文件???????1611??2010-06-15?16:29??水印作業(yè)\lsb_embed.asv

?????文件???????1584??2010-06-15?16:34??水印作業(yè)\lsb_embed.m

?????文件????????960??2010-06-15?15:02??水印作業(yè)\lsb_recover.asv

?????文件????????632??2010-06-15?16:38??水印作業(yè)\lsb_recover.m

?????文件?????263222??2010-06-15?21:27??水印作業(yè)\lsb_watermarked.bmp

?????文件????????727??2000-09-30?11:27??水印作業(yè)\psnr.m

?????目錄??????????0??2010-06-18?21:38??水印作業(yè)

-----------?---------??----------?-----??----

??????????????1225030????????????????????10