Comprobar contraseña
Tengo el siguiente codigo, la idea como el soft solo maneja una sola contraseña para la configuracion es solamente comprobar la contraseña para ello hice esto
Código Delphi [-]procedure Tflogin.BloginClick(Sender: TObject);
var
contraseña2: string;
begin
fmodulo.qcontraseña.Active:= true;
if trim(ELcont.Text) = ''
then
ShowMessage('Por favor intruzca la contraseña de administracion')
else
contraseña2 := CalcHash2 (ELcont.Text, haMD5);
fmodulo.qcontraseña.Open;
if contraseña2 = fModulo.qcontraseña['pass']
then
showMessage('hola') else
Edit1.Text := contraseña2; end;
Por mas que el hash sea el mismo siempre me manda el else
__________________
We are told to remember the idea, not the man, because a man can fail. He can be caught, he can be killed and forgotten, but 400 years later, an idea can still change the world.
|