dsakf

代码说明：

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

文件列表：

dsakf.doc