Ver Mensaje Individual
  #1  
Antiguo 08-12-2017
Avatar de The Cid James
The Cid James The Cid James is offline
Miembro
NULL
 
Registrado: jun 2013
Posts: 129
Reputación: 11
The Cid James Va por buen camino
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') //jamas entra aqui
      else
        //ShowMessage('chau');
        Edit1.Text := contraseña2; // use esto para verificar si el hash coincide
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.
Responder Con Cita