Análisis y representación de frecuencias de letras en el libro “El ingenioso hidalgo Don Quijote de la Mancha” cifrado de forma compleja y sin cifrar con PowerShell (parte 11)

Sin cifrar

#Abrir el fichero quijote.txt, añadir a una ArrayList, agrupar y obtener la frecuencia cada una de las letras que contiene el fichero

#Inicializa una nueva instancia de la clase ArrayList que está vacía y tiene la capacidad inicial predeterminada
[System.Collections.ArrayList] $arraylist = New-Object System.Collections.ArrayList
 
ForEach ($elemento in gc .\quijote.txt){
#Agrega un objeto al final de ArrayList
0..($elemento.Length-1) | %{
[void]$arraylist.Add($elemento[$_])
}
}

#Representar la frecuencia gráficamente
$arraylist | Group-Object | Sort-Object Count -Descending | select Name,Count | %{
$frecuencia=([math]::truncate(($_.count/$arraylist.Count)*100))
$frecuenciadibujo=((1..$frecuencia) | %{Write-Host '█' -NoNewline})
Write-Host $_.name,$frecuencia,$frecuenciadibujo
}

#Abrir el fichero quijote.txt, añadir a una ArrayList, agrupar y obtener la frecuencia cada una de las letras que contiene el fichero

#Inicializa una nueva instancia de la clase ArrayList que está vacía y tiene la capacidad inicial predeterminada

[System.Collections.ArrayList] $arraylist = New-Object System.Collections.ArrayList

