Mostrar los últimos tuis de una cuenta creando un servidor web al que se pueda acceder desde cualquier parte de la red privada con PowerShell

#PowerShell
#Ejecutar PowerShell como administrador

#JSON Twitter
$numero="490274947189993472"
while($numero)
{
$numero
$ur='https://twitter.com/i/profiles/show/Microsoft/timeline?include_available_features=1&include_entities=1&max_id='+$numero
$result=(Invoke-WebRequest -Uri $ur)
$conv=$result.Content
$convi = $conv | ConvertFrom-JSON
#Max id
$numero=$convi.max_id
#More items?
$convi.items_html
}

$routes = @{
    "/" = { return '<html><body>'+$convi.items_html+'</body></html>' }
}

#Importante poner la IP de la red privada
$url = 'http://192.168.1.157:8080/'
$listener = New-Object System.Net.HttpListener
$listener.Prefixes.Add($url)
$listener.Start()

Write-Host "Funcionando $url..."

Start-Process $url

while ($listener.IsListening)
{
    $context = $listener.GetContext()
    $requestUrl = $context.Request.Url
    $con
    $response = $context.Response

    Write-Host ''
    Write-Host "Petición: $requestUrl"

    $localPath = $requestUrl.LocalPath
    $route = $routes.Get_Item($requestUrl.LocalPath)

    if ($route -eq $null)
    {
        $response.StatusCode = 404
    }
    else
    {
        $content = & $route
        $buffer = [System.Text.Encoding]::UTF8.GetBytes($content)
        $response.ContentLength64 = $buffer.Length
        $response.OutputStream.Write($buffer, 0, $buffer.Length)
    }
    
    $response.Close()

    $responseStatus = $response.StatusCode
    Write-Host "Respuesta: $responseStatus"
}

#PowerShell

#Ejecutar PowerShell como administrador

#JSON Twitter

$numero="490274947189993472"

while($numero)

{

$numero

$ur='https://twitter.com/i/profiles/show/Microsoft/timeline?include_available_features=1&include_entities=1&max_id='+$numero

$result=(Invoke-WebRequest -Uri $ur)

$conv=$result.Content

$convi = $conv | ConvertFrom-JSON

#Max id

$numero=$convi.max_id

#More items?

$convi.items_html

}

$routes = @{

"/" = { return '<html><body>'+$convi.items_html+'</body></html>' }

}

#Importante poner la IP de la red privada

$url = 'http://192.168.1.157:8080/'

$listener = New-Object System.Net.HttpListener

$listener.Prefixes.Add($url)

$listener.Start()

Write-Host "Funcionando $url..."

Start-Process $url

while ($listener.IsListening)

{

$context = $listener.GetContext()

$requestUrl = $context.Request.Url

$con

$response = $context.Response

Write-Host ''

Write-Host "Petición: $requestUrl"

$localPath = $requestUrl.LocalPath

$route = $routes.Get_Item($requestUrl.LocalPath)

if ($route -eq $null)

{

$response.StatusCode = 404

}

else

{

$content = & $route

$buffer = [System.Text.Encoding]::UTF8.GetBytes($content)

$response.ContentLength64 = $buffer.Length

$response.OutputStream.Write($buffer, 0, $buffer.Length)

}

$response.Close()

$responseStatus = $response.StatusCode

Write-Host "Respuesta: $responseStatus"

}

Servidor en funcionamiento Petición al servidor web

Enviar un fichero BMP (dimensiones 1×1) entre un cliente y un servidor

Cliente

function send-msg($file)
{
$client = New-Object System.Net.Sockets.TcpClient "192.168.1.56", 8982
$stream = $client.GetStream()
$writer = New-Object System.IO.StreamWriter $stream

$bytes = [System.IO.File]::ReadAllBytes($file)
$writer.Write($bytes,0,$bytes.length)
$writer.Dispose()
$stream.Dispose()
$client.Dispose()
}

