Hola
Aquí teneis un componente que permite hacer message digest de un archivo, una lista de archivos o directorios enteros, etc.
Es muy sencillito.
Como hay un montón de algoritmos de MD para elegir uno basta con elegirlo de una lista.
También es posible hacer un hash de un string. Por ejemplo para hacer un hash md5 de una string
Código:
dim F as new MyDigest
Var="hola mundo"
F.md=F.MdList.md5
var2=f.strchecksum(var)
El proyecto está aquí y aunque está en beta es tan simple que dudo que haya muchos errores, pero alguno puede haber al pasarlo de clase a componente.
https://gitlab.com/kabronsete/mydigest/-/tree/main
Y la documentación la tenéis aquí. Se lee en un pis pas.
https://gitlab.com/kabronsete/mydigest/-...Digest.pdf