¿Necesitas cifrar u obtener "hashes" de cadenas o archivos?

[dec]

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.

[[Chris]]

Se te agradece el aporte compañero!

De mucha utilidad estas rutinas son (me salió como Yoda :P)

Saludos,
Chris

[Casimiro Notevi]

Bienvenidas son.

[ecfisa]

Hola Dec.

Muchas gracias por el aporte.

Saludos.

[dec]

Hola,

¡No hay de qué! Encantado de poder aportar algo y aun algos.

[dec]

Hola,

—Sabrás, Sancho, que los españoles, y los que se embarcan en Cádiz para ir a las Indias Orientales [18], una de las señales que tienen para entender que han pasado la línea equinocial que te he dicho es que a todos los que van en el navío se les mueren los piojos [19], sin que les quede ninguno, ni en todo el bajel le hallarán[*], si le pesan a oro [20]; y, así, puedes, Sancho, pasear una mano por un muslo, y si topares cosa viva, saldremos desta duda, y si no, pasado habemos.

—Yo no creo nada deso —respondió Sancho—, pero, con todo, haré lo que vuesa merced me manda, aunque no sé para qué hay necesidad de hacer esas experiencias, pues yo veo con mis mismos ojos que no nos habemos apartado de la ribera cinco varas, ni hemos decantado de donde están las alemañas dos varas [21], porque allí están Rocinante y el rucio en el propio lugar do los dejamos; y tomada la mira, como yo la tomo ahora, voto a tal que no nos movemos ni andamos al paso de una hormiga.

—Haz, Sancho, la averiguación que te he dicho, y no te cures de otra, que tú no sabes qué cosa sean coluros, líneas, paralelos, zodiacos, eclíticas[*], polos, solsticios, equinocios, planetas, signos, puntos, medidas[*], de que se compone la esfera celeste y terrestre [22]; que si todas estas cosas supieras, o parte dellas, vieras claramente qué de paralelos hemos cortado, qué de signos visto y qué de imágines hemos dejado atrás [23] y vamos dejando ahora. Y tórnote a decir que te tientes y pesques, que yo para mí tengo que estás más limpio que un pliego[*] de papel liso y blanco.

Tentóse Sancho, y llegando con la mano bonitamente y con tiento hacia la corva izquierda [24], alzó la cabeza y miró a su amo, y dijo:

—O la experiencia es falsa o no hemos llegado adonde vuesa merced dice, ni con muchas leguas.

—Pues ¿qué —preguntó don Quijote—, has topado algo?

—¡Y aun algos! —respondió Sancho.

Seguir riendo...