rs.m

音频文件的RS分析

close all;
clear all;
%读入音频文件
fid=fopen('F:\c\so1.wav','r');
%前44字节为头信息
status=fseek(fid,44,'bof');
a=fread(fid,[4,inf],'uint8');%读入 all of the simples
bufsize=length(a);
%%%%%%%%%%%%%%%%%%%%检测原载体中是否含有秘密信息
p0 =Result(a,bufsize);
fprintf(1,'无秘密信息时，检测嵌入率为%2.2f %% \n',p0*100);
%%%%%%%%%%%%%%%%%%%%%%%%%%
datalen = round(bufsize*0.2);
data = randsrc(1, datalen, [0 1]);
block = [1, 1];
I20 =LSB(block, data, a);
%计算嵌入率
p20 = Result(I20,bufsize);
fprintf(1,'嵌入30%%的秘密信息时，检测嵌入率为%2.2f %% \n',p20*100);
%%%%%%%%%%%%%%%%%%%%%%%%%%
datalen = round(bufsize*0.7);
data = randsrc(1, datalen, [0 1]);
block = [1, 1];
I70 =LSB(block, data, a);
%计算嵌入率
p70 = Result(I70,bufsize);
fprintf(1,'嵌入70%%的秘密信息时，检测嵌入率为%2.2f %% \n',p70*100);
%%%%%%%%%%%%%%%%%%%%%%%%%%
datalen = round(bufsize*0.9);
data = randsrc(1, datalen, [0 1]);
block = [1, 1];
I90 =LSB(block, data, a);
%计算嵌入率
p90 = Result(I90,bufsize);
fprintf(1,'嵌入90%%的秘密信息时，检测嵌入率为%2.2f %% \n',p90*100);