輕輕鬆鬆 建立 MD5 & Sha1 Key by Perl/Python

一樣…
用python ，就請愛用「hashlib」：

import hashlib
strGenFile = r"C:\\winnt\\system32\\notepad.exe"
print "MD5 = %s\n" % hashlib.md5(open(strGenFile, "rb").read()).hexdigest()
print "SHA1 = %s\n" % hashlib.sha1(open(strGenFile, "rb").read()).hexdigest()

再來是perl版：

use Digest::SHA1 qw(sha1 sha1_hex) ;
use Digest::MD5 qw(md5 md5_hex) ;

my $strGenFile = "C:\\winnt\\system32\\notepad.exe" ;
my $FileHandle ;
open($FileHandle, $strGenFile) or die "Open file: $strGenFile failed!\n" ;
binmode($FileHandle) ;
    print "MD5 = " . md5_hex(<$FileHandle>) . "\n" ;
# or
    print "SHA1 = " . sha1_hex(<$FileHandle>) . "\n" ;

close($FileHandle) ;

我不是刻意不對perl做最佳化…
反正就是讀出來後，丟進去function去做吧！