Cifrado | Scripting and security

SQL SERVER 2014 DOMINE LA ADMINISTRACION Y LA IMPLEMENTACION PACK 2 LIBROS (GABILLAUD, JEROME)

(No Ratings Yet)

SQL SERVER 2014 . ADMINISTRACIÓN DE UNA BASE DE DATOS TRANSACCIONAL CON SQL SERVER MANAGEMENT STUD (GABILLAUD, JÉRÔME)

(No Ratings Yet)

SQL SERVER 2014 . ADMINISTRACIÓN DE UNA BASE DE DATOS TRANSACCIONAL CON SQL SERVER MANAGEMENT STUD (GABILLAUD, JÉRÔME)

(No Ratings Yet)

Cifrar y descifrar con el cifrado César (7 desplazamientos)

(5 votes, average: 5.00 out of 5)

# 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

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

(4 votes, average: 5.00 out of 5)

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

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

(7 votes, average: 4.43 out of 5)

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 votes, average: 1.00 out of 5)

#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

#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 votes, average: 5.00 out of 5)

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

#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

(No Ratings Yet)

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

##########################################################

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

(No Ratings Yet)

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)

Older Posts