clear all
clc
asli=['ABCDE FGHIJKLMNOPQRSTUVWXYZ'];
kata=upper(input('Masukkan Teks :','s'));
putar=input('Kunci :');
ce=[];
m=[];
de=[];
pj=size(kata,2);
x=0;
for i=1:pj;
m=[m kata(i)];
ce=[ce find(asli(:,:)==kata(i))];
de=[ce find(asli(:,:)==kata(i))];
x=mod((ce+putar),27);
s=ce;
st=asli(:,x);
end
awal=s
ciper=x
chipertext=st
plot(x)
grid on