% Cut the original message to many chunks
% While the length of chunk is specified by the variable "cut_length"

function [out,padd] = mesgcut(m,l)

temp2 = length(m);
temp3 = 1;
padd = 0;
while temp3 ~= 0
    temp2 = length(m);
    temp3 = mod(temp2,l);
    m = [m 0];
    padd = padd+1;
end
padd = padd-1;
    
k = 1;
out = zeros(1,l);
for j = 1:floor(length(m)/l)
    temp = [];
    for z = 1:l
        temp = [temp m(k+z-1)];
    end
    k = k+l;    
    out(j,:) = temp;
end

out = char(out);