MATLAB实现DCT的JPEG域Jsteg算法（包附界面和密钥）

MATLAB实现的空域LSB算法，可输入密钥加密文本信息，有较好的交互界面

%函数功能：本函数用于DCT隐藏信息的提取
%输入格式举例:result=extractdctadv（‘DCTcover.jpg‘‘2.txt‘198840）
%参数说明:
%image为已经藏有信息的图像
%msg为提取信息存放的位置
%key为密钥，用来控制随机选块
%count为信息的比特数，由藏人方给出
function result=extractdctadv（imagemsgkeycount）
data0=imread（image）;
data0=double（data0）/255;
%用图像第一层做提取
data=data0（::1）;
%分块做DCT变换
T=dctmtx（8）;
DCTcheck=blkproc（data[8 8]‘P1*x*P2‘TT‘）;
%产生随机的块选择，确定图像
[rowcol]=size（DCTcheck）;
row=floor（row/8）;
col=floor（col/8）;
a=zeros（[row col]）;
[k1k2]=randinterval（acountkey）;
for i=1:count
    k1（1i）=（k1（1i）-1）*8+1;
    k2（1i）=（k2（1i）-1）*8+1;
end
%准备提取并回写信息
frr=fopen（msg‘a‘）;
result=zeros（count1）;
for i=1:count
     if DCTcheck（k1（i）+4k2（i）+1）<=DCTcheck（k1（i）+3k2（i）+2）
          fwrite（frr0‘ubit1‘）;
          result（i1）=0;
     else fwrite（frr1‘ubit1‘）;
          result（i1）=1;
     end
end
 fclose（frr）;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      88885  2017-06-07 00:06  DCT\1.jpg

     文件         16  2017-06-09 18:16  DCT\1.txt

     文件        981  2014-12-13 20:11  DCT\extractdctadv.m

     文件       1944  2014-12-25 11:21  DCT\hidedctadv.m

     文件      47718  2017-06-07 23:10  DCT\jpg.fig

     文件      10885  2017-06-07 23:40  DCT\jpg.m

     文件      66614  2006-01-04 10:35  DCT\new.bmp

     文件        983  2017-06-08 22:10  DCT\randinterval.m

     目录          0  2017-06-07 23:44  DCT

----------- ---------  ---------- -----  ----

               218026                    9