Buscar

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

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Windows
Adicionada dia: 20/12/03
Por: Jefferson Luis Junglaus
Visualizada: 47063 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009