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