dct域数字水印MATLAB代码及实验报告

在一个图像块中调整两个(或多个) DCT系数的相对大小。将描述一个使用数字图像作为载体的系统。在编码处理中，发送者将载体图像分成8×8的像素块，每一块只精确地编码一个秘密信息位。嵌入过程开始时，首先伪随机地选择一个图像块bi，用它对第i个消息比特进行编码。令Bi=D{bi}为DCT变换后的图像块。

function [countmsgste_cover] = dcthide（imageimagegoalmsgalpha）
frr=fopen（msg‘r‘）;
[msgcount]=fread（frr‘ubit1‘）;
fclose（frr）;
data0= imread（image）;
data0 = double（data0）/255;
% data = data0（::1）;

T = dctmtx（8）;
B = blkproc（data0[8 8]‘P1*x*P2‘TT‘）;
[rowcol]= size（B）;
row = floor（row/8）;
col = floor（col/8）;
m = 1;

for i = 1:row 
    for j = 1:col 
        
          if msg（m1）==0
              if B（（i-1）*8 + 1+4（j-1）*8 + 1+1）>=B（（i-1）*8 + 1+3（j-1）*8 + 1）
                  temp = B（（i-1）*8 + 1+4（j-1）*8 + 1+1）;
                  B（（i-1）*8 + 1+4（j-1）*8 + 1+1） =  B（（i-1）*8 + 1+3（j-1）*8 + 1）;
                  B（（i-1）*8 + 1+3（j-1）*8 + 1） = temp;
              end
          else
              if B（（i-1）*8 + 1+4（j-1）*8 + 1+1）                  temp = B（（i-1）*8 + 1+4（j-1）*8 + 1+1）;
                  B（（i-1）*8 + 1+4（j-1）*8 + 1+1） =  B（（i-1）*8 + 1+3（j-1）*8 + 1）;
                  B（（i-1）*8 + 1+3（j-1）*8 + 1） = temp;
              end
          end
          if B（（i-1）*8 + 1+4（j-1）*8 + 1+1）> B（（i-1）*8 + 1+3（j-1）*8 + 1）
            B（（i-1）*8 + 1+3（j-1）*8 + 1） = B（（i-1）*8 + 1+3（j-1）*8 + 1） - alpha;
          else
            B（（i-1）*8 + 1+4（j-1）*8 + 1+1） = B（（i-1）*8 + 1+4（j-1）*8 + 1+1）- alpha;
          end
          if m == count
             break;
          end
            m = m + 1;
    end
     if m == count
        break;
     end
end
data0 = blkproc（B[8 8]‘P1*x*P2‘T‘T）;
ste_cover = data0;
% ste_cover（::1） = data;
imwrite（ste_coverimagegoal）;
% subplot（221）imshow（f）title（‘原始图像‘）;
% subplot（222）imshow（I）title（‘隐写图像alpha = 0.2‘）;
% M = I - f;
% subplot（223）imshow（mat2gray（M））title（‘图像细节‘）;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2010-01-14 13:39  exp1_7\
     文件         468  2009-12-12 00:26  exp1_7\alphabet.txt
     文件         128  2009-12-13 20:11  exp1_7\alphabet2.txt
     文件          32  2009-12-13 18:51  exp1_7\chinese.txt
     文件          32  2009-12-13 19:55  exp1_7\chinese2.txt
     文件        1745  2009-12-13 19:42  exp1_7\dcthide.m
     文件         741  2009-12-13 19:48  exp1_7\extractdct.m
     文件           2  2009-12-13 18:50  exp1_7\hj.txt
     文件           2  2009-12-13 19:50  exp1_7\hj2.txt
     文件       10433  2009-12-07 18:43  exp1_7\lenna_gray_256_jpg.jpg
     文件       66614  2009-12-13 19:45  exp1_7\lenna_gray_256_jpg_stego1.bmp
     文件       66614  2009-12-13 19:52  exp1_7\lenna_gray_256_jpg_stego2.bmp
     文件       66614  2009-12-13 19:54  exp1_7\lenna_gray_256_jpg_stego3.bmp
     文件       66614  2009-12-13 20:10  exp1_7\lenna_gray_256_jpg_stego4.bmp
     文件          17  2009-12-13 18:50  exp1_7\secret.txt
     文件          17  2009-12-13 19:53  exp1_7\secret2.txt
     文件        8704  2010-01-14 13:39  exp1_7\Thumbs.db
     文件     1347584  2010-01-14 13:39  实验报告2.doc