Cifrar y descifrar con el cifrado César (7 desplazamientos)
1 2 3 4 | # Cifrar echo "Gloria descifra este mensaje" | tr [a-z] [h-zabcdef] | tr [A-Z] [H-ZABCDEF] # Descifrar echo "Nsvyph klzjpmyh lzal tluzhql" | tr [h-zabcdef] [a-z] | tr [H-ZABCDEF] [A-Z] |
Cifrar con un algoritmo sencillo el nombre y el contenido de un fichero de texto y subirlo por SSH a un servidor Linux
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | #Cifrar el contenido del fichero $fichero="fichero.txt" $cifrado=gc $fichero $clavecifrado=1 $textocifrado=(0..($cifrado.Length-1) | % {[char]::ConvertFromUtf32([char]::ConvertToUtf32($cifrado[$_].ToString(),0)+$clavecifrado)}) -join "" #Cifrar el nombre y añadir el contenido cifrado #Quitamos los puntos y otros caracteres para no tener errores a la hora de crear el nuevo fichero cifrado $ficherosin=$fichero.Replace(".","") $ficherocifrado=(0..($ficherosin.Length-1) | % {[char]::ConvertFromUtf32([char]::ConvertToUtf32($ficherosin[$_].ToString(),0)+$clavecifrado)}) -join "" $textocifrado | Out-File $ficherocifrado #Subir un fichero por SSH a un servidor Linux desde PowerShell en Windows Set-SCPFile -LocalFile $ficherocifrado -ComputerName 192.168.1.162 -RemotePath . -Credential (Get-Credential) |
4. Gestión del sistema de archivos en PowerShell (nivel intermedio)
La memoria que maneja el sistema operativo tiene limitaciones importantes, dos de ellas son la escasa cantidad de información que se puede almacenar en un espacio de direcciones, la otra es la volatilidad de los datos. La solución a este problema es almacenar la información en dispositivos de almacenamiento no volátil como son los discos duros, discos ópticos, etc. El almacenamiento de la información se lleva a cabo mediante archivos (también llamados ficheros). Un archivo se define como conjunto de datos almacenados en un dispositivo de almacenamiento, un ejemplo es una imagen fotográfica que consiste en un conjunto de bits […]
Descifrar con un algoritmo sencillo el nombre y el contenido de un fichero de texto
1 2 3 4 5 6 7 8 9 10 | #Fichero cifrado para descifrar #El fichero se ha cifrado mediante https://www.jesusninoc.com/2017/05/16/cifrar-con-un-algoritmo-sencillo-el-nombre-y-el-contenido-de-un-fichero-de-texto-enviar-la-clave-utilizada-en-el-algoritmo-mediante-una-peticion-web-a-un-servidor/ $fichero="gjdifspuyu" $cifrado=gc $fichero $clavecifrado=1 $textodescifrado=(0..($cifrado.Length-1) | % {[char]::ConvertFromUtf32([char]::ConvertToUtf32($cifrado[$_].ToString(),0)-$clavecifrado)}) -join "" #Descifrar el nombre y el contenido $ficherocifrado=(0..($fichero.Length-1) | % {[char]::ConvertFromUtf32([char]::ConvertToUtf32($fichero[$_].ToString(),0)-$clavecifrado)}) -join "" $textodescifrado | Out-File $ficherocifrado |
Cifrar con un algoritmo sencillo el nombre y el contenido de un fichero de texto (enviar la clave utilizada en el algoritmo mediante una petición web a un servidor)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | #Cifrar el contenido del fichero $fichero="fichero.txt" $cifrado=gc $fichero $clavecifrado=1 $textocifrado=(0..($cifrado.Length-1) | % {[char]::ConvertFromUtf32([char]::ConvertToUtf32($cifrado[$_].ToString(),0)+$clavecifrado)}) -join "" #Cifrar el nombre y añadir el contenido cifrado #Quitamos los puntos y otros caracteres para no tener errores a la hora de crear el nuevo fichero cifrado $ficherosin=$fichero.Replace(".","") $ficherocifrado=(0..($ficherosin.Length-1) | % {[char]::ConvertFromUtf32([char]::ConvertToUtf32($ficherosin[$_].ToString(),0)+$clavecifrado)}) -join "" $textocifrado | Out-File $ficherocifrado $clavecifrado Invoke-WebRequest "https://www.jesusninoc.com/clave/$clavecifrado" |
Aproximación al cifrado y descifrado en PowerShell
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 | ########################################################## #Generar claves para cifrar (convertir las claves en byte) ########################################################## $clave='clavesecreta123' $clave2='clavesecreta123' #Una clave de 128 bits se especifica como un array de byte de 16 dígitos #Una clave de 192 bits se especifica como un array de byte de 24 dígitos #Una clave de 256 bits se especifica como un array de byte de 32 dígitos #A key of 128 bits can be specified as a byte array of 16 digits. Similarly, 192-bit and 256-bit keys correspond to byte arrays of 24 and 32 digits, respectively. $clavebyteparacifrar=[Byte[]]($clave.PadRight(24).Substring(0,24).ToCharArray()) $clavebyteparadescifrar=[Byte[]]($clave2.PadRight(24).Substring(0,24).ToCharArray()) ########################################################## #Vamos a convertir una cadena segura en una cadena cifrada (convert a secure string to an encrypted string) ########################################################## #Convertir un texto plano en una cadena segura (convert a plain text string to a secure string) #ConvertTo-SecureString: Converts encrypted standard strings to secure strings. It can also convert plain text to secure strings. It is used with ConvertFrom-SecureString and Read-Host. $textoparacifrar=ConvertTo-SecureString "Texto secreto" -AsPlainText -Force #Otra posibilidad es utilizar Read-Host para introducir un texto para cifrar (create a secure string) #$textoparacifrar=Read-Host -AsSecureString #ConvertFrom-SecureString: Converts a secure string to an encrypted standard string $textocifradoconclave = ConvertFrom-SecureString -SecureString $textoparacifrar -Key $clavebyteparacifrar ########################################################## #Vamos a convertir una cadena cifrada en una cadena segura (convert an encrypted string to a secure string) ########################################################## $textoparadescifrar = ConvertTo-SecureString -String $textocifradoconclave -Key $clavebyteparadescifrar #Extraer el texto plano de la cadena segura (extract password from SecureString) $textodescifrado='' $BSTR = [System.Runtime.InteropServices.Marshal]::SecureStringToBSTR($textoparadescifrar) $textodescifrado = [System.Runtime.InteropServices.Marshal]::PtrToStringAuto($BSTR) $textodescifrado |
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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | #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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | #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)