数字水印源代码

dct实现数字水印的源代码 内附说明 matlab实现

function F = embed（FQw）   % w=1:64.*64   F
size4=size（F）;
N1=size4（1）;   %32
N2=size4（2）;   %32
k=1;
for j=1:N1
    for i=1:N2
        if（w（k）==1）
            F{ij}（15:7）=round（F{ij}（15:7）./Q{ij}（15:7））.*Q{ij}（15:7）+Q{ij}（15:7）./2;
            %F{ij}（25:7）=round（F{ij}（25:7）./Q{ij}（25:7））.*Q{ij}（25:7）+Q{ij}（25:7）./2;
        else
            F{ij}（15:7）=round（F{ij}（15:7）./Q{ij}（15:7））.*Q{ij}（15:7）;
            %F{ij}（25:7）=round（F{ij}（25:7）./Q{ij}（25:7））.*Q{ij}（25:7）;
        end
        k=k+1;
        if（w（k）==1）
            F{ij}（35:7）=round（F{ij}（35:7）./Q{ij}（35:7））.*Q{ij}（35:7）+Q{ij}（35:7）./2;
            %F{ij}（44:6）=round（F{ij}（44:6）./Q{ij}（44:6））.*Q{ij}（44:6）+Q{ij}（44:6）./2;
        else
            F{ij}（35:7）=round（F{ij}（35:7）./Q{ij}（35:7））.*Q{ij}（35:7）;
            %F{ij}（44:6）=round（F{ij}（44:6）./Q{ij}（44:6））.*Q{ij}（44:6）;
        end
        k=k+1;
        if（w（k）==1）     
            F{ij}（54）=round（F{ij}（54）./Q{ij}（54））.*Q{ij}（54）+Q{ij}（54）./2;
        else
            F{ij}（54）=round（F{ij}（54）./Q{ij}（54））.*Q{ij}（54）;
        end
        k=k+1;
        if（w（k）==1）
            F{ij}（72）=round（F{ij}（72）./Q{ij}（72））.*Q{ij}（72）+Q{ij}（72）./2;
        else
            F{ij}（72）=round（F{ij}（72）./Q{ij}（72））.*Q{ij}（72）;
        end
        k=k+1;
    end
end

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

     文件       1427  2008-05-03 05:49  数字水印\embed.m

     文件       1539  2008-05-05 00:34  数字水印\experiment1.m

     文件        746  2008-05-05 00:29  数字水印\experiment2.m

     文件        758  2008-05-03 15:47  数字水印\experiment3.m

     文件        686  2008-05-02 04:35  数字水印\intensity.m

     文件      10579  2008-05-05 00:32  数字水印\lena.jpg

     文件      66614  2008-05-05 00:34  数字水印\marked.bmp

     文件     473296  2008-05-05 00:34  数字水印\marked.mat

     文件      66616  2008-05-04 23:46  数字水印\marked1.bmp

     文件      66616  2008-05-04 23:49  数字水印\marked2.bmp

     文件      68112  2008-05-04 23:51  数字水印\marked3.bmp

     文件      67788  2008-05-04 23:54  数字水印\marked4.bmp

     文件        836  2008-05-03 15:52  数字水印\pick_up.m

     文件        297  2008-05-05 00:38  数字水印\read_me.txt

    ..A.SH.     43520  2008-05-07 23:10  数字水印\Thumbs.db

     文件        718  2008-05-03 05:41  数字水印\Torus.m

     文件      12342  2008-05-03 15:14  数字水印\watermark.bmp

     文件        574  2008-05-05 00:34  数字水印\Wpick.bmp

     文件        600  2008-05-05 00:34  数字水印\Wpick.mat

     目录          0  2008-05-07 23:10  数字水印

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

               883664                    20