ForEach ($elemento in gc .\quijote.txt){

#Agrega un objeto al final de ArrayList

0..($elemento.Length-1) | %{

[void]$arraylist.Add($elemento[$_])

}

#Representar la frecuencia gráficamente

$arraylist | Group-Object | Sort-Object Count -Descending | select Name,Count | %{

$frecuencia=([math]::truncate(($_.count/$arraylist.Count)*100))

$frecuenciadibujo=((1..$frecuencia) | %{Write-Host '█' -NoNewline})

Write-Host $_.name,$frecuencia,$frecuenciadibujo

}

Cifrado complejo

#Abrir el fichero quijotecifcomplex.txt, añadir a una ArrayList, agrupar y obtener la frecuencia cada una de las letras que contiene el fichero

#Inicializa una nueva instancia de la clase ArrayList que está vacía y tiene la capacidad inicial predeterminada
[System.Collections.ArrayList] $arraylist = New-Object System.Collections.ArrayList
 
ForEach ($elemento in gc .\quijotecifcomplex.txt){
#Agrega un objeto al final de ArrayList
0..($elemento.Length-1) | %{
[void]$arraylist.Add($elemento[$_])
}
}

#Representar la frecuencia gráficamente
$arraylist | Group-Object | Sort-Object Count -Descending | select Name,Count | %{
$frecuencia=([math]::truncate(($_.count/$arraylist.Count)*100))
$frecuenciadibujo=((1..$frecuencia) | %{Write-Host '█' -NoNewline})
Write-Host $_.name,$frecuencia,$frecuenciadibujo
}

#Abrir el fichero quijotecifcomplex.txt, añadir a una ArrayList, agrupar y obtener la frecuencia cada una de las letras que contiene el fichero

#Inicializa una nueva instancia de la clase ArrayList que está vacía y tiene la capacidad inicial predeterminada

[System.Collections.ArrayList] $arraylist = New-Object System.Collections.ArrayList

ForEach ($elemento in gc .\quijotecifcomplex.txt){

#Agrega un objeto al final de ArrayList

0..($elemento.Length-1) | %{

[void]$arraylist.Add($elemento[$_])

}

#Representar la frecuencia gráficamente

$arraylist | Group-Object | Sort-Object Count -Descending | select Name,Count | %{

$frecuencia=([math]::truncate(($_.count/$arraylist.Count)*100))

$frecuenciadibujo=((1..$frecuencia) | %{Write-Host '█' -NoNewline})

Write-Host $_.name,$frecuencia,$frecuenciadibujo

}

Comparación de frecuencias (las frecuencias del fichero cifrado de forma compleja se suavizan)

Análisis y representación de frecuencias de letras en el libro “El ingenioso hidalgo Don Quijote de la Mancha” cifrado y sin cifrar con PowerShell (parte 9)

Sin cifrar

#Abrir el fichero quijote.txt, añadir a una ArrayList, agrupar y obtener la frecuencia cada una de las letras que contiene el fichero

#Inicializa una nueva instancia de la clase ArrayList que está vacía y tiene la capacidad inicial predeterminada
[System.Collections.ArrayList] $arraylist = New-Object System.Collections.ArrayList
 
ForEach ($elemento in gc .\quijote.txt){
#Agrega un objeto al final de ArrayList
0..($elemento.Length-1) | %{
[void]$arraylist.Add($elemento[$_])
}
}

#Representar la frecuencia gráficamente
$arraylist | Group-Object | Sort-Object Count -Descending | select Name,Count | %{
$frecuencia=([math]::truncate(($_.count/$arraylist.Count)*100))
$frecuenciadibujo=((1..$frecuencia) | %{Write-Host '█' -NoNewline})
Write-Host $_.name,$frecuencia,$frecuenciadibujo
}

#Abrir el fichero quijote.txt, añadir a una ArrayList, agrupar y obtener la frecuencia cada una de las letras que contiene el fichero

#Inicializa una nueva instancia de la clase ArrayList que está vacía y tiene la capacidad inicial predeterminada

[System.Collections.ArrayList] $arraylist = New-Object System.Collections.ArrayList

ForEach ($elemento in gc .\quijote.txt){

#Agrega un objeto al final de ArrayList

0..($elemento.Length-1) | %{

[void]$arraylist.Add($elemento[$_])

}

#Representar la frecuencia gráficamente

$arraylist | Group-Object | Sort-Object Count -Descending | select Name,Count | %{

$frecuencia=([math]::truncate(($_.count/$arraylist.Count)*100))

$frecuenciadibujo=((1..$frecuencia) | %{Write-Host '█' -NoNewline})

Write-Host $_.name,$frecuencia,$frecuenciadibujo

}

Cifrado sencillo

#Abrir el fichero quijotecif.txt, añadir a una ArrayList, agrupar y obtener la frecuencia cada una de las letras que contiene el fichero

#Inicializa una nueva instancia de la clase ArrayList que está vacía y tiene la capacidad inicial predeterminada
[System.Collections.ArrayList] $arraylist = New-Object System.Collections.ArrayList
 
ForEach ($elemento in gc .\quijotecif.txt){
#Agrega un objeto al final de ArrayList
0..($elemento.Length-1) | %{
[void]$arraylist.Add($elemento[$_])
}
}

#Representar la frecuencia gráficamente
$arraylist | Group-Object | Sort-Object Count -Descending | select Name,Count | %{
$frecuencia=([math]::truncate(($_.count/$arraylist.Count)*100))
$frecuenciadibujo=((1..$frecuencia) | %{Write-Host '█' -NoNewline})
Write-Host $_.name,$frecuencia,$frecuenciadibujo
}

#Abrir el fichero quijotecif.txt, añadir a una ArrayList, agrupar y obtener la frecuencia cada una de las letras que contiene el fichero

#Inicializa una nueva instancia de la clase ArrayList que está vacía y tiene la capacidad inicial predeterminada

[System.Collections.ArrayList] $arraylist = New-Object System.Collections.ArrayList

ForEach ($elemento in gc .\quijotecif.txt){

#Agrega un objeto al final de ArrayList

0..($elemento.Length-1) | %{

[void]$arraylist.Add($elemento[$_])

}

#Representar la frecuencia gráficamente

$arraylist | Group-Object | Sort-Object Count -Descending | select Name,Count | %{

$frecuencia=([math]::truncate(($_.count/$arraylist.Count)*100))

$frecuenciadibujo=((1..$frecuencia) | %{Write-Host '█' -NoNewline})

Write-Host $_.name,$frecuencia,$frecuenciadibujo

}

Comparación de frecuencias

Análisis y representación de frecuencias de letras en el libro “El ingenioso hidalgo Don Quijote de la Mancha” con PowerShell (parte 7)

#Abrir el fichero quijote.txt, añadir a una ArrayList, agrupar y obtener la frecuencia de cada una de las letras que contiene el fichero

#Inicializa una nueva instancia de la clase ArrayList que está vacía y tiene la capacidad inicial predeterminada
[System.Collections.ArrayList] $arraylist = New-Object System.Collections.ArrayList
 
ForEach ($elemento in gc .\quijote.txt){
#Agrega un objeto al final de ArrayList
0..($elemento.Length-1) | %{
[void]$arraylist.Add($elemento[$_])
}
}

#Representar la frecuencia gráficamente
$arraylist | Group-Object | Sort-Object Count -Descending | select Name,Count | %{
$frecuencia=([math]::truncate(($_.count/$arraylist.Count)*100))
$frecuenciadibujo=((1..$frecuencia) | %{Write-Host '█' -NoNewline})
Write-Host $_.name,$frecuencia,$frecuenciadibujo
}

#Abrir el fichero quijote.txt, añadir a una ArrayList, agrupar y obtener la frecuencia de cada una de las letras que contiene el fichero

#Inicializa una nueva instancia de la clase ArrayList que está vacía y tiene la capacidad inicial predeterminada

[System.Collections.ArrayList] $arraylist = New-Object System.Collections.ArrayList

ForEach ($elemento in gc .\quijote.txt){

#Agrega un objeto al final de ArrayList

0..($elemento.Length-1) | %{

[void]$arraylist.Add($elemento[$_])

}

#Representar la frecuencia gráficamente

$arraylist | Group-Object | Sort-Object Count -Descending | select Name,Count | %{

$frecuencia=([math]::truncate(($_.count/$arraylist.Count)*100))

$frecuenciadibujo=((1..$frecuencia) | %{Write-Host '█' -NoNewline})

Write-Host $_.name,$frecuencia,$frecuenciadibujo

}

Análisis de frecuencias de letras en el libro “El ingenioso hidalgo Don Quijote de la Mancha” con PowerShell (parte 6)

#Abrir el fichero quijote.txt, añadir a una ArrayList, agrupar y obtener la frecuencia de cada una de las letras que contiene el fichero

#Inicializa una nueva instancia de la clase ArrayList que está vacía y tiene la capacidad inicial predeterminada
[System.Collections.ArrayList] $arraylist = New-Object System.Collections.ArrayList
 
ForEach ($elemento in gc .\quijote.txt){
#Agrega un objeto al final de ArrayList
0..($elemento.Length-1) | %{
[void]$arraylist.Add($elemento[$_])
}
}

$arraylist | Group-Object | Sort-Object Count -Descending | select Name,Count

#Abrir el fichero quijote.txt, añadir a una ArrayList, agrupar y obtener la frecuencia de cada una de las letras que contiene el fichero

#Inicializa una nueva instancia de la clase ArrayList que está vacía y tiene la capacidad inicial predeterminada

[System.Collections.ArrayList] $arraylist = New-Object System.Collections.ArrayList

ForEach ($elemento in gc .\quijote.txt){

#Agrega un objeto al final de ArrayList

0..($elemento.Length-1) | %{

[void]$arraylist.Add($elemento[$_])

}

$arraylist | Group-Object | Sort-Object Count -Descending | select Name,Count

Análisis de frecuencias de palabras en el libro “El ingenioso hidalgo Don Quijote de la Mancha” con PowerShell (parte 5)

#Abrir el fichero texto.txt, añadir, agrupar y obtener la frecuencia de cada una de las palabras que contiene el fichero a una ArrayList

#Inicializa una nueva instancia de la clase ArrayList que está vacía y tiene la capacidad inicial predeterminada
[System.Collections.ArrayList] $arraylist = New-Object System.Collections.ArrayList

ForEach ($elemento in (gc .\quijote.txt).Split(" ")){
#Agrega un objeto al final de ArrayList
[void]$arraylist.Add($elemento)
}

$arraylist | Group-Object | Sort-Object Count -Descending | select Name,Count

#Abrir el fichero texto.txt, añadir, agrupar y obtener la frecuencia de cada una de las palabras que contiene el fichero a una ArrayList

#Inicializa una nueva instancia de la clase ArrayList que está vacía y tiene la capacidad inicial predeterminada

[System.Collections.ArrayList] $arraylist = New-Object System.Collections.ArrayList

ForEach ($elemento in (gc .\quijote.txt).Split(" ")){

#Agrega un objeto al final de ArrayList

[void]$arraylist.Add($elemento)

}

$arraylist | Group-Object | Sort-Object Count -Descending | select Name,Count

Dispositivos conectados (Plug and Play) en el sistema operativo

Get-PnpDevice | Select-Object FriendlyName,InstanceId | Sort-Object FriendlyName

1	Get-PnpDevice \| Select-Object FriendlyName,InstanceId \| Sort-Object FriendlyName

Enviar la reproducción de los tráileres de películas a la Smart TV

#Función para enviar la reproducción a la Smart TV
function EnviarSmartTV
{
#Importar DLL para simular el click del ratón
#Es necesario poner las comillas correctamente cuando se importa la DLL user32.dll
 
$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

#Depende de la resolución de pantalla
#Pulsar en "Personaliza y controla Google Chrome"
[System.Windows.Forms.Cursor]::Position=New-Object System.Drawing.Point(1347,43)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)
Start-Sleep -Seconds 5

#Nos posicionamos en la opción "Enviar"
[System.Windows.Forms.SendKeys]::SendWait(‘E')
Start-Sleep -Seconds 5

#Pulsar la tecla ENTER
[System.Windows.Forms.SendKeys]::SendWait(‘{ENTER}’)
Start-Sleep -Seconds 10

#Enviar youtube.com a la primera TV
[System.Windows.Forms.Cursor]::Position=New-Object System.Drawing.Point(653,153)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)
Start-Sleep -Seconds 5

#Pulsar en "ENVIAR"
[System.Windows.Forms.Cursor]::Position=New-Object System.Drawing.Point(705,173)
$MouseEvent::mouse_event(0x00000002, 0, 0, 0, 0)
$MouseEvent::mouse_event(0x00000004, 0, 0, 0, 0)
}

$url='https://www.youtube.com/user/UniversalSpain/playlists?sort=lad&flow=list&view=1'
$result = Invoke-WebRequest $url
#Respetar los dos espacios entre "link yt"
$result.AllElements | Where class -eq “ spf-link  yt-uix-sessionlink” | %{$_.outerText
'https://www.youtube.com'+$_.href
#Reproducir tráiler
$trailer='https://www.youtube.com'+$_.href
Start-Process chrome $trailer
#Enviar la reproducción a la Smart TV mediante la función EnviarSmartTV
EnviarSmartTV
Start-Sleep -Seconds 200
}

#Función para enviar la reproducción a la Smart TV

function EnviarSmartTV

{

#Importar DLL para simular el click del ratón

#Es necesario poner las comillas correctamente cuando se importa la DLL user32.dll

$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

#Depende de la resolución de pantalla

#Pulsar en "Personaliza y controla Google Chrome"

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

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

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

Start-Sleep -Seconds 5

#Nos posicionamos en la opción "Enviar"

[System.Windows.Forms.SendKeys]::SendWait(‘E')

Start-Sleep -Seconds 5

#Pulsar la tecla ENTER

[System.Windows.Forms.SendKeys]::SendWait(‘{ENTER}’)

Start-Sleep -Seconds 10

#Enviar youtube.com a la primera TV

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

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

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

Start-Sleep -Seconds 5

#Pulsar en "ENVIAR"

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

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

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

}

$url='https://www.youtube.com/user/UniversalSpain/playlists?sort=lad&flow=list&view=1'

$result = Invoke-WebRequest $url

#Respetar los dos espacios entre "link yt"

$result.AllElements | Where class -eq “ spf-link yt-uix-sessionlink” | %{$_.outerText

'https://www.youtube.com'+$_.href

#Reproducir tráiler

$trailer='https://www.youtube.com'+$_.href

Start-Process chrome $trailer

#Enviar la reproducción a la Smart TV mediante la función EnviarSmartTV

EnviarSmartTV

Start-Sleep -Seconds 200

}

Enviar a la Smart TV desde Google Chrome

Reproducir tráileres de películas

$url='https://www.youtube.com/user/UniversalSpain/playlists?sort=lad&flow=list&view=1'
$result = Invoke-WebRequest $url
#Respetar los dos espacios entre "link yt"
$result.AllElements | Where class -eq “ spf-link  yt-uix-sessionlink” | %{$_.outerText
'https://www.youtube.com'+$_.href
#Reproducir tráiler
$trailer='https://www.youtube.com'+$_.href
Start-Process chrome $trailer
Start-Sleep -Seconds 10
}

$url='https://www.youtube.com/user/UniversalSpain/playlists?sort=lad&flow=list&view=1'

$result = Invoke-WebRequest $url

#Respetar los dos espacios entre "link yt"

$result.AllElements | Where class -eq “ spf-link yt-uix-sessionlink” | %{$_.outerText

'https://www.youtube.com'+$_.href

#Reproducir tráiler

$trailer='https://www.youtube.com'+$_.href

Start-Process chrome $trailer

Start-Sleep -Seconds 10

}