s.sci

来自「用scilab（和matlab一样」· SCI 代码 · 共 26 行

function u=S(v);
v1=ascii(v);//abs
v2=modulo(v1-64,26);
A=zeros(2,10);
for k=1:length(v2)
    i=modulo(k-1,2)+1;
    j=floor((k-1)/2)+1;
    A(i,j)=v2(k);
end
B=[1 8;0 9];//1 8;0 9
v=modulo(B*A,26);
for k=1:length(v2)
    i=modulo(k-1,2)+1;
    j=floor((k-1)/2)+1;
    u1(k)=v(i,j);
end
u1=u1+64;
for i=1:length(v2)
    if u1(i)<65
       u1(i)=u1(i)+26;
       break;
    end
end
u=char(u1)     
endfunction