Descobrindo senha oculta (*****)

[+ DarkLord.! 0]

1. Adicione a seguinte variável ao Form:

 

wndhint:thintwindow = nil;

 

2. Adicione o componente:

 

 

Timer

 

 

3. Deixe as propriedades do timer do jeito que estão.

 

4. No evento OnTimer do Timer1, apague begin e end; e deixe assim:

 

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;

 

Simplesmente isso.

 

Agora, deixe o programa em primeiro plano e passe o mouse sobre a senha que está em asterisco no programa ou site que estiver em segundo plano.

 

Aparecerá um hint com a senha revelada.

 

Créditos : Rodolfo Drosdosky Bodenmüller

[Mestre_Vator 0]

Simplesmente isso não,pois você não sabe explicar o que cada parte faz.

E essa centralização no texto é ridícula,só atrapalha.

[SNLM 0]

Num entendi nada =)

 

E fiiz isso e não pareceu senha nehuma !

[lele2 3]

você nao explicou e ponha os codigos em

 

Eu fiz e deu certo mais tem geito mais facil para descobrir senhas.... cara tenta melhorar o seu post ^^

[Chakan 0]

Bom, aqui nao deu certo mas tenta explicar melhor pra melhorar o post como os outros disseram!

 

Lembre-se, nao queremos criticar vc e sim ajuda-lo a fazer posts bons de se aprender.

 

Boa Noite! T+

[Mestre_Vator 0]

O grande problema é que ele não sabe explicar o que "criou".

[Ryokusei 14]

Caros confrades do Delphi/VB, o que o code faz (ou deveria fazer por que eu não li ele todo) é apenas pegar o texto de uma janela e mostrar ao usuário.

Isso não é válido para tudo, apenas para controles de janela que seguem o padrão do Windows.

[SNLM 0]

Caros confrades do Delphi/VB, o que o code faz (ou deveria fazer por que eu não li ele todo) é apenas pegar o texto de uma janela e mostrar ao usuário.

Isso não é válido para tudo, apenas para controles de janela que seguem o padrão do Windows.

 

 

Mais tipo pelo tópico que ele criou dá se intender que ele faz um decifrador de senha =S

 

Mais vlw pra alguma coisa isso deve servir kk'

[Ryokusei 14]

Mais tipo pelo tópico que ele criou dá se intender que ele faz um decifrador de senha =S

 

Mais vlw pra alguma coisa isso deve servir kk'

 

Entenda o code antes de falar besteira como "decifrador de senha".