Perl 檢測 MD5 安全可靠用法

sub checkMD5()
 {
  my ( $md5val,$scan_file) = @_;
  if ( $md5val !~ /[0-9a-f]{32}/i) { die "invalid md5 value./n"; }
     if( ! -e $scan_file ) { print "No updateX file exist. /n"; return -1 ;}
  
        print "/n<<<<<<<<<<<<<<<<<<<<<< Checking MD5 >>>>>>>>>>>>>>>>>/n/n";
     print  "Check File :/t". $scan_file."/n";
  print "Has Known MD5 :/t".$md5val ."/n";
  
  open(FILE, $scan_file) or die "Can't open '$scan_file': $!";
        binmode( FILE );
        my $retdgt = Digest::MD5->new->addfile(*FILE)->hexdigest; #The returned string will be 32 bytes long.
        close FILE;
   
       if ( $retdgt !~ /[0-9a-f]{32}/i ) {die "Invalid md5 value from Digest::MD5./n"; }
       print  "Get MD5 as :/t $retdgt/n";
   
      if( $md5val =~ /^$retdgt$/i ){ print "[Success] Match MD5 ./n/n";return 1 ;}
      else{ print "[Error] dismatch MD5 value ./n";return 0; }
 }

 

另外，

 如果檔案太大，使用md5_hex()方法， 會有out of memory 的問題