%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%函數功能：LSB?Matching?嵌入
function?Is=LSBMatchembed（Icratio）
%%%%輸入：
%%Ic:載體圖像;?message:秘密信息;?ratio:嵌入比例
%%%Is:載密圖像
%%%???Implementation?by?Gaoshen?2011
%%%???華東理工大學?信號與信息處理實驗室
%%%%注:請將密文數據文件（如“randdata1.dat“）與該程序放置在同一個文件夾下.???????????????????????????????????????????????????????

[rowcolchannel]=size（Ic）;
if?channel==3
????Ic=rgb2gray（Ic）;
end
Is=Ic;
fid?=?fopen（‘randdata1.dat‘）;
Message?=?fread（fid?round（row*col*ratio）‘ubit1‘）;%%%%讀取秘密信息的0、1序列
fclose（fid）;

pI