[SemiInutility] CheckSum MD5

[The Massakretor]

Ecco un programma che ti calcola l'MD5 di un file anche su windows ( Anzichè scaricare programmi da mettere nelle cartelle di sistema XD )

#!/usr/bin/perl

use Digest::MD5;

    my $file = "prova.txt";
    open(FILE, $file) or die "Impossibile Aprire '$file': $!";
    binmode(FILE);

    print Digest::MD5->new->addfile(*FILE)->hexdigest, " $file\n";

Non ho provato a confrontare il checksum con uno dato da programmi esterni, se testate e me lo fate notare, controllo e correggo.. ( Ma penso non ci siano problemi )