Ejercicios de PowerShell | Scripting and security

Ejercicios de PowerShell: saber en qué posición se encuentran las mismas palabras dentro de un texto y sustituir por un número

(1 votes, average: 5.00 out of 5)

# Texto sobre el que realizar el ejercicio

$fichero = "Hola es distinto a hola y también a ola"

# Saber en qué posición se encuentran las mismas palabras y sustituir por un número
# Primer paso es quedarse todas las palabras distintas que hay

$palabras = ($fichero.split(" ") | Sort-Object Length -Descending | Group-Object -CaseSensitive).Name
$palabras

# Segundo paso es sustituir las palabras por la posición que ocupan

$ficheroremplazado = $fichero
$palabras | %{
    $ficheroremplazado = $ficheroremplazado.Replace($_,$palabras.IndexOf($_))
}
$ficheroremplazado

# Para volver a obtener la frase sustituir las posiciones de las palabras por la palabra

$ficherosinremplazo = $ficheroremplazado
$palabras | %{
    $ficherosinremplazo = $ficherosinremplazo.Replace($palabras.IndexOf($_),$_)
}
$ficherosinremplazo

# Texto sobre el que realizar el ejercicio

$fichero = "Hola es distinto a hola y también a ola"

# Saber en qué posición se encuentran las mismas palabras y sustituir por un número

# Primer paso es quedarse todas las palabras distintas que hay

$palabras = ($fichero.split(" ") | Sort-Object Length -Descending | Group-Object -CaseSensitive).Name

$palabras

# Segundo paso es sustituir las palabras por la posición que ocupan

$ficheroremplazado = $fichero

$palabras | %{

$ficheroremplazado = $ficheroremplazado.Replace($_,$palabras.IndexOf($_))

}

$ficheroremplazado

# Para volver a obtener la frase sustituir las posiciones de las palabras por la palabra

$ficherosinremplazo = $ficheroremplazado

$palabras | %{

$ficherosinremplazo = $ficherosinremplazo.Replace($palabras.IndexOf($_),$_)

}

$ficherosinremplazo

Ejercicios de PowerShell: analizar la frecuencia de letras en un fichero

(4 votes, average: 5.00 out of 5)

Versión 1

#Abrir el fichero texto.txt y añadir cada una de las letras que contiene el fichero en 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 .\texto.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 texto.txt y añadir cada una de las letras que contiene el fichero en 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 .\texto.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

Versión 2

(((Get-Content .\texto.txt) -join "`r").ToUpper().GetEnumerator()) | Group-Object | Sort-Object Count -Descending | select Name,Count

1	(((Get-Content .\texto.txt) -join "`r").ToUpper().GetEnumerator()) \| Group-Object \| Sort-Object Count -Descending \| select Name,Count

Ejercicios de PowerShell: crear directorios con información de procesos

(2 votes, average: 5.00 out of 5)

Ejercicios de PowerShell: crear tabla de caracteres en Base64

(1 votes, average: 5.00 out of 5)

#Array que va a contener todos los caracteres en Base64
$arrayBase64=""
#Añadir al array las mayúsculas
$arrayBase64+=[char]'A'..[char]'Z' | %{[char]$_}
#Añadir al array las minúsculas
$arrayBase64+=[char]'a'..[char]'z' | %{[char]$_}
#Añadir al array los números
$arrayBase64+=[char]'0'..[char]'9' | %{[char]$_}
#Añadir al array el carácter + y /
$arrayBase64+="+"
$arrayBase64+="/"
#Quitar los espacios del array
$arrayBase64=$arrayBase64-replace " "
#Mostrar los caracteres
$arrayBase64
#Número de caracteres en Base64
$arrayBase64.Length
#Primer carácter
$arrayBase64[0]
#Último carácter
$arrayBase64[$arrayBase64.Length-1]

#Array que va a contener todos los caracteres en Base64

$arrayBase64=""

