Hola,
He subido al
Directorio del ClubDelphi un componente que he dado en llamar "Hashes" (en un alarde de ingenio e imaginación) y que puede usarse para calcular el algoritmo MD5 y SHA1 de una cadena, archivo o "Stream".
El componente se basa en la
unidad "Hashes.pas" de
Domingo Seoane y yo me he limitado a encapsular las funciones de la misma dentro de un componente, que a su vez añade una serie de eventos y algún que otro método.
Pensaba usar la unidad "Hashes.pas" del maestro Seoane, pero, para archivos "grandes", en mi caso, al menos, precisaba de un evento que me fuera informando del progreso de la tarea.
Ya puestos añadí algún otro evento y un método para poder "abortar" una tarea comenzada. Y eso es todo. Yo pienso usarlo en cierto proyecto, de modo que, si veo que son menester ciertos cambios, actualizaré el archivo del componente en consecuencia.
Otra cosa. "Hashes" puede usarse como una clase más, es decir, puede instalarse (incluye un paquete para Delphi 2007) o puede usarse como cualquier otra clase, no es necesario instalarlo, vaya.
Además incluyo un ejemplo de uso del componente, aunque, en el ejemplo he utilizado el componente instalado en Delphi, de modo que si queréis probarlo (con el ejemplo) tendréis que hacer lo propio. Pero en todo caso veréis que es relativamente sencillo hacer uso del mismo.
PD. Para archivos y "Streams" "pequeños" y cadenas... lo cierto es que tal vez ya no merezca la pena el uso del componente, y baste y sobre con usar la unidad "Hashes.pas" de Domingo Seoane.