[laelen]

Hola D&W ..

bueno gracias por la taan pronta respuesta...
con respecto a tu respuesta estoy segura que asi es la manera correcta de hacerlo en php... la vdd no se si me equivoque de sitio pero me gustaria saber como hacerlo con delphi ...

mira el codigo que tengo es el siguiente...

Código Delphi [-]
procedure TfrmAcceso.Validacion;
begin
  with frmPrincipal.myqry do
  begin
    Database:= frmPrincipal.mydb;
    Close;
    SQL.Clear;
    SQL.Text:= 'SELECT Usuario,Password FROM Usuarios WHERE Usuario =:Usuario AND Password = Md5(:Password)';
    ParamByName('Usuario').AsString:= ledtUsuario.Text;
    ParamByName('Password').AsString:= ledtPassword.Text;
    Open;
    if not isempty then
    begin
      usuario:= FieldByName('Usuario').AsString;
      Password:= FieldByName('Password').AsString;
    end
    else
    begin
      usuario:='';
      Password:= '';
    end;
    Close;
  end;
  if (usuario<>'') and (password<>'') then
  begin
//comparacion sencible mayusculas y minusculas
    if compareStr(ledtUsuario.Text,Usuario)<>0 then
    begin
      Application.MessageBox('El usuario y contraseña son invalidos.'+#13+'Intentelo de nuevo', 'Advertencia', + MB_ICONWARNING + MB_OK);
      ledtPassword.SetFocus;
    end
    else
    begin
//comparacion sencible mayusculas y minusculas
      if compareStr(ledtpassword,Password)<>0 then
      begin
        Application.MessageBox('El usuario y contraseña son invalidos.'+#13+'Intentelo de nuevo', 'Advertencia', + MB_ICONWARNING + MB_OK);
        ledtPassword.SetFocus;
      end
      Else
      begin
        activarMenu(true);
        Close;
      end;
    end;
  end
  Else
  begin
    Application.MessageBox('El usuario y contraseña son invalidos.'+#13+'Intentelo de nuevo', 'Advertencia', MB_ICONWARNING + MB_OK );
    ledtUsuario.SetFocus;
  end;
end;

Obviamente, en la parte de comparacion del password con el edit ledpassword me truena ya que este tiene la contraseña desencriptada y el otro encriptada...

gracias