send-msg .\blanco.bmp

function send-msg($file)

{

$client = New-Object System.Net.Sockets.TcpClient "192.168.1.56", 8982

$stream = $client.GetStream()

$writer = New-Object System.IO.StreamWriter $stream

$bytes = [System.IO.File]::ReadAllBytes($file)

$writer.Write($bytes,0,$bytes.length)

$writer.Dispose()

$stream.Dispose()

$client.Dispose()

}

send-msg .\blanco.bmp

Servidor

$endpoint = new-object System.Net.IPEndPoint ([system.net.ipaddress]::any, 8982)
$listener = new-object System.Net.Sockets.TcpListener $endpoint
$listener.start()

$client = $listener.AcceptTcpClient()
$stream = $client.GetStream();

$reader = New-Object System.IO.StreamReader $stream

$lines=$reader.ReadToEnd()

$enc = [system.Text.Encoding]::Default
$filebytes = $enc.GetBytes($lines)

$contador=$contador+1
[System.IO.File]::WriteAllBytes("recibido.bmp", $filebytes)

$reader.Dispose()
$stream.Dispose()
$client.Dispose()

$endpoint = new-object System.Net.IPEndPoint ([system.net.ipaddress]::any, 8982)

$listener = new-object System.Net.Sockets.TcpListener $endpoint

$listener.start()

$client = $listener.AcceptTcpClient()

$stream = $client.GetStream();

$reader = New-Object System.IO.StreamReader $stream

$lines=$reader.ReadToEnd()

$enc = [system.Text.Encoding]::Default

$filebytes = $enc.GetBytes($lines)

$contador=$contador+1

[System.IO.File]::WriteAllBytes("recibido.bmp", $filebytes)

$reader.Dispose()

$stream.Dispose()

$client.Dispose()

Mostrar los precios de la sesión del IBEX 35 creando un servidor web al que se pueda acceder desde cualquier parte de la red privada con PowerShell

#PowerShell
#Ejecutar PowerShell como administrador

$web=Invoke-WebRequest 'http://www.bolsamadrid.es/esp/aspx/Mercados/Precios.aspx?indice=ESI100000000'

$routes = @{
    "/" = { return '<html><body>'+($web.AllElements | Where Class -eq “TblPort” | %{$_.outerHTML})+'</body></html>' }
}

#Importante poner la IP de la red privada
$url = 'http://192.168.1.157:8080/'
$listener = New-Object System.Net.HttpListener
$listener.Prefixes.Add($url)
$listener.Start()

Write-Host "Funcionando $url..."

Start-Process chrome $url

while ($listener.IsListening)
{
    $context = $listener.GetContext()
    $requestUrl = $context.Request.Url
    $con
    $response = $context.Response

    Write-Host ''
    Write-Host "Petición: $requestUrl"

    $localPath = $requestUrl.LocalPath
    $route = $routes.Get_Item($requestUrl.LocalPath)

    if ($route -eq $null)
    {
        $response.StatusCode = 404
    }
    else
    {
        $content = & $route
        $buffer = [System.Text.Encoding]::UTF8.GetBytes($content)
        $response.ContentLength64 = $buffer.Length
        $response.OutputStream.Write($buffer, 0, $buffer.Length)
    }
    
    $response.Close()

    $responseStatus = $response.StatusCode
    Write-Host "Respuesta: $responseStatus"
}

#PowerShell

#Ejecutar PowerShell como administrador

$web=Invoke-WebRequest 'http://www.bolsamadrid.es/esp/aspx/Mercados/Precios.aspx?indice=ESI100000000'

$routes = @{

"/" = { return '<html><body>'+($web.AllElements | Where Class -eq “TblPort” | %{$_.outerHTML})+'</body></html>' }

}

#Importante poner la IP de la red privada

$url = 'http://192.168.1.157:8080/'

