Últimamente no he escrito mucho, he estado ocupado con otros proyectos, ahora llega el momento de fusionar ambos.
Estoy desarrollando una aplicación de cifrado seudo-paranoico. Se basa en el estándar AES256 al cual le añadimos dos capas para evitar algunos ataques.
El programa esta totalmente escrito en Haskell ayudándome de su entorno de desarrollo Stack y se encuentra en Alpha 0.1.3. Ya estoy implementando la ultima capa de cifrado simétrico.
Hasta la versión 1 estará solo disponible para cifrado de texto con clave de 512 bites o superior y orientado, a poder usarse en cualquier red social, servicio de mensajería o email. También cifrara mediante curvas elípticas para el envío de claves.
Los paquetes que estoy desarrollando están orientados a poderse usar también para el cifrado de archivos ya que están diseñadas para ByteString, pero esto no sera hasta la versión 2.
En versiones posteriores también se podría implementar un servicio de mensajería basado en el anonimato, una vez que añada conexión a base de datos. Quizá en la version 3
La aplicación se llama CrypText y se encuentra alojada en mi repositorio GitLab. Y se distribuye bajo licencia BSD 3-clause traducido al castellano Licencia Publica de Libre Uso.
Aquellos que queráis colaborar, probarla o trastear estáis invitados.
English.
Lately I have not written much, I’ve been busy with other projects, now it’s time to merge both. I am developing a pseudo-paranoid encryption application. It is based on the AES256 standard to which we add two layers to avoid some attacks.
The program is completely written in Haskell, helping me with its Stack development environment and it is in Alpha 0.1.3. I am already implementing the last layer of symmetric encryption.
Until version 1 will only be available for text encryption with a 512-bit key or higher and oriented, to be used in any social network, messaging service or email. It will also encrypt using elliptical curves for sending keys.
The packages that I am developing are oriented to be able to be used also for the encryption of files since they are designed for ByteString, but this will not be until the version 2.
In later versions you could also implement a messaging service based on anonymity, once you add a database connection. Maybe in version 3.
The application is called CrypText and is hosted in my repository GitLab. It is distributed under a BSD 3-clause license.
Those who want to collaborate, test or …. are invited.
Esta segunda entrada de programación en Haskell veremos un ejemplo de cifrado Cesar que nos permitirá practicar con la definición de funciones.
Para ponernos en situación veremos que es el cifrado Cesar, y en nuestro caso, con el fin de practicar con la definición de funciones, usaremos el alfabeto latín antiguo, el cual convivió con este cifrado en los años del Circo Romano, los acueductos…
Latín Antiguo.
El alfabeto que usaban en torno al año cero de la era cristiana, en el antiguo imperio romano era el latín antiguo y difería del alfabeto actual de 27 letras si incluimos la “ñ”
En la Roma Antigua solo teníamos mayúsculas y las letras J,U,Ñ,W no estaban aún en el alfabeto.
La J fue I y la U fue V ( JESUS era IESVS ) y no llegan como tales, hasta el siglo XVIII, aunque coexistieron desde el origen ligadas a las letras I y V.
X e Y entraron en siglo 2 a.C. por la conquista del Imperio Griego.
Las minúsculas llegaron en la Edad Media.
La Ñ aparece como sustitución del dígrafo “NN” al final de la Edad Media en algunos alfabetos derivados del latín como el Castellano.
W entra en el siglo XIII por influecia de las lenguas germánicas.
Resumiendo nos queda un alfabeto de 23 letras (Sin J,U,Ñ,W) ABCDEFGHIKLMNOPQRSTVYZ
Cifrado Cesar.
El cifrado César,es una de las técnicas de cifrado más simples y más usadas. Es un tipo de cifrado por sustitución en el que una letra en el texto original es reemplazada por otra letra que se encuentra un número fijo de posiciones más adelante en el alfabeto. Por ejemplo, con un desplazamiento de 3, la A sería sustituida por la D (situada 3 lugares a la derecha de la A), la B sería reemplazada por la E, etc. Este método debe su nombre a Julio Cesar, que lo usaba para comunicarse con sus generales. Texto obtenido de la Wikipedia
Cifrado Cesar
Programa en Haskell.
Adaptaremos nuestro programa de cifrado Cesar al alfabeto latín antiguo. Nos fijaremos en la definición de la función ya que es lo más significativo del programa.
antiguas :: Int -> Char -> Char antiguas n c | elem c [‘A’..’I’] = alfabeto !! (mod ( (ord c) – (ord ‘A’) + n ) 23) | elem c [‘J’] = alfabeto !! (mod ( (ord c) – (ord ‘A’) + n-1 ) 23) | elem c [‘K’..’T’] = alfabeto !! (mod ( (ord c) – (ord ‘A’) + n-1 ) 23) | elem c [‘U’] = alfabeto !! (mod ( (ord c) – (ord ‘A’) + n-1 ) 23) | elem c [‘V’] = alfabeto !! (mod ( (ord c) – (ord ‘A’) + n-2 ) 23) | elem c [‘X’..’Z’] = alfabeto !! (mod ( (ord c) – (ord ‘A’) + n-3) 23) | elem c [‘ ‘] = ‘ ‘ |otherwise = ‘*’
— Cifrado Cesar latín antiguo versión modulo 23 con 3 desplazamientos.
— Implementando C. Cesar para cada letra antiguas :: Int -> Char -> Char antiguas n c | elem c [‘A’..’I’] = alfabeto !! (mod ( (ord c) – (ord ‘A’) + n ) 23) | elem c [‘J’] = alfabeto !! (mod ( (ord c) – (ord ‘A’) + n-1 ) 23) | elem c [‘K’..’T’] = alfabeto !! (mod ( (ord c) – (ord ‘A’) + n-1 ) 23) | elem c [‘U’] = alfabeto !! (mod ( (ord c) – (ord ‘A’) + n-1 ) 23) | elem c [‘V’] = alfabeto !! (mod ( (ord c) – (ord ‘A’) + n-2 ) 23) | elem c [‘X’..’Z’] = alfabeto !! (mod ( (ord c) – (ord ‘A’) + n-3) 23) | elem c [‘ ‘] = ‘ ‘ |otherwise = ‘*’
— Implementamos para String.
cesar :: Int -> String -> String cesar n xs = [antiguas n x | x <- xs]
main = do
— Mostramos el Alfabeto Latin Antiguo.
putStrLn “Alfabeto latín antiguo” putStrLn ( show ( alfabeto))
— Pedimos el texto a cifrar.
putStrLn “Introduce el texto a cifrar (Los caracteres que no existían en el latín antiguo se transformaran en *) “ line <- getLine
— Ciframos y deciframos n=3 y n=-3 — El cifrado original cesar es de 3 desplazamientos.
let texto = cesar 3 line let textoDes = cesar (-3) texto putStrLn (“Cifro hacía la derecha moviendo 3 posiciones”) putStrLn ( show ( texto)) putStrLn (“Descifro hacía la izquierda moviendo 3 posiciones corrigiendo J y U “) putStrLn ( show ( textoDes))
Ejecutamos.
runhaskell CesarAntiguo.hs Alfabeto latín antiguo “ABCDEFGHIKLMNOPQRSTVXYZ” Introduce el texto a cifrar (Los caracteres que no existían en el latín antiguo se transformaran en *) JULIO CESAR VINI VIDI VICI Cifro hacía la derecha moviendo 3 posiciones “MZOMR FHXDV ZMQM ZMGM ZMFM” Descifro hacía la izquierda moviendo 3 posiciones corrigiendo J y U “IVLIO CESAR VINI VIDI VICI”
Vamos a ir desarrollando pequeños programas en Haskell, para que podáis aprender conmigo a programar en este lenguaje. Nos servirá para aprender juntos y motivarnos a seguir escribiendo código.
Hoy vamos a crear un ejemplo básico pero instructivo, crearemos un programa para generar números primos, pero para los que vengáis de otros sistemas echareis de menos algo que siempre habéis usado, el muy conocido “for”, tan usado en otros lenguajes.
¿Deberiamos tener for en haskell?
Si vienes de otros lenguajes, la primera piensas que algo pasa, que no puede ser ¿como no puede haber for aquí? La respuesta es sencilla, por que no lo necesitamos, la programación funcional nos da unas herramientas muy potentes que nos harán olvidar a nuestro querido for.
Los que tengáis una base de matemáticas importante estaréis acostumbrados a este tipo de expresiones.
En haskell gracias a las listas intencionales podemos definir conjuntos de una forma similar. [x*2 | x <- [1..10]]. Este ejemplo ha sido sacado de una de las mejores guías de Haskell en castellano: http://aprendehaskell.es/
Programar sin for.
El programa de ejemplo nos permitirá calcular los números primos entre 1 y otro que nosotros definamos.
Un número es primo cuando solamente es divisible por la unidad y por el mismo. 17 seria primo. 12 no lo seria, es divisible por 1,2,3,4 y 6.
Whonix es una distribución basada en Debian que esta diseñada para correr en maquinas virtuales. Por tanto es posible utilizarla en Windows, Mac y LInux.
Esta basada en la navegación a través de la Red Tor y del uso de aplicaciones para pasar inadvertidos en la red.
Para los que buscáis una distro para hacking, texting de seguridad, esta no es de ese tipo, solo se limita a pasar inadvertido en la red, que no es poco en estos días
Os dejo un vídeo para que veáis como se instala y como funciona. Cualquier duda no dudeis en dejarme el comentario y os contestare.
Os muestro un vídeo sobre BlackArch Linux, una distro basada en Arch Linux y que esta orientada al la seguridad informática.
Para los usuarios de Arch tenéis la posibilidad de añadir los repositorios de BlackArch y así acceder a todo su software incluso tenemos el repositorio del código fuente en github y podéis compilar las aplicaciones. También se puede instalar en disco o en un USBLIve
Hoy muestro uno de los mejores editores para programar en haskell que he probado.
Es un viejo conocido que recientemente libero Microsorft. Visual Studio Code.
Como soy usuario de Antergos Linux, os mostrare la instalación de este editor y de su extensión para haskell, en distribuciones basadas en Arch Linux.
Os dejo un vídeo para que os animéis a instalarlo, es muy sencillo y rápido. para los que uséis otro lenguaje de programación como Pythom el procedimiento es el mismo.
Para los que tengáis otras distros o S.O. os aconsejo utilizar Visual Studio Code para haskell.
Aprenderemos a automatizar nuestros backups en Arc Linux y derivados, usando tres aplicaciones de software libre.
ClamAV antivirus de libre disposición para limpiar nuestros dispositivo de huéspedes indeseables.
rsync potente herramienta para la transferencia y sincronización de archivos. Admite sincronización mediante ssh para transferencias a host remoto.
cronie (derivado de cron en ArchLinux) que permite programar o automatizar tareas.
A día de hoy, una de las mejores herramientas de seguridad, a mi entender, sigue siendo el BackUp. La copia de seguridad nos permitirá viajar atrás en el tiempo hasta ese momento en que todo era maravilloso. No hacerlo es asumir muchos e indeseables riesgos.
En mi caso y para que os sirva de ejemplo, haremos una copia de seguridad de mis carpeta Programación, donde guardo archivos que no quiero perder, en el primer vídeo también cifraremos el dispositivo usb usando la aplicación que viene por defecto en gnome; gnome-disks, ( en KDE hay una similar, pero si queréis usar la misma os pongo abajo como instalarla)
Que haremos realmente
Pasaré un antivirus sobre la carpeta origen y destino.
Guardare los logs del antivirus en archivos de texto.
En caso de que sean datos sensibles, podríamos cifrar el dispositivo donde alojemos los backups.
Usare un USB externo en el que tendré 3 backups de la misma carpeta (diario, semanal, mensual).
Realizare script de automatización que se ejecutara creando las copias de seguridad (mediante cronie).
Resumen de aplicaciones a instalar (también se puede hacer desde el gestor de paquetes):
Primero actualizar pacman sudo pacman -Syu
ClamAv, Antivirus. sudo pacman -S clamav
rsync sudo pacman -S rsync
cronie, gestor de tareas. sudo pacman -S cronie
Para cifrar almacenamiento externo externo uso el que viene en gnome instalado. sudo pacman -S gnome-disks
CIfrado (opcional)
Si deseamos cifrar seria el primer paso, el cual es dependiente del resto y opcional. (Ver video)
ANTIVIRUS (I)
Instalacion:
Instalaremos ClamAv desde terminal previa actualización de pacman
sudo pacman -Syu
sudo pacman -S clamav
para actualizar la base de datos del antivirus si no lo automatizamos:
sudo freshclam
Automatización del las actualizaciones del Antivirus ClamAV
Para que se actualice ell antivirus cada vez que iniciemos el sistema. Equivale a hacer sudo freshclamen en cada inicio.
sudo systemctl start clamav-freshclam.service
sudo systemctl enable clamav-freshclam.service
Sinraxis y comandos usados.
clamscan -r ORIGEN -l /DESTINOLOG
-r es recursivo escanea también las subcarpetas.
-l crea un archivo de texto con los datos del análisis.
Backup (II)
Instalacion.
Hemos elegido rsync por su velocidad y estabilidad, ademas de estar disponible en multitud de distribuciones y S.O.
sudo pacman -S rsync
Sintaxis y comandos de rsync.
La sintaxis es: rsync [opciones] origen destino
Pongo los comandos más usuales solamente, para ampliar usar rsync –help o mirara la bibliografía.
-a modo archivo, este modo permite copiar archivos de forma recursiva aceptando enlaces simbólicos, permisos, propiedad del usuario y grupo, así como las fechas de acceso.
-v muestra información en pantalla sobre las acciones que se realizan.
-r recursivo, realiza la copia de archivos de forma recursiva dentro de los directorios, pero no copia los permiso, los datos de las fechas de accesos o modificación de los archivos.
-z comprime los datos antes de enviarlos, lo que puede hacer más rápidas las transferencias entre hosts remotos, para rutas locales no proporciona ninguna ventaja usar esta opción.
-P Muestra el progreso de las transferencias.
— delete borra archivos que no estén en el origen.
Scripts (III).
Yo lo guarde como como BackUpDiario.sh, BackUpSemanal.sh y BackUpMensual.sh
El script parece más grade, porque lo he comentado todo, para que lo veáis mas claro. Estas son las instrucciones que lo componen.
Pasamos antivirus al Origen y guardamos el log: clamscan -r /home/nukebull/Programacion/ -l /home/nukebull/Logs/backupDiario.txt
Sincronizamos Archivos: rsync -a –delete /home/nukebull/Programacion/ /run/media/nukebull/401D-1A0E/BackUpDiario/
Pasamos antivirus al Destino y guardamos el log:clamscan -r /run/media/nukebull/401D-1A0E/BackUpDiario/ -l /home/nukebull/Logs/backupDiarioBackUp.txt
se añaden también dos instrucciones echo para ordenar los log del antivirus.
BackUpDiario.sh
#!/bin/bash
#Vicente Parra
#www.nukebull.com
# Pasamos el antivirus a la carpeta origen y guardamos los datos (log y fecha) en un archivo de texto
#escribimos en archivo log la fecha para tenerlo ordenado
echo -e “n Fecha del Backup :n” >> /home/nukebull/Logs/backupDiario.txt
echo `date` >> /home/nukebull/Logs/backupDiario.txt
# Sincronizamos rsync -a –delete carpeta_origen/ carpeta_destino/ -vP ver datos des ploceso y program -delete hace pocias identicas al borrar los archivos distintos en destino
#rsync -avP –delete /home/nukebull/Programacion/ /run/media/nukebull/401D-1A0E/BackUpDiario/
rsync -a –delete /home/nukebull/Programacion/ /run/media/nukebull/401D-1A0E/BackUpDiario/
# Pasamos el antivirus a la carpeta de destino y guardamos los datos (log y fecha) en un archivo de texto
#escribimos en archivo log la fecha para tenerlo ordenado
echo -e “n Fecha del Backup : n” >> /home/nukebull/Logs/backupDiarioBackUp.txt
echo `date` >> /home/nukebull/Logs/backupDiarioBackUp.txt
# Pasamos el antivirus a la carpeta origen y guardamos los datos (log y fecha) en un archivo de texto
#escribimos en archivo log la fecha para tenerlo ordenado
echo -e “n Fecha del Backup :n” >> /home/nukebull/Logs/backupSemanal.txt
echo `date` >> /home/nukebull/Logs/backupSemanal.txt
# Sincronizamos rsync -a carpeta_origen/ carpeta_destino/ // en esta omitimos –delete -v -P
rsync -a /home/nukebull/Programacion/ /run/media/nukebull/401D-1A0E/BackUpSemanal/
# Pasamos el antivirus a la carpeta de destino y guardamos los datos (log y fecha) en un archivo de texto
#escribimos en archivo log la fecha para tenerlo ordenado
echo -e “n Fecha del Backup : n” >> /home/nukebull/Logs/backupSemanalBackUp.txt
echo `date` >> /home/nukebull/Logs/backupSemanalBackUp.txt
# Pasamos el antivirus a la carpeta origen y guardamos los datos (log y fecha) en un archivo de texto
#escribimos en archivo log la fecha para tenerlo ordenado
echo -e “n Fecha del Backup :n” >> /home/nukebull/Logs/backupSemanal.txt
echo `date` >> /home/nukebull/Logs/backupSemanal.txt
# Sincronizamos rsync -rvuc carpeta_origen/ carpeta_destino/ en esta omitimos –delete -v -P
rsync -a /home/nukebull/Programacion/ /run/media/nukebull/401D-1A0E/BackUpSemanal/
# Pasamos el antivirus a la carpeta de destino y guardamos los datos (log y fecha) en un archivo de texto
#escribimos en archivo log la fecha para tenerlo ordenado
echo -e “n Fecha del Backup : n” >> /home/nukebull/Logs/backupSemanalBackUp.txt
echo `date` >> /home/nukebull/Logs/backupSemanalBackUp.txt
