Problema con passwordchar

[oscjae]

Hola, me ha pasado algo que nunca me había ocurrido, la aplicación entra con el típico "Usuario" y "Contraseña", en la propiedad "PasswordChar" del edit "Contraseña" tiene un asterisco, y funciona perfecto, pero acabo de instalar la aplicación en un nuevo equipo, y la contraseña se hace visible, es decir, si la contraseña es "1234", en vez de verse "****" se ve "1234", evidentemente creo que tendrá que ver con la configuración que tenga ese windows, pero no se donde puede estar el problema.

No se si a alguien le ha podido pasar esto y he estado buscado por el foro y no he encontrado nada al respecto, a ver si alguien puede decirme algo.

Gracias.

[Casimiro Noteví]

He oído alguna vez que existen programitas para ver las claves que se teclean.
Igual tiene alguno instalado.

[[nlsgarcia]]

oscjae,

Empezado por oscjae

...la aplicación entra con el típico "Usuario" y "Contraseña", en la propiedad "PasswordChar" del edit "Contraseña" tiene un asterisco, y funciona perfecto, pero acabo de instalar la aplicación en un nuevo equipo, y la contraseña se hace visible...

Pregunto:

1- ¿Que versión de Windows y Delphi utiliza aplicación en la máquina de desarrollo?.

2- ¿En que versión de Windows se implemento la aplicación?.

3- ¿Que antivirus tiene instalado la máquina de producción?.

4- ¿Haz probado hacer una aplicación de prueba, para ver el comportamiento de Usuario y Contraseña en la máquina de producción y tratar de aislar el problema?, algo básico como el siguiente código:

Código Delphi [-]
 unit Unit1;
 
 interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls;
 
 type
   TForm1 = class(TForm)
     edtLogin: TEdit;
     edtPassword: TEdit;
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
     procedure FormCreate(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 {$R *.dfm}
 
 procedure TForm1.FormCreate(Sender: TObject);
 begin
    edtPassword.PasswordChar := '*';
 end;
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
    if (edtLogin.Text = 'User') and (edtPassword.Text = '1234') then
       MessageDlg('Acceso Permitido',mtInformation,[mbOK],0)
    else
       MessageDlg('Acceso Negado',mtError,[mbOK],0)
 end;
 
 end.

Espero sea útil

Nelson.

[ecfisa]

Empezado por Casimiro Notevi

He oído alguna vez que existen programitas para ver las claves que se teclean.
Igual tiene alguno instalado.

Así es, y no es una tarea titánica realizarlos, el control Edit no es precisamente un virtuoso de la seguridad .

Un ejemplo trivial sobre un form y usando solamente VCL:

Código Delphi [-]
type
 TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    procedure AppEventsIdle(Sender: TObject; var Done: Boolean);
...

implementation

procedure TForm1.AppEventsIdle(Sender: TObject; var Done: Boolean);
var
  wc : TWinControl;
begin
  wc := FindVCLWindow(Mouse.CursorPos);
  if wc <> nil then
    if wc is TCustomEdit then
     Caption := TCustomEdit(wc).Text;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := 'Edit 1, continua en Edit2';
  Edit2.Text := 'Edit 2, continua en Edit3';
  Edit3.Text := 'Edit 3, fin';
  Edit1.PasswordChar := '*';
  Edit2.PasswordChar := '*';
  Edit3.PasswordChar := '*';
  Application.OnIdle:= AppEventsIdle;
end;
...

Trabajando un poco con Win Api se puede elaborar código que funcione sin problemas sobre otra aplicación.

Saludos

[oscjae]

Gracias por las respuestas, la aplicación se desarrolla en windows7 y delphi 2007, y se ejecuta en windows7.

Si encuentro una explicación lo diré por aquí.

[ecfisa]

Hola oscjae.

Una forma de evitar que programas como ShowPassword muestren tu contraseña es derivar una clase de TEdit, es decir hacer algo como esto:

Código Delphi [-]
unit uPwdEdit;

interface

uses SysUtils, Controls, Messages, StdCtrls;

type
  TEditPwd = class(TEdit)
  private
    FKeyEvent: TKeyPressEvent;
    FRealText: string;
  protected
    procedure KeyPress(var Key: Char); reintroduce; override;
  public
    property RealText: string read FRealText write FRealText;
  end;

implementation

procedure TEditPwd.KeyPress(var Key: Char);
begin
  inherited KeyPress(Key);

  if Key = #8 then
    SetLength(FRealText, Length(FRealText)-1)
  else
  begin
    FRealText:= FRealText + Key;
    Key:= PasswordChar;
  end
end;

end.

Para usarlo:

Código Delphi [-]
implementation

uses uPwdEdit;

var
  PwdEdit: TEditPwd;

procedure TForm1.FormCreate(Sender: TObject);
begin
  PwdEdit:= TEditPwd.Create(Self);
  with PwdEdit do
  begin
    Left        := 10;
    Top         := 40;
    Width       := 150;
    PasswordChar:= '-';
    Parent      := Self;
  end;
  ...
end;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := PwdEdit.RealText;
end;

Saludos