$listener = New-Object System.Net.HttpListener

$listener.Prefixes.Add($url)

$listener.Start()

Write-Host "Funcionando $url..."

Start-Process chrome $url

while ($listener.IsListening)

{

$context = $listener.GetContext()

$requestUrl = $context.Request.Url

$con

$response = $context.Response

Write-Host ''

Write-Host "Petición: $requestUrl"

$localPath = $requestUrl.LocalPath

$route = $routes.Get_Item($requestUrl.LocalPath)

if ($route -eq $null)

{

$response.StatusCode = 404

}

else

{

$content = & $route

$buffer = [System.Text.Encoding]::UTF8.GetBytes($content)

$response.ContentLength64 = $buffer.Length

$response.OutputStream.Write($buffer, 0, $buffer.Length)

}

$response.Close()

$responseStatus = $response.StatusCode

Write-Host "Respuesta: $responseStatus"

}

Servidor en funcionamiento Petición al servidor web

Crear un servidor web al que se pueda acceder desde cualquier parte de la red privada con PowerShell

$routes = @{
    "/" = { return '<html><body>Servidor web funcionando</body></html>' }
}

#Importante poner la IP de la red privada
$url = 'http://192.168.1.157:8080/'
$listener = New-Object System.Net.HttpListener
$listener.Prefixes.Add($url)
$listener.Start()

Write-Host "Funcionando $url..."

while ($listener.IsListening)
{
    $context = $listener.GetContext()
    $requestUrl = $context.Request.Url
    $con
    $response = $context.Response

    Write-Host ''
    Write-Host "Petición: $requestUrl"

    $localPath = $requestUrl.LocalPath
    $route = $routes.Get_Item($requestUrl.LocalPath)

    if ($route -eq $null)
    {
        $response.StatusCode = 404
    }
    else
    {
        $content = & $route
        $buffer = [System.Text.Encoding]::UTF8.GetBytes($content)
        $response.ContentLength64 = $buffer.Length
        $response.OutputStream.Write($buffer, 0, $buffer.Length)
    }
    
    $response.Close()

    $responseStatus = $response.StatusCode
    Write-Host "Respuesta: $responseStatus"
}

$routes = @{

"/" = { return '<html><body>Servidor web funcionando</body></html>' }

}

#Importante poner la IP de la red privada

$url = 'http://192.168.1.157:8080/'

$listener = New-Object System.Net.HttpListener

$listener.Prefixes.Add($url)

$listener.Start()

Write-Host "Funcionando $url..."

while ($listener.IsListening)

{

$context = $listener.GetContext()

$requestUrl = $context.Request.Url

$con

$response = $context.Response

Write-Host ''

Write-Host "Petición: $requestUrl"

$localPath = $requestUrl.LocalPath

$route = $routes.Get_Item($requestUrl.LocalPath)

if ($route -eq $null)

{

$response.StatusCode = 404

}

else

{

$content = & $route

$buffer = [System.Text.Encoding]::UTF8.GetBytes($content)

$response.ContentLength64 = $buffer.Length

$response.OutputStream.Write($buffer, 0, $buffer.Length)

}

$response.Close()

$responseStatus = $response.StatusCode

Write-Host "Respuesta: $responseStatus"

}

Almacenar y utilizar credenciales mediante JSON

#Almacenar credenciales en un fichero JSON
Get-Credential | Select Username,@{n="Password"; e={$_.password | ConvertFrom-SecureString}} | ConvertTo-Json | Set-Content -Path credenciales.json -Encoding UTF8
notepad .\credenciales.json

#Utilizar credenciales desde un fichero JSON
$jsonc = Get-Content -Path .\credenciales.json -Encoding UTF8 -Raw | ConvertFrom-Json
$cred = New-Object -TypeName PSCredential $jsonc.UserName,($jsonc.Password | ConvertTo-SecureString)
Start-Process notepad -Credential $cred

