function [msg,t]=decommsg(input,k)
L=length(input);
r=mod(L,k);
if r==0
    t=L/k;
    msgtemp=reshape(input,k,t);
    msg=msgtemp';
else
   input=[input,zeros(1,k-r)];
    L=length(input);
  t=L/k;
    msgtemp=reshape(input,k,t);
    msg=msgtemp';
end