Ir para conteúdo
Fórum Script Brasil
  • 0

Keylogger - Socorro!

Guest fabinho

Perguntado por Guest fabinho,

 Share

Pergunta

Guest fabinho

Guest fabinho

Postado
Postado

Moçada, beleza? Seguinte preciso de ajuda para escrever uma função ou algo parecido para capturar todas as teclas digitas no windows e gravar num txt, tipo um keylogger... quem tem namorada sabe do que estou falando, quando você tá no trabalho, não sabe se ela tá em casa nos bate-papos, entendeu?

Agradeço a cooperação.

Link para o comentário
Compartilhar em outros sites

28 respostass a esta questão

Posts Recomendados

  • 0
Corposemalma

Corposemalma

Postado
Postado

vai em:

http://www.delphi.eti.br

Lá tem um programa com Source para capturar as teclas e deve ter tb pra capturar a tela...

Mas que fique bem claro: não sou nem um pouco a favor da sua idéia, Isso é invasão de privacidade meu amigo, e se tu não tem um minimo de confiança na tua namorada cara, pensa bem... sad.gif Esse negocio de espionar é a maior furada... se ela descobre (o que com certeza vai acontecer um dia), você vai passar por mau carater...

Mas isso tb não é problema meu... FuIz!!!!

Link para o comentário
Compartilhar em outros sites
  • 0
Guest s3c

Guest s3c

Postado
Postado

você pode interceptar o teclado do windows através de hook procedure.

Veja a api SetWindowsHookEx, o tipo que você precisa é HC_KEYBOARD.

Ela tem que ser global porque você tem que interceptar o teclado de todo o Windows e não apenas da sua aplicação, então você precisa introduzi-la numa dll.

Eu utilizo as hooks p/ bloquear teclado e mouse.

você só não consegue interceptar a combinação ctrl+alt+del no windows nt.

Link para o comentário
Compartilhar em outros sites
  • 0
s3c

s3c

Postado
Postado

Bom, fornecer código de procedures hook não é tão simples.

Meu conselho é: Vejam o help das apis SetWindowsHookEx, CallNextHookEx e UnhookWindowsHookEx p/ vocês entenderem o que elas fazem.

Daí vocês podem escrever códigos da forma como acharem melhor.

Link para o comentário
Compartilhar em outros sites
  • 0
azizvc

azizvc

Postado
Postado

fazer hooks não é tão facil...precisa conhecer o funcionamento do windows e conhecer bem a programação em Delphi e criação de DLLs....eu fiquei 1 mes estudando isso pra poder fazer meu key logger e mesmo assim não saiu como eu queria...ele não pega letras acentuadas.....hehehe

Link para o comentário
Compartilhar em outros sites
  • 0
Arlon

Arlon

Postado
Postado

aí, pode mandar pra mim também??

arlon@click21.com.br

Link para o comentário
Compartilhar em outros sites
  • 0
s3c

s3c

Postado
Postado

Certa vez me deparei com um problema:

Como mover uma imagem no form através do teclado?

Aqui está um código de hook procedure local que intercepta as 4 setas do teclado.

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure Movimento(var Msg:TMessage); message WM_USER+1;

var

Form1: TForm1;

HC_KEYBOARD_Handle:THandle; // Handle da hook

implementation

{$R *.dfm}

// hook função tipo teclado

function KeyboardProc(nCode:Integer; wParam:WPARAM; lParam:LPARAM):LRESULT; stdcall;

begin

if wParam in [37,38,39,40] then

SendMessage(Form1.Handle, WM_USER+1, wParam, lParam);

Result := CallNextHookEx(HC_KEYBOARD_Handle, nCode, wParam, lParam);

end;

// instala hook procedure local

procedure TForm1.FormCreate(Sender: TObject);

begin

HC_KEYBOARD_Handle := SetWindowsHookEx(WH_KEYBOARD, @KeyboardProc, 0, GetCurrentThreadID);

end;

// libera a hook procedure

procedure TForm1.FormDestroy(Sender: TObject);

begin

UnhookWindowsHookEx(HC_KEYBOARD_Handle);

inherited;

end;

// se a hook interceptou as setas do teclado, manda uma msg p/ cá