#Almacenar credenciales en un fichero JSON

Get-Credential | Select Username,@{n="Password"; e={$_.password | ConvertFrom-SecureString}} | ConvertTo-Json | Set-Content -Path credenciales.json -Encoding UTF8

notepad .\credenciales.json

#Utilizar credenciales desde un fichero JSON

$jsonc = Get-Content -Path .\credenciales.json -Encoding UTF8 -Raw | ConvertFrom-Json

$cred = New-Object -TypeName PSCredential $jsonc.UserName,($jsonc.Password | ConvertTo-SecureString)

Start-Process notepad -Credential $cred

Análisis de una petición a MySQL con SoftPerfect Network Protocol Analyzer

Pasos necesarios para ver una petición a MySQL con SoftPerfect Network Protocol Analyzer: Enviar una consulta desde un cliente al servidor MySQL con PowerShell Capturar el tráfico de red entre el cliente y el servidor MySQL con SoftPerfect Network Protocol Analyzer Enviar una consulta desde un cliente al servidor MySQL

[void][System.Reflection.Assembly]::LoadWithPartialName("MySql.Data")
$Connection = New-Object MySql.Data.MySqlClient.MySqlConnection
$ConnectionString = "server=" + "192.168.1.104" + ";port=3306;uid=" + "prueba" + ";pwd=pass" + ";database="+"estado"
$Connection.ConnectionString = $ConnectionString
$Connection.Open()

$Query='select PersonID,Estado from Persons'
$Command = New-Object MySql.Data.MySqlClient.MySqlCommand($Query, $Connection)
$DataAdapter = New-Object MySql.Data.MySqlClient.MySqlDataAdapter($Command)
$DataSet = New-Object System.Data.DataSet
$RecordCount = $dataAdapter.Fill($dataSet, "data")
$DataSet.Tables[0]
$Connection.Close()

[void][System.Reflection.Assembly]::LoadWithPartialName("MySql.Data")

$Connection = New-Object MySql.Data.MySqlClient.MySqlConnection

$ConnectionString = "server=" + "192.168.1.104" + ";port=3306;uid=" + "prueba" + ";pwd=pass" + ";database="+"estado"

$Connection.ConnectionString = $ConnectionString

$Connection.Open()

$Query='select PersonID,Estado from Persons'

$Command = New-Object MySql.Data.MySqlClient.MySqlCommand($Query, $Connection)

$DataAdapter = New-Object MySql.Data.MySqlClient.MySqlDataAdapter($Command)

$DataSet = New-Object System.Data.DataSet

$RecordCount = $dataAdapter.Fill($dataSet, "data")

$DataSet.Tables[0]

$Connection.Close()

Capturar el tráfico de red entre el…
Read more →

Leer artículos de la Wikipedia mediante la voz del Sistema Operativo con PowerShell

Add-Type -AssemblyName System.Speech
$synthesizer = New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer
$synthesizer.SelectVoice("Microsoft Zira Desktop")
$synthesizer.Rate=0

$json=Invoke-WebRequest -Uri 'https://en.wikipedia.org/w/api.php?action=parse&format=json&prop=text&page=PowerShell' | ConvertFrom-JSON
 
$json.parse.text.'*' -replace "<.*?>" | %{
$synthesizer.Speak($_)
}

Add-Type -AssemblyName System.Speech

$synthesizer = New-Object -TypeName System.Speech.Synthesis.SpeechSynthesizer

$synthesizer.SelectVoice("Microsoft Zira Desktop")

$synthesizer.Rate=0

$json=Invoke-WebRequest -Uri 'https://en.wikipedia.org/w/api.php?action=parse&format=json&prop=text&page=PowerShell' | ConvertFrom-JSON

$json.parse.text.'*' -replace "<.*?>" | %{

$synthesizer.Speak($_)

}

Automatizar SDRSharp con PowerShell (parte 5)

