Hola,
¿Necesitas cifrar u obtener "hashes" de una cadena o archivo? Entonces estás de suerte, porque, acabo de subir al
directorio del ClubDelphi un par de unidades que te ayudarán a ello:
Chiper and Hashes. Sendas unidades tienen ciertas características más o menos reseñables. En primer lugar, hacen uso del API de Windows, lo que significa que no hay código de terceros ni más código que el que arde, quiero decir, el de las propias unidades. Basta que las añadas a tu proyecto y uses el par de clases que se ofrecen: que puedes usar por separado, por supuesto.
Otra particularidad es que dichas clases ofrecen métodos para cifrar y descifrar cadenas y archivos, en el caso de "TChiper" (usando el algoritmo RC4 y uno de los "hash" soportados). Y, en el caso de "THashes", métodos para obtener el "hash" (MD5, SHA1, SHA256, SHA384 y SHA 512) de una cadena o un archivo también. Ambas clases cuentan además con "eventos" del tipo "OnWorkBegin", "OnWork", "OnWorkEnd", etc., de manera que sea posible mantener al tanto al usuario del progreso de una determinada tarea, así como la posibilidad de cancelar la tarea en un momento dado.
Hay que decir que ambas unidades son una adaptación de cierta unidad "UHashes.pas" publicada aquí por nuestro compañero
Domingo Seoane. Sin Domingo estas unidades que ahora puedes descargar y utilizar libremente en tus proyectos no existirían, sin más. Y eso es todo. Espero que te resulten de utilidad. Ah, otra cosa. No proporciono ningún ejemplo de uso, pero, como verás tú mismo o tú misma, ambas clases "TCipher" y "THashes" no encierran misterio alguno, únicamente publican un par de métodos y sus correspondientes eventos: no creo que tengas problemas en usarlas, vaya. Y si los tienes pues lo comentas por aquí y tratamos de echarte una mano.
