List index out of bounds(6) al desencriptar

[El_Perrito]

Puedes probar con las siguientes funciones, a mi me han funcionado:

Esta es para Encriptar

function TForm1.Cifra(Const Valor:String):String;
var
Indice:Integer;
cadena:String;
begin
for Indice:=1 to Length(Valor) do begin
cadena:=cadena+chr(StrToInt(IntToStr(ord(Valor[Indice])+Constante)));
end;
Result:=cadena;
end;

Esta para Desencriptar

function TForm1.DesCifra(Const Valor:String):String;
var
Indice:Integer;
cadena:String;
begin
for Indice:=1 to Length(Valor) do begin
cadena:=cadena+chr(StrToInt(IntToStr(ord(Valor[Indice])-Constante)));
end;
Result:=cadena;
end;