Perl Keylogger

Привет,

Кто здесь известны с языком Perl?
И если да, то можно ли сделать легкий кейлоггер с этим кодом?

Im новичок в мире сценариев, а также на этот форум, так что спасибо за принятие меня!

Спасибо,
Ro-Bot

 

Perl - скриптовый язык => он выполняется через интерпритатор => он не кроссплатформенный, у каждой системы есть свои особенности...

тебе нужно искать winapi keyloger, linux keyloger далее "perl winapi", "linux perl system call"

Code:

our $GetKeyState = new Win32::API('user32', 'GetKeyState', 'I', 'I');
sub IsKeyDown {
    $_ = $GetKeyState->Call($GetKeyCode{uc(shift)});
    return !($_ > -1 and $_ < 5);
}