Detectar si el ratón pasa por alguna posición almacenada en un fichero previamente

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

for (1)
{
Start-Sleep -s 2
$dY = ([System.Windows.Forms.Cursor]::Position.Y)
$dX = ([System.Windows.Forms.Cursor]::Position.X)
Write-Host $dX,$dY
if($arraylist.IndexOf("$dX,$dY") -eq -1)
{
"Elemento no encontrado"
}
else
{
'Elemento encontrado en la posición ' + $arraylist.IndexOf("$dX,$dY")
}
}

#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 .\posicion.txt){

#Agrega un objeto al final de ArrayList

[void]$arraylist.Add($elemento)

}

for (1)

{

Start-Sleep -s 2

$dY = ([System.Windows.Forms.Cursor]::Position.Y)

$dX = ([System.Windows.Forms.Cursor]::Position.X)

Write-Host $dX,$dY

if($arraylist.IndexOf("$dX,$dY") -eq -1)

{

"Elemento no encontrado"

}

else

{

'Elemento encontrado en la posición ' + $arraylist.IndexOf("$dX,$dY")

}

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($_)}
}

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)}
}

#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")
}

#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")

}

Determinar la primera posición de una subcadena dentro de una cadena

'Holasa'.IndexOf('a')

1	'Holasa'.IndexOf('a')

Determinar la última posición de una subcadena dentro de una cadena

'Holasa'.LastIndexOf('a')

1	'Holasa'.LastIndexOf('a')

Mover y dividir el contenido de un directorio en varios directorios

$listado=ls F:\usbcanciones
($listado) | %{
$numero=[array]::IndexOf($listado,$_)
Switch($numero)
{
{$_ -le 200}{
$origen='F:\usbcanciones\'+($listado[$numero]).Name
$destino='G:\0\'+($listado[$numero]).Name
Copy-Item $origen $destino
break}
{$_ -gt 200 -and $_ -le 400}{
$origen='F:\usbcanciones\'+($listado[$numero]).Name
$destino='G:\200\'+($listado[$numero]).Name
Copy-Item $origen $destino
break}
{$_ -gt 400 -and $_ -le 600}{
$origen='F:\usbcanciones\'+($listado[$numero]).Name
$destino='G:\400\'+($listado[$numero]).Name
Copy-Item $origen $destino
break}
{$_ -gt 600 -and $_ -le 800}{$_
$origen='F:\usbcanciones\'+($listado[$numero]).Name
$destino='G:\600\'+($listado[$numero]).Name
Copy-Item $origen $destino
break}
{$_ -gt 800 -and $_ -le 1000}{
$origen='F:\usbcanciones\'+($listado[$numero]).Name
$destino='G:\800\'+($listado[$numero]).Name
Copy-Item $origen $destino
break}
{$_ -gt 1000 -and $_ -le 1200}{
$origen='F:\usbcanciones\'+($listado[$numero]).Name
$destino='G:\1000\'+($listado[$numero]).Name
Copy-Item $origen $destino
break}
}
$_
}

$listado=ls F:\usbcanciones

($listado) | %{

$numero=[array]::IndexOf($listado,$_)

Switch($numero)

{

{$_ -le 200}{