文件名称: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)
% 程序员:余波
% 编写时间: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)
(系统自动生成,下载前可以参看下载内容)
下载文件列表
压缩包 : 11912876dsakf.rar 列表 dsakf.doc