jiami.m

基于幻方加密算发的全数字全息图制作与加密与解密

mima=InputDlg('Please in put your key:','请输入您的密码：');
x=length(mima{:});
if x>5  handl=errordlg('您的密码太长，请输入小于6位字符的密码');
else
mima=abs(mima{:});
X=N;Y=M;P=f1;
if mod(X+mima(1),2)==1;
c=ones(mima(1),Y);
X=X+mima(1);B=magic(X);P=cat(1,P,c);P=B*P;
else  kk=mima(1)+1;c=ones(kk,Y);X=X+kk;B=magic(X);P=cat(1,P,c);P=B*P;
end
for i=2:x
    l=mima(i)-mima(i-1);
    if l>0;
        if mod(X+l,2)==1;
            c=ones(l,Y);X=X+l;B=magic(X);P=cat(1,P,c);P=B*P;
        else gg=l+1;c=ones(gg,Y);X=X+gg;B=magic(X);P=cat(1,P,c);P=B*P;
        end
    elseif l<0
        q=abs(l);
        if mod(Y+q,2)==1;Y=Y+q;c=zeros(X,q);B=magic(Y);P=cat(2,P,c);P=P*B;
        else hh=q+1;Y=Y+hh;c=zeros(X,hh);;B=magic(Y);P=cat(2,P,c);P=P*B;
        end
    else 
        if mod(X,2)==1;B=magic(X);P=B*P;
        else X=X+1;c=ones(1,Y);B=magic(X);P=cat(1,P,c);P=B*P;
        end
    end
end   
ff=mat2gray(P);
figure;imshow(ff);
end