#Añadir al array las mayúsculas

$arrayBase64+=[char]'A'..[char]'Z' | %{[char]$_}

#Añadir al array las minúsculas

$arrayBase64+=[char]'a'..[char]'z' | %{[char]$_}

#Añadir al array los números

$arrayBase64+=[char]'0'..[char]'9' | %{[char]$_}

#Añadir al array el carácter + y /

$arrayBase64+="+"

$arrayBase64+="/"

#Quitar los espacios del array

$arrayBase64=$arrayBase64-replace " "

#Mostrar los caracteres

$arrayBase64

#Número de caracteres en Base64

$arrayBase64.Length

#Primer carácter

$arrayBase64[0]

#Último carácter

$arrayBase64[$arrayBase64.Length-1]

Ejercicios de PowerShell: obtener las cuentas relacionadas a otra en Twitter

(1 votes, average: 5.00 out of 5)

Start-Process chrome 'https://twitter.com/i/related_users/15670515'
(((Invoke-WebRequest -Uri 'https://twitter.com/i/related_users/15670515').Content) |  ConvertFrom-JSON).related_users_html

1 2	Start-Process chrome 'https://twitter.com/i/related_users/15670515' (((Invoke-WebRequest -Uri 'https://twitter.com/i/related_users/15670515').Content) \| ConvertFrom-JSON).related_users_html

Ejercicios de PowerShell: listar las empresas del IBEX 35

(No Ratings Yet)

(((Invoke-WebRequest 'http://www.bolsamadrid.es/esp/aspx/Mercados/Precios.aspx?indice=ESI100000000').AllElements).where{$_.Class -eq "DifFlBj" -or $_.Class -eq "DifFlSb" -or $_.Class -eq "DifFlIg"}).innerText

1	(((Invoke-WebRequest 'http://www.bolsamadrid.es/esp/aspx/Mercados/Precios.aspx?indice=ESI100000000').AllElements).where{$_.Class -eq "DifFlBj" -or $_.Class -eq "DifFlSb" -or $_.Class -eq "DifFlIg"}).innerText

Ejercicios de PowerShell: agregar la información adicional de un producto de consumo a una hash table

(1 votes, average: 5.00 out of 5)

Agregar la información adicional de un producto de consumo Script para agregar la información adicional de un producto a una hash table

$hashtable = @{}
$result=Invoke-WebRequest "http://www.alcampo.es/compra-online/bebidas/cervezas/cervezas-premium/premium-tostada/grimbergen-cervabadia-belga-33clx6/p/41630"
$contenido=($result.AllElements | Where Class -eq “tablaInformacionAdicional”).outertext -join "" -split "`n"
for($i=0;$i -lt $contenido.Length;$i++)
{
$contenido[$i]=$contenido[$i].trim()
if($i%2 -eq 0)
{
$hashtable.add($contenido[$i],$contenido[$i+1])
}
}
$hashtable

$hashtable = @{}

$result=Invoke-WebRequest "http://www.alcampo.es/compra-online/bebidas/cervezas/cervezas-premium/premium-tostada/grimbergen-cervabadia-belga-33clx6/p/41630"

$contenido=($result.AllElements | Where Class -eq “tablaInformacionAdicional”).outertext -join "" -split "`n"

for($i=0;$i -lt $contenido.Length;$i++)

