Barrapunto

Este verano decidí hacer un programa de esteganografía usando el lenguaje Ada95 (100% hecho en Ada95). Para empezar me decanté por lo más fácil, es decir bitmaps de 24bpp. Para cifrar el contenido, decidí implementar dos sistemas de cifrado: uno que he llamado "César" (donde uso un xor y cesar, fácil de romper, pero lo hice para poner un "ejemplo") y otro usando una implementación que ví por ahí de una versión candidata AES: Serpent.
Muchas cosas las tuve que implementar yo mismo, como un paquete de manejo de bytes y bits.
El programa en cuestión lo publiqué hará un par de semanas, y ahora lo pongo aquí para darle "publicidad" :p
Funciona tanto en linux como en windows (la versión consola es igual en ambos, cambia un paquete). Se compila con Gnat, aunque en un principio cualquier compilador de Ada debería funcionar (sino basta con cambiar los x'img por tipo'image(x)). La versión "gráfica" está hecha en JEWL (para windows, necesita gnatwin).
La primera intención al hacerlo era prácticar, tanto en este lenguaje (que algunos consideran "peculiar" ;) ) como para ir programando programas "serios" que no sean prácticas (muchas veces horrorosas) de universidad. Pero también hacer algo que le pueda servir de ejemplo a personas que deseen ver programas "que hagan algo" en Ada95 (que código funcional en Ada95 hay más bien poco, comparado con todo lo que hay en C o Java, por ejemplo).
Por supuesto, faltan muuuchas cosas por pulir, y hay cosas que tienen implementaciones no muy buenas, por lo que he hecho una lista de "cosas a mejorar" como documentación (formato Oo.org writter). Así que si quereis echarle un ojo y opinar, cualquier idea, consejo, crítica constructiva es bienvenida. Y si quereis hacer algo o implementar alguna función de forma más eficiente, por supuesto es bienvenido :)
Me olvidaba, su nombre es AdaStegano.