Problema con passwordchar

[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

[[nlsgarcia]]

oscjae,

Empezado por oscjae

...la aplicación se desarrolla en Windows 7 y Delphi 2007, y se ejecuta en Windows 7...

Pregunto: ¿El antivirus de la máquina de producción, esta activo y no ha detectado ningún malware que pueda estar relacionado con el problema planteado?

Revisa este 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);
    procedure edtPasswordKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   edtPassword.PasswordChar := #0;
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;

procedure TForm1.edtPasswordKeyPress(Sender: TObject; var Key: Char);
begin
   SendMessage(edtPassword.Handle, EM_SETPASSWORDCHAR, Ord('*'), 0);
end;

end.

El código anterior en Delphi 7 sobre Windows 7 x32 y x64, Habilita la protección de password en un TEdit por medio de Windows API.

Nota : Te sugiero probar este código en la máquina de desarrollo y producción y verificar si el comportamiento del error persiste.

Espero sea útil

Nelson.

[ecfisa]

Hola oscjae.

Mas allá del código anterior, estoy totalmente de acuerdo con Nelson.

No es normal que aparezcan visibles las contraseñas en el mismo lugar donde se escriben, los programas que las visualizan, generalmente lo hacen en sus propias ventanas. Algo huele mal en Dinamarca...

Saludos

[oscjae]

Hola ecfisa, al final hice justo lo que has puesto, no creando un componente que herede, pero lo mismo, todavía no he podido probarlo en la máquina que me dio ese problema, y por supuesto, cuando tenga acceso a esa máquina probaré también el código de Nelson, y os comentaré por aquí.
Gracias!!!