Cifrado en Matlab

function r=codifica_vigemere(texto,clave)
    r='';
    k2=1;
    for k=1:length(texto)
        if texto(k)>='A' && texto(k) <= 'Z' %En caso de ser una letra mayuscula...
            desp=clave(mod(k2-1,length(clave))+1)-'A'; %%Habia un +1
            r(k)='A'+mod(texto(k)-'A'+desp, 'Z'-'A'+1);
            k2=k2+1;
        else
            r(k)=texto(k);
        end
    end
end