List index out of bounds(6) al desencriptar

[nefy]

Perdon me falto añadir q C1 y C2 son constantes (C1=52845 y C2=11719).

[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;

[Gydba]

Mirá, recién probé lo siguiente con tus rutinas y me anduvo 10 puntos:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
   PASSWORD = 'CLAVE PARA COLGAR ESTA APP CON UN CóDIGO LARGO';
var
   strEncriptado    : String;
   strDesEncriptado : String;
begin
   strEncriptado := Encryptar(PASSWORD, 6474);
   strDesEncriptado := Desencryptar(strEncriptado, 6474);
   ShowMessage(strEncriptado + #13 +  strDesEncriptado);
end;

Eso quiere decir que el error puede estar en la BD, pero eso entraría en otro foro