Discussion :

[HRS]

j'utilise le script suivant (PERL 512 windows)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
use strict;
 
use Digest::MD5;
 
my $ctx2 = Digest::MD5->new;
open ZZ,"<tablesfm2.txt";
$ctx2->addfile(*ZZ);
 
my $digest = $ctx2->hexdigest;
print "$digest\n";

j'obtiens bien un nombre de 32 chiffres hexadécimaux

sauf qu'il n'a rien à voir avec celui de Freecommander, outil que j'utilise régulièrement pour vérifier qu'un gros fichier que je télécharge n'est pas altéré durant le tranfert

[Philou67430]

Pourtant, pour ma part, l'uniligne suivant me retourne exactement le même code de contrôle que la commande md5sum (Ubuntu).
Dans le doute, ajoute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

binmode(ZZ);

après le open.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl -e 'use Digest::MD5;$md = Digest::MD5->new;$md->add(<>);print $md->hexdigest' toto.zip

(sous DOS, remplacer les quotes simple par des doubles).

[HRS]

effectivement, en rajoutant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

binmode(ZZ);

derrière l'open, j'obtiens la même empreinte MD5 que FreeCommander

Merci