[VB6] - Capturando senhas ocultas

[julala 0]

[VB6] - Capturando senhas ocultas

 

O que eu vou mostrar neste artigo não é novidade , pois o recurso usado é conhecido há tempos dos programadores VB.

 

Como existem muitos que estão começando agora creio que vale a pena mostrar o uso dos recursos das mensagens e funções das API's do Windows.

 

Neste artigo eu mostro como usar a API SendMessage com as mensagens EM_GETPASSWORDCHAR, WM_GETTEXTLENGTH e WM_GETTEXT para obter o valor da senha digitada em uma janela Windows.

 

Vejamos cada uma destas APIs usadas neste artigo:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Vamos começar apresentando a API SendMessage que envia uma mensagem chamando a função do Windows para a janela indicada. O controle não retorna ao programa que a chamou enquanto sua execução não estiver finalizada. Sua declaração é a seguinte:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Esta mensagem identifica o caractere de senha definido usado no controle. Os caracteres substituem cada caractere digitado no controle com o objetivo de esconder a senha informada.

 

Definição de constante :

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

A mensagem WM_GETTEXTLENGTH quando enviada para uma janela descobre o número de caracteres do texto da janela. Não é contado o caractere de fim de linha null.

 

Quando usamos SendMessage para enviar a mensagem WM_GETTEXTLENGTH os parâmetros usados wParam and lParam devem ser definido usando a expressão ByVal CLng(0).

 

Definição de constante :

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Quando enviamos a mensagem

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

para uma janela ela retorna o texto da janela. O texto é copiado para buffer de texto fornecido nos parâmetros da mensagem.

 

Quando usamos SendMessage par enviar uma mensagem WM_GETTEXT , a palavra chave ByVal deve ser usada em frente dos dois parâmetros wParam and lParam.

 

Definição de constante :

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Criando o projeto no Visual Basic

 

Agora vamos mostrar como usar a API e as mensagens para obter a senha digitada em uma caixa de texto de um formulário Windows.

 

Abra o Visual Basic 6 e crie um novo projeto do tipo Standard EXE com nome pegaSenha

 

No menu Project selecione a opção Add Module e aceite o nome padrão. A seguir inclua as declarações para a API SendMessage, e mensagens WM_GETTEXTLENGTH e WM_GETTEXT;

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Agora no formulário padrão form1.frm inclua duas Labels , duas caixas de texto e um botão de comando conforme leiaute abaixo:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

___

Agora no evento Click do botão de comando - Exibir Senha Digitada - inclua o seguinte código:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Execute o projeto, digite uma senha na caixa de texto e clique no botão Exibir Senha digitada o resultado será a senha sendo exposta na caixa de texto conforme figura abaixo:

 

___

 

Embora a aplicação que eu tenha usado como exemplo obtenha o texto diretamente do controle TextBox você pode usar a API GetCursorPos para obter a posição do cursor na tela e em conjunto com as APIs acima criar uma rotina genérica para obter a senha oculta.

 

A declaração da API GetCursorPos pode ser feita da seguinte forma em um módulo:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Como você notou a segurança pode ser apenas aparente, se um programa feito em VB com poucas linhas de código pode revelar a senha digitada imagine o que um keylogger varrendo o seu sistema não pode fazer...

 

Meu objetivo neste artigo foi mostrar que você tem que olhar com mais atenção para o quesito segurança em suas aplicações e não incentivá-lo a descobrir senhas ocultas. Lembrando que o VB é uma ferramenta poderosa quando usada com bom senso e inteligência.

 

Pegue o projeto aqui:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

:DObservem que para quem não entendeu corretamente a um link de download no final do topico que você podera fazer o download e abrir o projeto em seu VB para você observar :D

[Me.Love 0]

Cade os créditos do macoratti ?

[Thow4EveR 0]

Cade o link de download no final do topico?

[dap300 0]

cade os creditos do maccorati porque o macorati que fez essa tecnica

[habbo.binho12345 0]

hsuahsuashasuhauhas era só fazer = text1.text = text2.text uahsuahsuahsaush.

 

brinks""

é mesmo cade o credito do macoratti?

[DarkSj 0]

Vou testar meo :D

¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨

Metas no Web cheats:

 

[X] 5 posts

[X] 10 posts

[]100 posts

[] 500 posts

[]750 posts

[] 1000 posts