Abrir, ocultar el menú, poner en funcionamiento SDRSharp y recorrer el rango de frecuencias desde 400~470 MHz haciendo una captura de pantalla por cada frecuencia

#Abrir SDRSharp
Start-Process E:\sdrsharp-x86\SDRSharp.exe

Start-Sleep -Seconds 5

#Funciones necesarias para hacer clic
$MouseEventSig=@'
[DllImport("user32.dll",CharSet=CharSet.Auto, CallingConvention=CallingConvention.StdCall)]
public static extern void mouse_event(long dwFlags, long dx, long dy, long cButtons, long dwExtraInfo);
'@
$MouseEvent = Add-Type -memberDefinition $MouseEventSig -name "MouseEventWinApi" -passThru

#Función para capturar la pantalla
function screenshot($path)
{
	$b=New-Object System.Drawing.Bitmap([System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Width, [System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Height)
	$g=[System.Drawing.Graphics]::FromImage($b)
	$g.CopyFromScreen((New-Object System.Drawing.Point(0,0)), (New-Object System.Drawing.Point(0,0)), $b.Size)
	$g.Dispose()
	$b.Save($path,'Bmp')
}

#Hacer clic en el botón del menú para ocultarlo
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(23,54)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

Start-Sleep -Seconds 5

#Hacer clic en Start para poner en funcionamiento SDRSharp
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(60,54)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

Start-Sleep -Seconds 5

#Mover el cursor hasta la posición de los MHz y hacer clic
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(382,54)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

Start-Sleep -Seconds 5

#Escribir en la posición de los MHz el valor 400
[System.Windows.Forms.SendKeys]::SendWait("400")

Start-Sleep -Seconds 5

#Hacer 70 clics en la posición de la unidad en los MHz
1..70 | % {
[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(422,46)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)
Start-Sleep -Seconds 5

#Ruta de la captura de pantalla
screenshot "e:\frecuencias\$_.bmp"
}

#Abrir SDRSharp

Start-Process E:\sdrsharp-x86\SDRSharp.exe

Start-Sleep -Seconds 5

#Funciones necesarias para hacer clic

$MouseEventSig=@'

[DllImport("user32.dll",CharSet=CharSet.Auto, CallingConvention=CallingConvention.StdCall)]

public static extern void mouse_event(long dwFlags, long dx, long dy, long cButtons, long dwExtraInfo);

$MouseEvent = Add-Type -memberDefinition $MouseEventSig -name "MouseEventWinApi" -passThru

#Función para capturar la pantalla

function screenshot($path)

{

$b=New-Object System.Drawing.Bitmap([System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Width, [System.Windows.Forms.Screen]::PrimaryScreen.Bounds.Height)

$g=[System.Drawing.Graphics]::FromImage($b)

$g.CopyFromScreen((New-Object System.Drawing.Point(0,0)), (New-Object System.Drawing.Point(0,0)), $b.Size)

$g.Dispose()

$b.Save($path,'Bmp')

}

#Hacer clic en el botón del menú para ocultarlo

[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(23,54)

$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)

$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

Start-Sleep -Seconds 5

#Hacer clic en Start para poner en funcionamiento SDRSharp

[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(60,54)

$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)

$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

Start-Sleep -Seconds 5

#Mover el cursor hasta la posición de los MHz y hacer clic

[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(382,54)

$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)

$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

Start-Sleep -Seconds 5

#Escribir en la posición de los MHz el valor 400

[System.Windows.Forms.SendKeys]::SendWait("400")

Start-Sleep -Seconds 5

#Hacer 70 clics en la posición de la unidad en los MHz

1..70 | % {

[System.Windows.Forms.Cursor]::Position = New-Object System.Drawing.Point(422,46)

$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)

$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)

Start-Sleep -Seconds 5

#Ruta de la captura de pantalla

screenshot "e:\frecuencias\$_.bmp"

}