[FUG-BR] Revelator

[Fabricio Lima]

No site http://www.rejetto.com/sw/ tem uma ferramenta open source (Delphi6)q funciona igual ao Revelator 1.

Baixei e testei, mas ele nao pegou a senha no win2000sp1. no win98 deve funcionar.

O curioso eh q o codigo eh muito simples.
Um timer que fica atualizando o texto de um editBox conforme a posicao do mouse, executando repetidamente a funcao grab().

procedure grab();
var
  h:integer;
  res:string;
  wi:TWINDOWINFO;
  p:Tpoint;
begin
getCursorPos(p);
h:=WindowFromPoint(p);
wi.cbSize:=sizeof(wi);
if not GetWindowInfo(h, wi) then exit;
if wi.dwStyle and ES_PASSWORD = 0 then exit;
setlength(res, 10000);
setlength(res, GetWindowText(h, @res[1], length(res)));
mainfrm.edit1.text:=res;
end;


[ ]'s
Fabricio Lima - Analista de T.I.
http://ww.fabriciolima.com.br 
_______________________________________________
Freebsd mailing list
Freebsd em fug.com.br
http://mail.fug.com.br/mailman/listinfo/freebsd_fug.com.br