clc;clear;
A=‘abcdefghijklmnopqrstuvwxyz‘;
B=‘ABCDEFGHIJKLMNOPQRSTUVWXYZ‘;
fprintf（‘==========仿射變換加密系統==========\n‘）;
k1=input（‘請設置密鑰參數k1：‘）;%注：k1應與26互素，k1=1時便是凱撒變換
k2=input（‘請設置密鑰參數k2：‘）;
for?k=1:2
????C=‘‘;
????if?k==1
????????C=input（‘請輸入明文：‘）;%輸入小寫字母，且要加上單引號
????else
????????C=input（‘請輸入明文再試一次：‘）;%輸入小寫字母，且要加上單引號
????end
d=length（C）;
D=zeros（1d）;
Z=‘‘;
for?i=1:d
????for?j=1:26
????????if?A（j）==C（i）
????????????m=j-1;
????????????c=k1*m+k2;
????????????D（i）=rem（c26）;
????????????break;
????????end
????end
end
for?i=1:d
????n=D（i）+1;
????Z（i）=B（n）;
end
fprintf（‘密文：‘）;
Z
end

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????700??2012-05-25?19:31??mk1+k2mod26.m

?????文件????????696??2012-05-25?19:33??仿射變換加密系統.txt

-----------?---------??----------?-----??----

?????????????????1396????????????????????2