Foro - Perl en Español

Con el módulo Digest::SHA1 lo resuelves fácilmente.

Aquí un ejemplo, verificado por el propio comando sha1sum del sistema:


Hay otros módulos que permiten calcular otros SHA (SHA-1, SHA-224, SHA-256, SHA-384, y SHA-512), como el Digest::SHA.

No conozco esos programas, así que no puedo ayudarte mucho, salvo que, de alguna manera, tengas la seguridad de que los ficheros han sido leídos correctamente.

Por ejemplo, suele ser normal, a la hora de leer un fichero, olvidarnos que tenemos que hacerlo en binario, porque sino, los gestores de archivo de los lenguajes de ordenador traducirán de forma distinta los caracteres de final de línea (y otras conversiones más). Para eso hay que llevar un control de la longitud de lo leído.

No has publicado código, así que no puedo decirte si hay algo raro en él. Pero el ejemplo que te he mostrado, funciona muy bien.

¿Seguro que esos programas calculan el SHA1? ¿No será otro algoritmo de Has?

Claro, en mi ejemplo funciona sin binmode() porque yo uso un sistema operativo de verdad.

Muchas veces se me olvida que yo soy un afortunado por usar Linux, mientras que los demás se tropiezan con estas tonterías, en Windows.

Los finales de línea no son transformados porque no hace falta hacerlo.

Además, ahora que lo repaso, sí que lo pone en el manual de Digest:SHA1, en la función addfile(): hay que asegurarse, en la mayoría de las ocasiones, que el fichero esté puesto en modo binario.