%%%%%信息隱藏代碼段%%%%%
format?long
clc;
clear?all;
alfa=0.2;??%選擇嵌入的語音DCT變換系數(shù)門限
tp=fopen（‘dct0.txt‘‘r‘）;??%打開需要隱藏的信息文本
msg=fscanf（tp‘%s‘）;??%得到文本信息
fclose（tp）;
msg=dec2bin（msg）;??%由十進(jìn)制轉(zhuǎn)換成二進(jìn)制字符型
msg=msg‘;
msg=msg（:）-48;??%得到二進(jìn)制型
mlen=length（msg）;??%計算信息（二進(jìn)制）的長度
[carrierfs]=wavread（‘dct0.wav‘）;??%得到載體語音文件信息
clen=length（carrier）;??%計算載體語音的信息長度
carrier=dct（carrier）;??%DCT變換
a=randperm（16）;??%產(chǎn)生16個隨機(jī)整數(shù)
n=0;
for?i=1:len
????n=n+a（rem（i16）+1）;??%選擇要嵌入信息的語音
????carrier（n）=carrier（n）+alfa*msg（i）;??%嵌入信息
end
carri