procedure TForm1.Movimento(var Msg:TMessage);

begin

Case Msg.wParam of

37 : Image1.Left := Image1.Left-1;

39 : Image1.Left := Image1.Left+1;

38 : Image1.Top := Image1.Top-1;

40 : Image1.Top := Image1.Top+1;

end;

end.

Obs: só funciona dentro da aplicação.

As hooks globais são um pouco mais complicadas.

Link para o comentário
Compartilhar em outros sites
  • 0
Arlon

Arlon

Postado
Postado

s3c, seria legal se você colocasse isso lá no tópico fixo 'Seção de Dicas', aí até quem entrar aki no fórum daki há algum tempo tb vai visualizar isso aí sem ter q fazer busca... falou.

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Anjo Sicnece

Guest Anjo Sicnece

Postado
Postado

Ei cara, eu gostaria que tu me enviasse o código para eu aperfeissoa-lo. Se você não poder mandar então mande pelo menos o link do download para o meu e-mail.

anjo_science@hotmai.com

Link para o comentário
Compartilhar em outros sites
  • 0
luis-pf

luis-pf

Postado
Postado

Olá..

Sou novato aqui..espero que possa me ajudar..preciso muito desse programa que o azizvc criou, que captura teclas do windows e grava num txt e manda por e-mail..por favor manda pra mim o programa e os fontes..manda pro meu e-mail lrobertomenegol@hotmail.com (obs.: l de luis no e-mail)

muito obrigado!

falou

luis-pf

Link para o comentário
Compartilhar em outros sites
  • 0
Churc

Churc

Postado
Postado

acho legal esse esquema, pena que várias pessoas tem

má intenções, e já vão querer fazer programinhas

pra roubar informações bancárias de outras.

Já denunciei vários mas nem os provedores tão ligando

tem mais é que se f*** mesmo vo ainda cria um vírus

que deleta tudo no PC e com o nome desses provedores rsrs

veja um exemplo

http://www.server-uol.com.br

Esse domínio não é do UOL, e é usado para propagar por email

keyloggers que roubam infos bancárias.

O método que o cara usa é Email, ele faz um email igualzinho do

UOL, só que no do UOL o antivírus é pago, e pelo email dele é

gratuito. Ai vai os inocente e baixa, e se fode.

O cara sabe que nem vai dar nada pra ele, veja que ele criou

.COM.BR onde necessita de CPF ou CNPJ na cara dura.

Ai dando um Whois no domínio

domínio: server-uol.com.br

entidade: JOAO JACINTO NEVES ME

documento: 075.134.981/0001-69

responsável: JOAO JACINTO NEVES

endereço: RUA INDEPENDENCIA, SN,

endereço: 83203-540 - PRAIA DE LESTE - PR

telefone: (45) 3265-6598 []

ID entidade: AAS1267

ID admin: AAS1267

ID técnico: AAS1267

ID cobrança: AAS1267

servidor DNS: ns1.hostnet.com.br

status DNS: 29/05/2006 AA

último AA: 29/05/2006

servidor DNS: ns2.hostnet.com.br

status DNS: 29/05/2006 AA

último AA: 29/05/2006

criado: 15/05/2006 #2799754

alterado: 25/05/2006

status: publicado

ID: AAS1267

nome: Antonio Amaral dos Santos

e-mail: java.brazil@gmail.com

criado: 25/04/2006

alterado: 17/05/2006

Já pensei em dar um terror ligando pra ele mas se foda

se nem o UOL se motivou a fazer algo não vai ser eu rsrs

bom foi mal ai sei que nem tem haver com o tópico mas só

pra desabafar rsrs

também não estou acusando ninguém do tópico só estou comentando...

e quem faz esse tipo de coisa parabéns faz mesmo, enche o rabo

de dinheiro porque se depender das autoridades você vai ficar rico...

só que um dia a casa cai :rolleyes:

abraços

Link para o comentário
Compartilhar em outros sites
  • 0
Churc

Churc

Postado
Postado

ahh certo ahuahua

eu nem cheguei a ligar, porque se você visse a falta de vontade

do UOL em fazer algo nossa, pensei então que se foda.

Provavelmente os outros dados devem ser falso também =\

vlw Danilod

abraços

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...