DCT利用图像进行信息隐藏

%%%%%信息隐藏代码段%%%%%
format long
clc;
clear all;
alfa=0.2;  %选择嵌入的语音DCT变换系数门限
tp=fopen（‘dct0.txt‘‘r‘）;  %打开需要隐藏的信息文本
msg=fscanf（tp‘%s‘）;  %得到文本信息
fclose（tp）;
msg=dec2bin（msg）;  %由十进制转换成二进制字符型
msg=msg‘;
msg=msg（:）-48;  %得到二进制型
mlen=length（msg）;  %计算信息（二进制）的长度
[carrierfs]=wavread（‘dct0.wav‘）;  %得到载体语音文件信息
clen=length（carrier）;  %计算载体语音的信息长度
carrier=dct（carrier）;  %DCT变换
a=randperm（16）;  %产生16个随机整数
n=0;
for i=1:len
    n=n+a（rem（i16）+1）;  %选择要嵌入信息的语音
    carrier（n）=carrier（n）+alfa*msg（i）;  %嵌入信息
end
carri