function eks = sctr(kk)
k=[];
temp=[];
post=[];
 k = kk;
 l=size(kk);%mencari ukuran kata kunci
 %melakukan ekstrak huruf yang sama
 for i=1:l(1,2)-1
    if double(k(i))~=32
        for j=i+1 : l(1,2)
            if k(i) == k(j)
                k(j)='@';
            end
        end
    else
        k(i) = '@';
    end
 end
 %menampilkan hasil ekstrak
 j=1;
 for i =1 : l(1,2)
     if k(i)~='@'
         temp(j) = k(i);
         j = j+1;
     end
     l = size(k);
 end
 %fprintf('%s\n',eks);
 %buat pemetaan kunci
 for i = 1 : 26
     map(1,i) = char(96+i);
 end
 l = size(temp);
 %fprintf('%d\n',l);
 
 mapsem = map(1,:);
 x=0;
 for i = 1 : 26
     for j = 1 : l(1,2)
         if mapsem(i) == temp(j)
             mapsem(i)='@';
             x= x+1;
         end
     end
 end
 %fprintf('%s\n',mapsem);
 for i = 1 : 26
     if mapsem(i) ~= '@'
         temp(x+1) = mapsem(i);
         x = x+1;
     end
 end
 
 p = 1;
 for i = 1:l(1,2)
     eks(p) = char(temp(i));
     m =i;
     p = p+1;
     while m < 26
       m = m + l(1,2);
       if m > 26
           break;
       end
       eks(p) = char(temp(m));
       p = p+1;
     end
 end
 %l = size(eks);
 %eks = grup(eks,l);
 
return