Rubiel
14-06-2003, 07:47:21
Tengo este código, con le cual pido contraseñas, además realiza una codificación de las misma (bueno, solo incremente 5 caracteres a cada dato de acuerdo a su código ASCII). Y esa información me la compara despues a mi tabla de contraseñas. Me pasaron este código, pero no me funciona, alguien me puede dar otra solución???
PW := edPassword.Text;
for i:=0 to Length(edPassword.Text) do
begin
PW[i] := Char(Ord(PW[i])+5);
end;
edPassword.Text := PW;
qryPassword.Close;
qryPassword.SQL.Clear;
qryPassword.SQL.Add('Select Contraseña,Permiso From Contraseñas');
qryPassword.SQL.Add('Where Contraseña Like "%'+edPassword.Text+'%"');
qryPassword.Open;
De antemano, Gracias...:). Ahh y no se para que sea lo que encierra el "edPassword.text", si lo saben tambien comentenme para no estar en duda.. ok??? Chao.
PW := edPassword.Text;
for i:=0 to Length(edPassword.Text) do
begin
PW[i] := Char(Ord(PW[i])+5);
end;
edPassword.Text := PW;
qryPassword.Close;
qryPassword.SQL.Clear;
qryPassword.SQL.Add('Select Contraseña,Permiso From Contraseñas');
qryPassword.SQL.Add('Where Contraseña Like "%'+edPassword.Text+'%"');
qryPassword.Open;
De antemano, Gracias...:). Ahh y no se para que sea lo que encierra el "edPassword.text", si lo saben tambien comentenme para no estar en duda.. ok??? Chao.