List index out of bounds(6) al desencriptar

[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