[FUG-BR] Revelator
Fabricio Lima
listas em fabriciolima.com.br
Ter Maio 3 14:00:13 BRT 2005
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
Mais detalhes sobre a lista de discussão freebsd