％ 文件名：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)