System.Collections.ArrayList

Análisis de frecuencias de letras en un texto con PowerShell (parte 2)

#Abrir el fichero texto.txt, añadir y agrupar 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 [char[]](gc .\texto.txt)){ #Agrega un objeto al final de ArrayList [void]$arraylist.Add($elemento) } $arraylist | Group-Object

1 2 3 4 5 6 7 8 9 10 11

#Abrir el fichero texto.txt, añadir y agrupar 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 [char[]](gc .\texto.txt)){ #Agrega un objeto al final de ArrayList [void]$arraylist.Add($elemento) }   $arraylist | Group-Object

Análisis de frecuencias de letras en un texto con PowerShell (parte 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 [char[]](gc .\texto.txt)){ #Agrega un objeto al final de ArrayList [void]$arraylist.Add($elemento) } $arraylist

1 2 3 4 5 6 7 8 9 10 11

#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 [char[]](gc .\texto.txt)){ #Agrega un objeto al final de ArrayList [void]$arraylist.Add($elemento) }   $arraylist

Criptoanálisis básico con PowerShell (parte 2)

Function Combinaciones { Param( [Object[]]$Object, [String]$Seperator, [UInt32]$CurIndex = 0, [String]$Return = "" ) $MaxIndex = $Object.Count - 1 $Object[$CurIndex] | ForEach-Object { [Array]$NewReturn = "$($Return)$($Seperator)$($_)".Trim($Seperator) If ($CurIndex -lt $MaxIndex) { $NewReturn = Combinaciones $Object -CurIndex ($CurIndex + 1) -Return $NewReturn } $NewReturn } } #Realizar un criptoanálisis básico para descifrar un texto cifrado por transposición #Descifrar la cadena yube $descifrar="yube" #Añadir un diccionario a una ArrayList para ver si al resolver la transposición se encuentra la palabra en el diccionario #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 .\diccionario.txt){ #Agrega un objeto al final de ArrayList [void]$arraylist.Add($elemento) } $arrayletras=@(0..($descifrar.Length-1) | % {$descifrar[$_]}) $arrayletras #Combinar cuatro letras distintas en palabras de cuatro letras #Para cada una de las palabras que se han obtenido comprobar si se encuentra en el diccionario Combinaciones @($arrayletras,$arrayletras,$arrayletras,$arrayletras) | %{ if($arraylist.IndexOf($_) -eq -1){"Elemento: $_ no encontrado"} else{"Elemento $_ encontrado en la posición " + $arraylist.IndexOf($_)} }

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

Function Combinaciones { Param( [Object[]]$Object, [String]$Seperator, [UInt32]$CurIndex = 0, [String]$Return = "" )   $MaxIndex = $Object.Count - 1 $Object[$CurIndex] | ForEach-Object { [Array]$NewReturn = "$($Return)$($Seperator)$($_)".Trim($Seperator) If ($CurIndex -lt $MaxIndex) { $NewReturn = Combinaciones $Object -CurIndex ($CurIndex + 1) -Return $NewReturn } $NewReturn } }   #Realizar un criptoanálisis básico para descifrar un texto cifrado por transposición #Descifrar la cadena yube $descifrar="yube"   #Añadir un diccionario a una ArrayList para ver si al resolver la transposición se encuentra la palabra en el diccionario #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 .\diccionario.txt){ #Agrega un objeto al final de ArrayList [void]$arraylist.Add($elemento) }   $arrayletras=@(0..($descifrar.Length-1) | % {$descifrar[$_]}) $arrayletras   #Combinar cuatro letras distintas en palabras de cuatro letras #Para cada una de las palabras que se han obtenido comprobar si se encuentra en el diccionario Combinaciones @($arrayletras,$arrayletras,$arrayletras,$arrayletras) | %{ if($arraylist.IndexOf($_) -eq -1){"Elemento: $_ no encontrado"} else{"Elemento $_ encontrado en la posición " + $arraylist.IndexOf($_)} }

Criptoanálisis básico con PowerShell (parte 1)

#Realizar un criptoanálisis básico para descifrar un texto, decrementar valores a cada letra #Descifrar la cadena lj|j $descifrar="lj|j" #Añadir un diccionario 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 .\diccionario.txt){ #Agrega un objeto al final de ArrayList [void]$arraylist.Add($elemento) } #Realizar una operación sobre cada uno de los caracteres que componen la cadena cifrada for($var=0;$var -lt 20;$var=$var+1){ $textodescifrado=(0..($descifrar.Length-1) | % {[char]::ConvertFromUtf32([char]::ConvertToUtf32($descifrar[$_].ToString(),0)-$var)}) -join "" #Una vez se le ha aplicado la operación a la palabra comprobamos resultante se encuentra en un diccionario if($arraylist.IndexOf($textodescifrado) -eq -1){"Elemento: $textodescifrado no encontrado"} else{"Elemento $textodescifrado encontrado en la posición " + $arraylist.IndexOf($textodescifrado)} }

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

#Realizar un criptoanálisis básico para descifrar un texto, decrementar valores a cada letra #Descifrar la cadena lj|j $descifrar="lj|j"   #Añadir un diccionario 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 .\diccionario.txt){ #Agrega un objeto al final de ArrayList [void]$arraylist.Add($elemento) }   #Realizar una operación sobre cada uno de los caracteres que componen la cadena cifrada for($var=0;$var -lt 20;$var=$var+1){ $textodescifrado=(0..($descifrar.Length-1) | % {[char]::ConvertFromUtf32([char]::ConvertToUtf32($descifrar[$_].ToString(),0)-$var)}) -join "" #Una vez se le ha aplicado la operación a la palabra comprobamos resultante se encuentra en un diccionario if($arraylist.IndexOf($textodescifrado) -eq -1){"Elemento: $textodescifrado no encontrado"} else{"Elemento $textodescifrado encontrado en la posición " + $arraylist.IndexOf($textodescifrado)} }

Añadir los nombres de los procesos a una ArrayList y buscar un elemento

#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 (ps | Group-Object Name).Name){ #Agrega un objeto al final de ArrayList [void]$arraylist.Add($elemento) } if($arraylist.IndexOf("chrome") -eq -1) { "Elemento no encontrado" } else { 'Elemento encontrado en la posición ' + $arraylist.IndexOf("chrome") }

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

#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 (ps | Group-Object Name).Name){ #Agrega un objeto al final de ArrayList [void]$arraylist.Add($elemento) }   if($arraylist.IndexOf("chrome") -eq -1) { "Elemento no encontrado" } else { 'Elemento encontrado en la posición ' + $arraylist.IndexOf("chrome") }

Añadir los nombres de los procesos a una ArrayList y ordenar los elementos

#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 (ps | Group-Object Name).Name){ #Agrega un objeto al final de ArrayList, en este caso el objeto es cada nombre de proceso [void]$arraylist.Add($elemento) } #Número de elementos de ArrayList $arraylist.Count #Ordena todos los elementos de ArrayList $arraylist.Sort() #Muestra todos los elementos de ArrayList ordenados $arraylist

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

#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 (ps | Group-Object Name).Name){ #Agrega un objeto al final de ArrayList, en este caso el objeto es cada nombre de proceso [void]$arraylist.Add($elemento) }   #Número de elementos de ArrayList $arraylist.Count #Ordena todos los elementos de ArrayList $arraylist.Sort() #Muestra todos los elementos de ArrayList ordenados $arraylist

Añadir los nombres de los procesos 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 (ps | Group-Object Name).Name){ #Agrega un objeto al final de ArrayList, en este caso el objeto es cada nombre de proceso [void]$arraylist.Add($elemento) } #Número de elementos de ArrayList $arraylist.Count #Muestra todos los elementos de ArrayList ordenados $arraylist

1 2 3 4 5 6 7 8 9 10 11 12 13

#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 (ps | Group-Object Name).Name){ #Agrega un objeto al final de ArrayList, en este caso el objeto es cada nombre de proceso [void]$arraylist.Add($elemento) }   #Número de elementos de ArrayList $arraylist.Count #Muestra todos los elementos de ArrayList ordenados $arraylist

Enviar ofertas de trabajo por correo electrónico

#Crear ArrayList para almacenar la fecha de publicación de la oferta y el nombre de la oferta [System.Collections.ArrayList] $arraylistm = New-Object System.Collections.ArrayList [System.Collections.ArrayList] $arrayliste = New-Object System.Collections.ArrayList #Petición a la web que tiene las ofertas $Resultado=Invoke-WebRequest ‘https://www.infojobs.net/ofertas-trabajo’ $Resultado.AllElements | %{ #Almacenar la fecha de la oferta y el nombre de la oferta $Minuto=($_ | Where-Object Class -eq ‘marked’).innerText $Empleo=($_ | Where-Object Class -eq ‘job-list-title’).innerText if($Minuto){[void]$arraylistm.Add($Minuto)} if($Empleo){[void]$arrayliste.Add($Empleo)} } $Enviar="" #Recorrer la oferta por fecha de publicación y mostrar la oferta que tenga la fecha de publicación menor que 10 minutos 0..$arraylistm.Count | %{ [String]$MinutosContados=$arraylistm[$_+1] #Sustituir las comillas (“”) $MinutosContados=$MinutosContados.replace("Hace","").replace("m","").Replace("h","60") if([Int]$MinutosContados -lt 10 -and !$MinutosContados.Contains(‘h’)){ $Enviar+=$MinutosContados,$arrayliste[$_],"`n" } } #Utilizar un servidor SMTP por ejemplo http://www.jesusninoc.com/2015/01/12/instalar-hmailserver-imap-smtp-y-pop3/ Send-MailMessage -to "mail2@example.com" -from “mail@example.com” -subject “Ofertas de trabajo” -SmtpServer localhost -Body $Enviar

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

#Crear ArrayList para almacenar la fecha de publicación de la oferta y el nombre de la oferta [System.Collections.ArrayList] $arraylistm = New-Object System.Collections.ArrayList [System.Collections.ArrayList] $arrayliste = New-Object System.Collections.ArrayList   #Petición a la web que tiene las ofertas $Resultado=Invoke-WebRequest ‘https://www.infojobs.net/ofertas-trabajo’ $Resultado.AllElements | %{ #Almacenar la fecha de la oferta y el nombre de la oferta $Minuto=($_ | Where-Object Class -eq ‘marked’).innerText $Empleo=($_ | Where-Object Class -eq ‘job-list-title’).innerText if($Minuto){[void]$arraylistm.Add($Minuto)} if($Empleo){[void]$arrayliste.Add($Empleo)} }   $Enviar="" #Recorrer la oferta por fecha de publicación y mostrar la oferta que tenga la fecha de publicación menor que 10 minutos 0..$arraylistm.Count | %{ [String]$MinutosContados=$arraylistm[$_+1] #Sustituir las comillas (“”) $MinutosContados=$MinutosContados.replace("Hace","").replace("m","").Replace("h","60") if([Int]$MinutosContados -lt 10 -and !$MinutosContados.Contains(‘h’)){ $Enviar+=$MinutosContados,$arrayliste[$_],"`n" } }   #Utilizar un servidor SMTP por ejemplo http://www.jesusninoc.com/2015/01/12/instalar-hmailserver-imap-smtp-y-pop3/ Send-MailMessage -to "mail2@example.com" -from “mail@example.com” -subject “Ofertas de trabajo” -SmtpServer localhost -Body $Enviar