List index out of bounds(6) al desencriptar
 

Hola tengo el siguiente problemilla, manejo una tabla de Passwords(Nombre y Contrasenya), la contraseña la encripto al guardarla en la tabla asi:
y para validar una sesion desencripto el password asi:
el problema que surge es q al validar un usuario que no sea el admnistrador me envia la Exeption antes mencionada, esto sin importar si el password es de uno o mas caracteres.

Nota: Ya he vaciado la tabla he insertado nuevos registros una y otra vez y ocurre lo mismo. Uso Delphi 6 y Paradox.

Salu2

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

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;

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

Creo que el problema está fuera de las rutinas, que se ven bastante sanas. Revisá las líneas posteriores a su llamada..

Hasta luego.

;)

Parece ser que quizas sea esa solucion (checar codigo alrededor), ya lo he hecho pero tratare mas haber q pasa.

Salu2.

Pues ya cheque y la excepcion me la genera nada menos q en un locate:
Ahora si que me quede sorprendido con esto, la verdad no veo la razon para q me envie dicho error aun y reintero q los envio con todos los usuarios excepto con "Administrador". Cual sera el bug?.