%-------------------------------------------------------------------------%
%---------------------------????置亂變換程序????---------------------------%
%-------------------------------------------------------------------------%
clear?all;
close?all;
clc;
%讀取偽裝圖像
Img_imbed?=?imread（‘watermark.bmp‘）;
subplot（121）
imshow（Img_imbed）
title（‘原始圖像‘）;
Img_imbed=double（Img_imbed）;
[nrowncol]?=?size（Img_imbed）;
I=48;
J=48;
N=ncol;
N1=nrow;
N2=10;
for?time=1:N2
????????for?i=1:nrow
????????????if?i<=I???????????????%這里為行右移
????????????????M=mod（I-i32）;
????????????????for?s=1:N-M
????????????????????c（s）=Img_imbed（is）;
????????????????end
????????????????for?n=N-M+1:N
????????????????????b（n）=Img_imbed（in）;
????????????????end????

????????????????for?j=1:N????????????
?????????????????????if?j<=N-M
?????????????????????????k=M+j;
?????????????????????????Img_imbed（ik）=c（j）;????????????????
?????????????????????else?????????
??????????????????????????t=j-N+M;
??