Как сократить данный код без использования циклов for

clc; clear all; close all; echo off;
key = 'matlab';
text = 'AHOJJAJSEMTVUJSUPERPOMOCNIK';
 
keyNums = double(key);
keySorted = zeros(1, length(key));       % вектор 0 0 0 0 0 0
[c cisla] = sort(keyNums);                    % с - отсортированные по возрастанию значения keyNums, cisla - как изменились позиции
 
for i = 1:length(c)                                       %цикл сравнивает значения keyNums и отсортированной с
   for j = 1:length(c)                                                     % если значения равны, то изменяет значение keySorted на позиции j на 
       if c(i) == keyNums(j) && keySorted(j) == 0                 % текущее значение i
             keySorted(j) = i;
             break;
       end
   end
end
 
k = 1;
l = 1;
 for i = 1:size(text, 2)              % этот цикл создает М типу char из значений text по 6 В конце сообщения я написала 
     M(k, l) = text(i);                % как это выглядит подробней
     l = l + 1;
           if mod(i, 6) == 0
                 k = k+1;
                 l = 1;
           end
 end
 
for i=1:length(keySorted)            % данный цикл создает переменную cipher типу cell со значениями {'HSJPI'}  {'JTPO '}  {'AVEC '} 
    for j = 1:length(keySorted)      %   {'JMUM '}   {'AJURN'}   {'OESOK'}
        if i == keySorted(j)
            cipher{i} = M(:,j)';
        end
    end
end
strjoin(cipher, '')             % обьединяет в одну строку

clear; clc;
 
key = 'matlab';
text = 'AHOJJAJSEMTVUJSUPERPOMOCNIK';
 
keyNums = double(key);
[c, cisla] = sort(keyNums);                    % с - отсортированные по возрастанию значения keyNums, cisla - как изменились позиции
 
mas = 1:numel(keyNums);
[~, ind] = sort(cisla);
keySorted = mas(ind);
 
N = 6;
M = reshape([text repmat(' ', 1, numel(text) - fix(numel(text)/N)*N)], N, [])';
 
cipher = cellfun(@(x) M(:, x)', num2cell(cisla), 'UniformOutput', false); 
 
strjoin(cipher, '')             % обьединяет в одну строку