Keylogger - Socorro!

[Guest fabinho]

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.

[azizvc]

eu tenho um pronto que até envia o txt por e-mail....

se quiser eu mando pra você via e-mail c/código fonte

[Corposemalma]

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... 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!!!!

[Guest fabinho]

azizvc eu quero sim mande por favor para gatascheguei@yahoo.com.br

Muito obrigado.

[azizvc]

sou totalmente a favor de investigar as mulheres mesmo, inclusive porque algumas amigas minhas já me pediram ajuda pra saber o que seus namoradinhos fazem na net...

[Corposemalma]

Eu acho que uma coisa naão justifica a outra....

[Guest s3c]

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.

[Guest Guest]

passa para meu email tambem !

pe3600@yahoo.com

[Trakinas]

me passa para mim tambem

mitrakinas@terra.com.br

valeu

ate mais

[s3c]

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.

[bolomaster]

Concordo Plenamente

Abraços

[azizvc]

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

[Arlon]

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

arlon@click21.com.br

[Guest - Marcelo -]

Manda pra mim tb fazendo favor!!

marcelo@edrahp.com

obrigado

[azizvc]

já enviei a todos, quem não recebeu....e-mail-me

[bolomaster]

azizvc, eu tenho uma ideia melhor ao invés de você enviar ... posta ele ná no tópico de Seção de Dicas.. ai não vai ter tanto trabalho ..

Abraços

e FUI

[s3c]

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.

[Arlon]

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.

[Guest Anjo Sicnece]

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

[nightmare]

Envia o codigo do keylogger pra mim tb

hudsoncc@hotmail.com

[armagedon]

manda pra mim tb

lilo_armagedon(arroba)hotmail.com

[luis-pf]

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

[Guest dime]

manda pra mim também dime_ks@hotmail.com

[Churc]

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

[D4n1l0d]

cara

nem adianta

eu liguei

o telefone é invalido!!

eu gravei, confere no link:

http://www.bestsharing.com/files/ms00159518/ligacao.zip.html

[Churc]

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