％ 文件名：randlsbget.m ％ 程序員:余波 ％ 編寫時間:2007.6.25 ％ 函數功能: 本函數將完成提取隱秘于上的秘密信息 ％ 輸入格式舉例:result=( scover.jpg ,56, secret.txt ,2001) ％ 參數說明: ％ output是信息隱藏后的圖象 ％ len_total是秘密信息的長度 ％ goalfile是提取出的秘密信息文件 ％ key是隨機間隔函數的密鑰 ％ result是提取的信息 function result=randlsbget(output,len_total,goalfile,key) ste_cover=imread(output) ste_cover=double(ste_cover) ％ 判斷嵌入信息量是否過大 [m,n]=size(ste_cover) frr=fopen(goalfile, a ) ％ p作為信息嵌入位計數器將信息序列寫回文本文件 p=1 ％ 調用隨機間隔函數選取像素點 [row,col]=randinterval(ste_cover,len_toal,key) for i=:len_toal if bitand(ste_cover(row(i),col(i)),1)==1 fwrite(frr,1, bit1 ) result(p,1) else fwrite(frr,0, bit1 ) result(p,1)=0 end if p==len_total break end p=p+1 end fclose(frr)
