[PATCH] genini.pl: create SHA512 instead of MD5 checksums

[Achim Gratz]

diff --git a/genini.pl b/genini.pl
index 973ecfd..f5b13ea 100755
--- a/genini.pl                                                                 
                                                                                
               
+++ b/genini.pl                                                                 
                                                                                
               
@@ -6,7 +6,7 @@
 # for details.                                                                 
                                                                                
               
 #                                                                              
                                                                                
               
 use File::Basename;                                                            
                                                                                
               
-use Digest::MD5;                                                               
                                                                                
               
+use Digest::SHA;                                                               
                                                                                
               
 use Getopt::Long;                                                              
                                                                                
               
                                                                                
                                                                                
               
 use strict;                                                                    
                                                                                
               
@@ -228,9 +228,9 @@ sub filer {
        myerror "can't open $f - $!" unless $main::okmissing{$what};            
                                                                                
               
        return undef;                                                           
                                                                                
               
     };                                                                         
                                                                                
               
-    my $md5 = Digest::MD5->new;                                                
                                                                                
               
-    $md5->addfile(\*F);                                                        
                                                                                
               
-    $x->{$what} = join(' ', $f, -s $f, $md5->hexdigest);                       
                                                                                
               
+    my $sha512 = Digest::SHA->new(512);                                        
                                                                                
               
+    $sha512->addfile(\*F);                                                     
                                                                                
               
+    $x->{$what} = join(' ', $f, -s $f, $sha512->hexdigest);                    
                                                                                
               
 }                                                                              
                                                                                
               
                                                                                
                                                                                
               
 sub tarball {                                                                  
                                                                                
               


Regards,
Achim.
-- 
+<[Q+ Matrix-12 WAVE#46+305 Neuron microQkb Andromeda XTk Blofeld]>+

Factory and User Sound Singles for Waldorf Q+, Q and microQ:
http://Synth.Stromeko.net/Downloads.html#WaldorfSounds