{

$contenido[$i]=$contenido[$i].trim()

if($i%2 -eq 0)

{

$hashtable.add($contenido[$i],$contenido[$i+1])

}

$hashtable

Ejercicios de PowerShell: mostrar y escribir una palabra aleatoria por consola en el menor tiempo posible con PowerShell

(1 votes, average: 5.00 out of 5)

do
{
$letraale=((65..90) + (97..122) | Get-Random -Count 5 | % {[char]$_}) -join ""
$inicio=Get-Date
$tuletra=Read-Host $letraale
$fin=Get-Date
(New-TimeSpan –Start $inicio –End $fin).TotalMilliseconds
}while($letraale -ceq $tuletra)

{

$letraale=((65..90) + (97..122) | Get-Random -Count 5 | % {[char]$_}) -join ""

$inicio=Get-Date

$tuletra=Read-Host $letraale

$fin=Get-Date

(New-TimeSpan –Start $inicio –End $fin).TotalMilliseconds

}while($letraale -ceq $tuletra)

Ejercicios de PowerShell: mostrar y escribir una letra aleatoria por consola en el menor tiempo posible con PowerShell

(No Ratings Yet)

do
{
$letraale=((65..90) + (97..122) | Get-Random -Count 1 |  % {[char]$_})
$inicio=Get-Date
$tuletra=Read-Host $letraale
$fin=Get-Date
(New-TimeSpan –Start $inicio –End $fin).TotalMilliseconds
}while([char]$letraale -ceq [char]$tuletra)

{

$letraale=((65..90) + (97..122) | Get-Random -Count 1 | % {[char]$_})

$inicio=Get-Date

$tuletra=Read-Host $letraale

$fin=Get-Date

(New-TimeSpan –Start $inicio –End $fin).TotalMilliseconds

}while([char]$letraale -ceq [char]$tuletra)

Ejercicios de PowerShell: obtener las posiciones GPS de las provincias de España con PowerShell

(No Ratings Yet)

#Guardar en un fichero TXT el nombre de las provincias que hay en España
#Albacete
#Alicante
#Almería
#Álava
#Asturias
#Ávila
#Badajoz
#Illes Balears
#Barcelona
#Bizkaia
#Burgos
#Cáceres
#Cádiz
#Cantabria
#Castellón
#Ciudad Real
#Córdoba
#Coruña
#Cuenca
#Gipuzkoa
#Girona
#Granada
#Guadalajara
#Huelva
#Huesca
#Jaén
#León
#Lleida
#Lugo
#Madrid
#Málaga
#Murcia
#Navarra
#Ourense
#Palencia
#Las Palmas
#Pontevedra
#La Rioja
#Salamanca
#Santa Cruz de Tenerife
#Segovia
#Sevilla
#Soria
#Tarragona
#Teruel
#Toledo
#Valencia
#Valladolid
#Zamora
#Zaragoza
#Ceuta
#Melilla

gc .\provincias.txt | %{
$urlsi="https://maps.googleapis.com/maps/api/geocode/json?address=" + $_
$result=(Invoke-WebRequest -Uri $urlsi).Content | ConvertFrom-JSON
Start-Sleep -Seconds 2
Write-Host $_,$result.results."geometry".location
}

#Guardar en un fichero TXT el nombre de las provincias que hay en España

#Albacete

#Alicante

#Almería

#Álava

#Asturias

#Ávila

#Badajoz

#Illes Balears

#Barcelona

#Bizkaia

#Burgos

#Cáceres

#Cádiz

#Cantabria

#Castellón

#Ciudad Real

#Córdoba

#Coruña

#Cuenca

#Gipuzkoa

#Girona

#Granada

#Guadalajara

#Huelva

#Huesca

#Jaén

#León

#Lleida

#Lugo

#Madrid

#Málaga

#Murcia

#Navarra

#Ourense

#Palencia

#Las Palmas

#Pontevedra

#La Rioja

#Salamanca

#Santa Cruz de Tenerife

#Segovia

#Sevilla

#Soria

#Tarragona

#Teruel

#Toledo

#Valencia

#Valladolid

#Zamora

#Zaragoza

#Ceuta

#Melilla

gc .\provincias.txt | %{

$urlsi="https://maps.googleapis.com/maps/api/geocode/json?address=" + $_

$result=(Invoke-WebRequest -Uri $urlsi).Content | ConvertFrom-JSON

Start-Sleep -Seconds 2

Write-Host $_,$result.results."geometry".location

}

Older Posts